Вывод слов с буквой 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

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы