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