Как вывести те слова, в которых буква "а" повторяется дважды - VBA

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

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

Помогите пожалуйста, никак не могу понять в чем дело. мне нужно сделать 1.Вывести те слова, в которых буква «а» повторяется дважды 2. Ту же программу написать как подпрограмму процедуру. Написал код, но не работает

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

textual
Листинг программы
Sub cvb1()
Dim s$, i&, ls&, k%, j&, sym$, m&
i = 1: m = 1
While i <> 0
    s = Cells(i, 1).Value 'считываем
    ls = Len(s)
    If ls = 0 Then Exit Sub 'длина слова=0 - выход
    k = 0
    For j = 1 To ls
        sym = Mid(s, j, 1)
        If sym = "а" Or sym = "А" Then k = k + 1
        If k = 2 Then
            Cells(m, 2).Value = s: m = m + 1 'запись, m-чтобы небыло пустых строк
            Exit For
        End If
    Next
    i = i + 1
Wend
End Sub

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

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