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