Дана текстовая строка Найти какое-нибудь слово, начинающееся с заданной буквы. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д