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

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

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

Код к задаче: «Символьные и строковые переменные - 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


СОХРАНИТЬ ССЫЛКУ