Символьные и строковые переменные - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д