Обработка строковых данных - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы