Напечатать цифры от нуля до ста и обратно - Visual Basic .NET

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

Получилось только сделать цикл до 100 а как сделать обратный до 1 не знаю

Dim a As Long
        a = 0
m1:     MsgBox(a & " ")
        a = a + 1
        If a >= 100 Then MsgBox("Счет до 100 окончен") Else GoTo m1

null

После мучений что-то получилось.Но как сделать что-бы доходило до 100 а не до 99

Решение задачи: «Напечатать цифры от нуля до ста и обратно»

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

                            Dim i As Integer = 0
Dim iStep As Integer = 1
     Do
            i += iStep
            Debug.WriteLine(i)
            If i = 100 Then
                iStep = -1
            End If
     Loop Until i = 0
                        

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

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

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