Вывод слов с буквой k - VB
Формулировка задачи:
Доброе время суток!
Никак не могу решить такую вот задачу, а точнее только часть задачи:
Разработать приложение на Visual Basic Дана строка. Указать те слова, которые содержат хотя бы одну букву k.
Я никак не могу понять, какую часть кода программы нужно написать, чтобы при наличии только буквы k выводилось все слово целиком.
Заранее благодарен!
Решение задачи: «Вывод слов с буквой k»
textual
Листинг программы
Private Sub Command1_Click() Dim sText As String Dim arWords() As String Dim i As Integer Dim sOut As String Const PUNCTUATION = ".,?!"":;—" sText = Text1.Text For i = 1 To Len(PUNCTUATION) sText = Replace(sText, Mid(PUNCTUATION, i, 1), "") Next arWords = Split(sText, " ") For i = 0 To UBound(arWords) If InStr(arWords(i), "k") <> 0 Then sOut = sOut + vbCrLf + arWords(i) Next If Len(sOut) > 0 Then MsgBox "Naideno: " + vbCrLf + sOut, vbInformation + vbOKOnly, "poisk okon4en" Else MsgBox "Netu k.", vbInformation + vbOKOnly, "poisk okon4en" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д