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