Сколько раз входят два слова в текст и сколько раз они входят непосредственно друг за другом - VB

Узнай цену своей работы

Формулировка задачи:

Дан текст на русском языке и некоторые два слова. Определить, сколько раз они входят в текст и сколько раз они входят непосредственно друг за другом. (Рационально)
На вижуал бэйсеке

Решение задачи: «Сколько раз входят два слова в текст и сколько раз они входят непосредственно друг за другом»

textual
Листинг программы
Dim qw As Long ' для поиска
Private Sub Command1_Click() 
If InStr(qw, Text2.Text, Text1.Text) <> 0 Then 'Сверяется текстовые поля
Text2.SetFocus 'На Text2 ставим курсор
Text2.SelStart = InStr(qw, Text2.Text, Text1.Text) - 1 'Устанавливаем курсор перед  словом
Text2.SelLength = Len(Text1.Text) 'С помощью функции Len считаем сколько символов в Текстовом поле выделяем
qw = InStr(qw, Text2.Text, Text1.Text) + Len(Text1.Text) ' Изменяем переменную qw что бы при следующем поиске, не искать уже найденное слово, а искать след. слово
Else ' Если в тексте больше нет искомого слова, то выводим об этом сообщение.
MsgBox "Здесь таких нет!!!"
End If
End Sub
Private Sub Form_Load()
qw = 1
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.667 из 5
Похожие ответы