Подсчитать, сколько слов в тексте оканчивается на букву а - VB
Формулировка задачи:
Подсчитать, сколько слов в тексте оканчивается на букву а
Решение задачи: «Подсчитать, сколько слов в тексте оканчивается на букву а»
textual
Листинг программы
Sub Form_Load()
Const GLAS = "аяэеыиоёую"
Dim s$, i&
s = InputBox("Введите строку", , _
"Из строки удалить все гласные звуки. Есть какая нибудь форма или прописать лучше все гласные буквы?")
For i = 1 To Len(GLAS)
s = Replace$(s, Mid$(GLAS, i, 1), "", , , vbTextCompare)
Next
MsgBox "Бз глснх" & vbLf & s
End Sub