Записать числа от а до b в порядке возрастания. В чем ошибка? - VB

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

Нужно записать числа от а до b в порядке возрастания. Помогите исправить ошибку!

Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, i() As Integer
a = InputBox("Введите число")
b = InputBox("Введите число")
If a > b Then
For i = a To b
Debug.Print i
Else
For i = b To a
Debug.Print i
Next i
Next i
End If
End If
End Sub

Решение задачи: «Записать числа от а до b в порядке возрастания. В чем ошибка?»

textual
                            Листинг программы 
                        

                            Else
For i = b To a 
Debug.Print i 
Next i
                        

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

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

Похожие ответы