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

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

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

Код к задаче: «Вывести все имеющиеся буквы "и", стоящие на четных местах - 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.100 из 5


СОХРАНИТЬ ССЫЛКУ