Вывести все имеющиеся буквы "и", стоящие на четных местах - 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
Похожие ответы