Обработка строковых данных - VB

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

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

Помогите написать программу на visual basic. В заданной строке, состоящей из слов, разделенных одним или более пробела-ми, подсчитайте количество симметричных слов, т.е. читающихся одинаково слева направо и справа налево.

Решение задачи: «Обработка строковых данных»

textual
Листинг программы
Private Sub Command1_Click()
Dim txt$, i&, x
  txt = "Казак пошел в шалаш пережидать потоп"
  For Each x In Split(LCase(txt))
    If Len(x) > 1 Then If x = StrReverse(x) Then i = i + 1
  Next
  MsgBox i
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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