Дана текстовая строка Найти какое-нибудь слово, начинающееся с заданной буквы. - 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

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

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

Похожие ответы