Слова заканчиваются на заданую букву - VBA
Формулировка задачи:
Доброго времени суток! Помогите, пожалуйста, доработать. Нужно найти все слова , что заканчиваються на заданную букву, проблема том, что мой вариант склеивает все слова, что стоят после первых, какие заканчиваються на заданую букву
Private Sub CommandButton3_Click()
Dim sl, a As String
Dim f_l As String
Dim l_l As String
Dim i As Integer
a = (InputBox("input text")) & " "
sl = ""
last_l = (InputBox("input last letter"))
For i = 1 To Len(a)
If Mid(a, i, 1) <> " " Then
sl = sl + Mid(a, i, 1)
Else
If Mid(sl, Len(sl), 1) = l_l Then
MsgBox sl
sl = ""
End If
End If
Next i
End Sub
Решение задачи: «Слова заканчиваются на заданую букву»
textual
Листинг программы
- Sub слова()
- Dim s$, el
- s = (InputBox("input text")) & " "
- last_l = (InputBox("input last letter"))
- For Each el In Split(s)
- If Right(el, 1) Like last_l Then MsgBox el
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
