Как в предложении найти слова, которые начинаются и оканчиваются одной и той же буквой - VB
Формулировка задачи:
в предложении найти слова, которые начинаются и оканчиваются одной и той же буквой.
например: клюет, и бросает, и смотрит в окно, как будто со мною задумал одно.
ответ: окно, как, одно
Решение задачи: «Как в предложении найти слова, которые начинаются и оканчиваются одной и той же буквой»
textual
Листинг программы
Option Explicit Private Sub Form_Load() Dim Text As String, Out As String, i As Long, p As Long Text = "клюет, и бросает, и смотрит в окно, как будто со мною задумал одно" Text = Text & " " i = 1: p = 1 Do Until i > Len(Text) Select Case Mid$(Text, i, 1) Case " ", ",", ".", "!", "?" If i - p > 1 And Mid$(Text, p, 1) = Mid$(Text, i - 1, 1) Then _ Out = Out & " " & Mid$(Text, p, i - p) p = i + 1 End Select i = i + 1 Loop MsgBox Out End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д