Нужно распечатать в столбик все слова строки, стоящие на четных местах.
Вот что у меня получилось
Private Sub Command1_Click()
Dim T
Dim J
Cls
T = InputBox("Ввести тектс без знаков препинания", "", "На улице холодно")
For J = 1 To UBound(Split(T, " ")) Step 2
Print Split(T, " ")(J)
Next J
End Sub
Но программа работает не коректно, при вводе цифр она их не выводит
не могу разобраться как выводить и цифры..
Раздел: Другое, последний комментарий: 19.04.2011 22:27 Тема закрыта пользователем lenajuk по причине Тема закрыта.
Нужно распечатать в столбик все слова строки, стоящие на четных местах.
Вот что у меня получилось
Private Sub Command1_Click()
Dim T
Dim J
Cls
T = InputBox("Ввести тектс без знаков препинания", "", "На улице холодно")
For J = 1 To UBound(Split(T, " ")) Step 2
Print Split(T, " ")(J)
Next J
End Sub
Но программа работает не коректно, при вводе цифр она их не выводит
не могу разобраться как выводить и цифры..
+0.01$
+1 Cr
хорошая тема
плохая тема
Cls
T = InputBox("введите строку с числами", " ", "Вот такие числа 45 и 876")
Print T
ar = Split(T, " ")
For j = 1 To UBound(ar) Step 2
Print ar(j)
Next j
End Sub