Как подсчитать количество символов в строке - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д