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