Visual Basic

[MaXgo]

Снова столкнулся с проблемой!(
Помогите решить вот такую задачку:

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

[MaXgo]

Объясните пожалуйста.

[Rififi]

MaXgo

Объясните пожалуйста.

например в такой строке "маама мыла раааму" программа должна найти слова "маама" и "раааму"

[MaXgo]

Сообщение от Rififi

MaXgo

Объясните пожалуйста.

например в такой строке "маама мыла раааму" программа должна найти слова "маама" и "раааму"

Это я понял.
Я не могу додуматься как код написать все правильно, что первое и тд.

[Rififi]

Ну сначала, очевидно, нужно разбить строку на отдельные слова
смотри справку по VB

[MaXgo]

Сообщение от Rififi

Ну сначала, очевидно, нужно разбить строку на отдельные слова
смотри справку по VB

Смотрел я справки разные и ничего(

[DiemonStar]

Сообщение от MaXgo

Смотрел я справки разные и ничего(

Значит плохо смотрели. Вот такой код для VBA очень неплохо работает:

Sub dd()
  s = "dad tata yaay erer"
  A = Split(s, " ")
  For I = 0 To UBound(A)
    J = InStr(1, A(I), "a")
    A(I) = IIf(J > 0, IIf(InStr(J + 1, A(I), "a") > J, A(I), ""), "")
  Next I
  s = Trim(Join(A, " "))
  MsgBox s
End Sub

[MaXgo]

Сообщение от DiemonStar

Значит плохо смотрели. Вот такой код для VBA очень неплохо работает:

Sub dd()
  s = "dad tata yaay erer"
  A = Split(s, " ")
  For I = 0 To UBound(A)
    J = InStr(1, A(I), "a")
    A(I) = IIf(J > 0, IIf(InStr(J + 1, A(I), "a") > J, A(I), ""), "")
  Next I
  s = Trim(Join(A, " "))
  MsgBox s
End Sub

Спасибо Вам большое)