Подсчитать, сколько слов в тексте оканчивается на букву а - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.25 из 5
Похожие ответы