Вывести все имеющиеся буквы "и", стоящие на четных местах - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д