Найти и напечатать слова и их количество, которые содержат по 2 буквы "А " - VB
Формулировка задачи:
Дано текст, содержащий буквы и пробелы. Найти и напечатать слова и их количество, которые содержат по 2 буквы "А ". Словом считать последовательность букв, разделенных пробелами.
Решение задачи: «Найти и напечатать слова и их количество, которые содержат по 2 буквы "А "»
textual
Листинг программы
Sub Task() For Each oWord In Split(InputBox("Ввод строки:")) If UBound(Split(oWord, "A")) = 2 Then sMsg = sMsg & oWord & ", " Next MsgBox sMsg End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д