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