Вывести на экран слова, содержащие три буквы - VB

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

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

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы. Строка "Сегодня для неё я буду тут проездом."

Решение задачи: «Вывести на экран слова, содержащие три буквы»

textual
Листинг программы
' возрашает строку str, в коротой символ src заменен на dst;Replace("корова","о","а")="карава"
Function Replace(str As String, src As String, dst As String) As String
 
End Function
 
 
Sub www()
Dim str, s
str = "Сегодня для неё я буду тут проездом."
For Each s In split(Replace(str, ".", ""), " ")
'For Each s In split(Replace(str, ".", ""))
    If Len(s) = 3 Then
Debug.Print s
End If
Next s
End Sub

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


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

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

14   голосов , оценка 3.786 из 5
Похожие ответы