Символьные и строковые переменные - VB

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

Помогите решить задачу: Дана строка, состоящая из слов, разделенных пробелами. Найти все слова, которые начинаются и заканчиваются одной и той же буквой.

Решение задачи: «Символьные и строковые переменные»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Task()
Dim sStr As String, oWord
For Each oWord In Split(LCase(InputBox("Ввод строки:")))
    If Len(oWord) > 1 Then
        If Right$(oWord, 1) = Left$(oWord, 1) Then sStr = sStr & oWord & ", "
    End If
Next
MsgBox sStr
End Sub

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

7 голосов , оценка 3.429 из 5

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

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

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