Вывести все имеющиеся буквы "и", стоящие на четных местах - VB

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

Люди помогите, с вот такой задачкой: Дано предложение. Вывести все имеющиеся буквы "и", стоящие на четных местах.

Решение задачи: «Вывести все имеющиеся буквы "и", стоящие на четных местах»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
s = "ГЁГҐГ*ГЇГЁГ»ГЁГ*ГЁГЇГґГЁГ»ГўГЁГ° ГЁГ»ГЁГ»ГЁГЇГ*ГЁГ»Г*ГЇГҐГЁГ»ГЁГ*Г*" 'Text1.Text
For i = 2 To Len(s) Step 2
  If Mid(s, i, 1) = "ГЁ" Then MsgBox "ГЁ"
Next
End Sub
                        

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

10 голосов , оценка 4.1 из 5

Похожие ответы