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