Бывает дан текст и надо узнать сколько раз там встречается заданная буква (или набор букв, слов, словосочетаний и т.д.). Если текст маленький, то проблем это не составит, а вот если это «Война и мир»!? Не считать же вручную!? Вот для этих работ нам пригодится программирование

Для начала откроем бейсик :), создадим проект «Standart EXE», поставим на форму:
два текстовых поля. сразу для удобства изменим у них свойство multilune на True

И еще одно текстовое поле. Свойство multiline тут менять нет необходимости.
И одну кнопку

Теперь дважды щелкаем по форме и удаляем появившийся код. теперь вставляем этот:

Private Sub Command1_Click()

Dim S As String
Dim C As String
Dim K As Integer
K = 0
S = Text2.Text
C = Text1.Text
For I = 1 To Len(S)
If C = Mid(S, I, Len(C)) Then K = K + 1
Next I
Text3.Text = K
End Sub

Готовый проект «количество вхождений подстроки в строку»: 

  bukva-v-slove.rar (1,3 KiB, 757 hits)