Символьные и строковые переменные - 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