Задание 1.
Программа
Sub z()
Dim a, b, c, j, v, z As String
Dim i, x, y As Integer
o = "а"
a = "А"
Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 14\13.txt" For Output As #1
Print #1, "Использование в программах строковых переменных использование основных функций"
Print #1, "Использование в программах строковых переменных использование основных функций"
Print #1, "Использование в программах строковых переменных использование основных функций"
Print #1, "Использование в программах строковых переменных использование основных функций"
Print #1, "Использование в программах строковых переменных использование основных функций"
Close #1
Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 14\13.txt" For Input As #2
For x = 1 To 5
Line Input #2, c
Sheets(1).Cells(x, 1) = c
Sheets(1).Cells(10, x) = c
Next x
Close #2
b = Trim(c)
j = 0
For i = 1 To Len(b)
v = Mid(b, i, 1)
If v = " " Then
j = j + 1
End If
Next i
MsgBox "Количество слов в тексте " & j + 1
Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 14\13.txt" For Input As #3
Input #3, p
For y = 1 To 5
Sheets(2).Cells(1, y + 1) = p
z = Replace(p, o, a)
Sheets(2).Cells(2, y + 1) = z
Next y
Close #3
Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 14\13.txt" For Append As #4
Print #4, z
Close #4
Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 14\13.txt" For Input As #5
For x = 1 To 5
Line Input #5, u
d = Trim(u)
t = Split(d)
Sheets(1).Cells(12, x) = t
Sheets(1).Cells(x + 12, 1) = t
Next x
Close
End Sub
Задание 2.
Программа
Private Sub CommandButton1_Click()
Dim a, b, c, d, e, i, j As Integer
mins = 15
maxs = 1
a = Label1.Caption
b = Trim(a)
j = 0
For i = 1 To Len(b)
v = Mid(b, i, 1)
If v = " " Then
j = j + 1
End If
Next i
Z = Split(a)
For i = LBound(Z) To UBound(Z)
Z(i) = Trim(Z(i))
c = c + Len(Z(i))
Next i
For i = LBound(Z) To UBound(Z)
f = Trim(Z(i))
g = Len(f)
If g > maxs Then
maxs = g
maks = Z(i)
End If
Next i
For i = LBound(Z) To UBound(Z)
f = Trim(Z(i))
g = Len(f)
If g < mins Then
mins = g
miks = Z(i)
EndIf
Nexti
Label2.Caption = "Количество слов в тексте: " &j + 1
Label3.Caption = "Количество букв в тексте: " &c
Label4.Caption = "Слово с наименьшей длинной: " &miks
Label5.Caption = "Слово с наибольшей длинной: " &maks
End Sub
Private Sub CommandButton2_Click()
Label2.Caption = " "
Label3.Caption = " "
Label4.Caption = " "
Label5.Caption = " "
End Sub
Private Sub CommandButton3_Click()
Unload Me
UserForm1.Hide
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
End Sub
Задание3
Программа
Private Sub CommandButton1_Click()
Dim a, b, c, d, e, i, j As Integer
mins = 15
maxs = 1
a = TextBox1.Text
b = Trim(a)
j = 0
For i = 1 To Len(b)
v = Mid(b, i, 1)
If v = " " Then
j = j + 1
End If
Next i
Z = Split(a)
For i = LBound(Z) To UBound(Z)
Z(i) = Trim(Z(i))
c = c + Len(Z(i))
Next i
For i = LBound(Z) To UBound(Z)
f = Trim(Z(i))
g = Len(f)
If g > maxs Then
maxs = g
maks = Z(i)
End If
Next i
For i = LBound(Z) To UBound(Z)
f = Trim(Z(i))
g = Len(f)
If g < mins Then
mins = g
miks = Z(i)
End If
Next i
Z(2) = UCase(Z(2))
Z(4) = UCase(Z(4))
TextBox1.Text = Z(2) & " " &Z(4)
Label1.Caption = "Количество слов в тексте: " &j + 1
Label2.Caption = "Количество букв в тексте: " &c
Label3.Caption = "Слово с наименьшей длинной: " &miks
Label4.Caption = "Слово с наибольшей длинной: " &maks
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = " "
Label1.Caption = " "
Label2.Caption = " "
Label3.Caption = " "
Label4.Caption = " "
End Sub
Private Sub CommandButton3_Click()
Unload Me
UserForm1.Hide
End Sub
Private Sub UserForm_Click()
End Sub