Обработка строк - VB (172162)

Узнай цену своей работы

Формулировка задачи:

Ввести текст.Вывести все слова с заданным количеством символов.Помогите пожалуйста,у меня что-т не получаеться)

Решение задачи: «Обработка строк»

textual
Листинг программы
Private Sub Form_Load()
    Dim s() As String, n As Integer, i As Integer, z As String
    s = Split(InputBox("Ââåäèòå ñòðîêó"), " ")
    n = CInt(InputBox("Ââåäèòå êîëè÷åñòâî ñèìâîëîâ"))
    z = ""
    For i = LBound(s) To UBound(s)
        If (Len(s(i)) = n) Then
            z = z + s(i) + vbCrLf
        End If
    Next i
    MsgBox z
    End
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 4.8 из 5