Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Изм.
Лист
№ докум.
Подпись
Дата
Лист
3
КПКО.ПОКС 4705.000
Подпись и дата
Инв. № дубл.
Взам. инв. №
Подпись и дата
Инв. № подл.
Копировал
Формат А4
Лабораторная работа №3
Тема: Функция работы со строками
Задание: Дан текст, удалить из текста заданный фрагмент, причем слово в котором он удаляется заменить на символ.
Выполнение:
Private Sub CommandButton1_Click()
Dim k As Double
Dim str As String
Dim i As Integer
Dim q As Integer
Dim sim As String
Dim strr As String
Dim schet As String
Dim dop As Integer
otvet.Caption = "вывод " '
sim = simvol.text '
str = text.text 'считывает символ
str = str + " " 'считывает строку
q = Val(bukva.text) + 1 'добовляет к ней пробел
'If InStr(str, " ") <> 0 Then
For i = 1 To text.TextLength 'до конца строки
k = InStr(str, " ") 'ищет пробел
If k = 0 Then
Exit For
End If
If k = q Then
dop = dop + 1
strr = Mid(str, 1, k) 'С какой строки начинать и с какого сивола
str = Replace(str, strr, "", 1, 1) 'Замена
schet = schet + sim + " "
sim = sim + simvol.text
Else
strr = Mid(str, 1, k)
str = Replace(str, strr, "", 1, 1)
schet = schet + strr
End If
Next i
If dop > 0 Then
otvet.Caption = otvet.Caption + schet
Else
otvet.Caption = "слова не найдены!"
End If
End Sub
Sub bukva_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (InStr("0123456789", Chr(KeyAscii)) = 0) Then
KeyAscii = 0
End If
End Sub
Private Sub simvol_Change()
If (simvol.text <> "") Or (text.text <> "") Or (bukva.text <> "") Then
CommandButton1.Enabled = True
End If
If (simvol.text = "") Or (text.text = "") Or (bukva.text = "") Then
CommandButton1.Enabled = False
End If
End Sub
Private Sub bukva_Change()
If (simvol.text <> "") Or (text.text <> "") Or (bukva.text <> "") Then
CommandButton1.Enabled = True
End If
If (simvol.text = "") Or (text.text = "") Or (bukva.text = "") Then
CommandButton1.Enabled = False
End If
End Sub
Private Sub text_Change()
If (simvol.text <> "") Or (text.text <> "") Or (bukva.text <> "") Then
CommandButton1.Enabled = True
End If
If (simvol.text = "") Or (text.text = "") Or (bukva.text = "") Then
CommandButton1.Enabled = False
End If
End Sub