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