Найти все слова, в которых буква "а" встречается более чем один раз - VB

Узнай цену своей работы

Формулировка задачи:

Помогите решить задачу.
Дана строка, состоящая из слов, разделенных любым количеством пробелов. Напишите программу, которая находит все слова, в которых буква ”а” встречается более чем один раз.
Очень прошу. Заранее спасибо.)

Решение задачи: «Найти все слова, в которых буква "а" встречается более чем один раз»

textual
Листинг программы
temp = Split(Replace(Replace(st, ".", " "), ",", " "))
    For i = 0 To UBound(temp)
        If UBound(Split(temp(i), letter)) >= 2 Then res = res & temp(i) & vbCrLf

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

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