Сколько раз входят два слова в текст и сколько раз они входят непосредственно друг за другом - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д