Visual Basic.Нужно распечатать в столбик все слова и числа строки, стоящие на четных местах.

[ride013]

Вот что у меня получилось, работает только для слов, а как сделать чтобы и для цифр работало, никак не разберусь((

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

[was3110]

уточните версию Visual Basic ...

[was3110]

У меня на VB6 все работает

Private Sub Command2_Click()
Dim T, j, ar

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

[ride013]

от души) спасибо)