Подсчитать количество слов после точки с запятой - VB

Узнай цену своей работы

Формулировка задачи:

Кто может напишите пожалуйста программу (подсчитать количество символов после ; точки с запятой)
то есть количество слов, а не символов

Решение задачи: «Подсчитать количество слов после точки с запятой»

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.6 из 5
Похожие ответы