Как в предложении найти слова, которые начинаются и оканчиваются одной и той же буквой - VB

Узнай цену своей работы

Формулировка задачи:

в предложении найти слова, которые начинаются и оканчиваются одной и той же буквой. например: клюет, и бросает, и смотрит в окно, как будто со мною задумал одно. ответ: окно, как, одно

Решение задачи: «Как в предложении найти слова, которые начинаются и оканчиваются одной и той же буквой»

textual
Листинг программы
  1. Option Explicit
  2. Private Sub Form_Load()
  3.     Dim Text As String, Out As String, i As Long, p As Long
  4.     Text = "клюет, и бросает, и смотрит в окно, как будто со мною задумал одно"
  5.     Text = Text & " "
  6.     i = 1: p = 1
  7.     Do Until i > Len(Text)
  8.         Select Case Mid$(Text, i, 1)
  9.         Case " ", ",", ".", "!", "?"
  10.             If i - p > 1 And Mid$(Text, p, 1) = Mid$(Text, i - 1, 1) Then _
  11.                 Out = Out & " " & Mid$(Text, p, i - p)
  12.             p = i + 1
  13.         End Select
  14.         i = i + 1
  15.     Loop
  16.     MsgBox Out
  17. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.923 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы