Дана текстовая строка Найти какое-нибудь слово, начинающееся с заданной буквы. - VB

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

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

Программа не работает,нужно оформить пред условие,не могу понять как .Если можете,помогите Дана текстовая строка. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Найти какое-нибудь слово, начинающееся с заданной буквы. Private Sub Command1_Click() Dim s As String Dim p As Integer Dim k As Integer Dim s1 As String Dim s0 As String s = InputBox("введите предложение") s0 = InputBox("введите букву") p = o k = InStr(s, " ") s1 = Left(s, k) If (InStr(s1, s0) = 1) Then p = p + 1 s = Left(s, k) Print p End Sub

Решение задачи: «Дана текстовая строка Найти какое-нибудь слово, начинающееся с заданной буквы.»

textual
Листинг программы
Private Sub Command1_Click()
Dim s() As String
Dim k As Integer
Dim s1() As String
Dim s0 As String
s = Split(InputBox("введите предложение"), " ")
s0 = InputBox("введите букву")
For k = LBound(s) To UBound(s)
    If (Left(s(k), 1) = s0) Then
        Print s(k)
        'Exit For 'если нужно только одно слово
    End If
Next k
End Sub

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


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

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

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