Подсчитать количество слов после точки с запятой - VB
Формулировка задачи:
Кто может напишите пожалуйста программу (подсчитать количество символов после ; точки с запятой)
то есть количество слов, а не символов
Решение задачи: «Подсчитать количество слов после точки с запятой»
textual
Листинг программы
Private Sub Command1_Click()
Dim stroka As String, s
stroka = InputBox("", , "подсчитать количество слов после; точки с запятой")
s = Split(stroka, ";")
MsgBox "После " & "';' встречается" & vbCrLf & UBound(Split(s(1))) & " слов."
End Sub