Как подсчитать количество символов в строке - VB

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

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

Дана текстовая строка. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Подсчитать количество символов “a” в последнем слове данной строки

Решение задачи: «Как подсчитать количество символов в строке»

textual
Листинг программы
Sub Liss_Ксюша()
'Дана текстовая строка.
Dim T As String
T = InputBox("Дайте текстовую строку:", , "Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами.")
 
'Группы символов, разделенные пробелами (одним или несколькими)
'и не содержащие пробелов внутри себя, будем называть словами.
Dim s() As String 'массив
s = Split(trim$(T)) 'слов
 
'Подсчитать количество символов “a” в последнем слове данной строки
Dim a() As String
a = Split(s(UBound(s)), "а", , vbTextCompare)
MsgBox "В слове """ & s(UBound(s)) & """ " & UBound(a) & " букв(а|ы) ""а"""
End Sub

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


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

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

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