Напечатать цифры от нуля до ста и обратно - 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
Добавлено через 5 минут
Dim a As Long
        a = 0
m1:     MsgBox(a & " ")
        a = a + 1
        If a >= 100 Then GoTo m2 Else GoTo m1
m2:     a = a - 1
        MsgBox(a & "  ")
        If a = 1 Then MsgBox("Счет окончен") Else GoTo m2
После мучений что-то получилось.Но как сделать что-бы доходило до 100 а не до 99

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ