Private Sub w1()
    Dim tt As Integer, t2 As Integer
    Dim i As Integer, j As Integer, n As Integer
    Dim m( 100 ) As String, s As String
    
    n =  1 
    'первый файл
    tt = FreeFile
    Open App.Path & "/s1.txt" For Input As #tt
        Do While Not EOF(tt)
            Line Input #tt, m(n)
            n = n +  1 
        Loop
    Close #tt
    
    'второй файл
    tt = FreeFile
    Open App.Path & "/s2.txt" For Input As #tt
        Do While Not EOF(tt)
            Line Input #tt, m(n)
            n = n +  1 
        Loop
    Close #tt
    
    'сортировка шелла
    For i = n -  1  To  1  Step - 1 
        For j =  1  To n - i
            If m(i) > m(j) Then
                s = m(i)
                m(i) = m(j)
                m(j) = s
            End If
        Next j
    Next i
    
    'запись
    tt = FreeFile
    Open App.Path & "/s3.txt" For Output As #tt
    s = ""
    For i =  1  To n
        If s <> m(i) Then
            Print #tt, m(i)
            s = m(i)
        End If
    Next i
    Close #tt
End Sub

Private Sub w2()
    Dim tt As Integer
    Dim i As Integer
    Dim s As String
    'слов и букв
    Dim word As Integer, w As Integer
        
    'считать слово, ограниченное " " или концом строки
    'тогда слов - столько же, сколько пробелов и концов строки.
    'для простоты считать конец строки только vbCr,
    'не считать cимволами только vbCr vbLf vbTab
    
    tt = FreeFile
    Open App.Path & "\s.txt" For Input As #tt
        s = Input(LOF(tt), tt)
    Close #tt
    
    w =  0 
    word =  0 
    For i =  1  To Len(s)
        Select Case Mid$(s, i,  1 )
        Case vbCr, vbLf
            'конец слова
            word = word +  1 
        Case " "
            'конец слова и символ пробела
            w = w +  1 
            word = word +  1 
        Case vbTab
        Case Else
            'символ
            w = w +  1 
        End Select
    Next i
    
    MsgBox "Символов " & vbTab & w & vbCrLf & "Слов " & vbTab & vbTab & word
End Sub

Private Sub w8()
    Dim m() As Integer
    Dim n As Integer
    Dim i As Integer, j As Integer
    Dim s As String
    n = Val(InputBox("Ведите N "))
    
    ReDim m(n, n)
    For i =  1  To n
        For j =  1  To n
            m(i, j) = Val(InputBox("Ведите M(" & i & ", " & j & ") :"))
        Next j
    Next i
    
    s = ""
    For i =  1  To n
        For j =  1  To n
            s = s & m(i, j) & vbTab
        Next j
        s = s & vbCrLf
    Next i
    MsgBox s, , "матрица"
    
    For i =  1  To n
        m(i, i) =  0 
    Next i
    
    s = ""
    For i =  1  To n
        For j =  1  To n
            s = s & m(i, j) & vbTab
        Next j
        s = s & vbCrLf
    Next i
    MsgBox s, , "матрица"
End Sub

Private Sub w2()
    Dim tt As Integer
    Dim i As Integer
    Dim s As String
    'слов и букв
    Dim word As Integer, w As Integer
        
    'считать слово, ограниченное " " или концом строки
    'тогда слов - столько же, сколько пробелов и концов строки.
    'для простоты считать конец строки только vbCr,
    'не считать cимволами только vbCr vbLf
    
    tt = FreeFile
    Open App.Path & "\sss.txt" For Input As #tt
        s = Input(LOF(tt), tt)
    Close #tt
    
    s = Replace(s, vbLf, "") & vbCr
    While InStr(s, vbCr & vbCr) >  0 
        s = Replace(s, vbCr & vbCr, vbCr)
    Wend
    
    w =  0 
    word =  0 
    For i =  1  To Len(s)
        Select Case Mid$(s, i,  1 )
        Case vbCr, vbLf
            'конец слова
            word = word +  1 
        Case " "
            'конец слова и символ пробела
            w = w +  1 
            word = word +  1 
        Case Else
            'символ
            w = w +  1 
        End Select
    Next i
    
    If Len(s) <>  0  And word =  0  Then word =  1 
    
    MsgBox "Символов " & vbTab & w & vbCrLf & "Слов " & vbTab & vbTab & word
End Sub