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