Решение. В текстовое поле Text1 вводится текст, а в текстовое поле Text2 вводится искомое слово

В текстовое поле Text1 вводится текст, а в текстовое поле Text2 вводится искомое слово. После нажатия кнопки в текстовом поле Text3 появляется информация о количестве найденных слов.

Внешний вид формы.

Текст программы.

Private Sub Command1_Click()

S1 = Text1.Text

s2 = Text2.Text

X1 = Len(S1) ‘определяем длину строки Х1

X2 = Len(s2) ‘определяем длину строки Х2

ct = 0 ‘обнуляем счетчик найденных слов

For i = 1 To (X1 - X2)

s3 = Mid(S1, i, X2) ‘выделяем с позиции i в строке S1 X2 символов

If s3 = s2 Then ct = ct + 1

Next i

Text3.Text = ct

End Sub

Дата добавления: 2015-08-27