Найти и напечатать слова и их количество, которые содержат по 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