Найти все слова, в которых буква "а" встречается более чем один раз - 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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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