Оптимизировать код, содержащий вложенные циклы - Visual Basic .NET

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

Вот код :
Dim a As Long
        Do
            a += 1
            Console.WriteLine(a)
m1:         If a <> 10000 Then
                Do
                    a -= 1
                    Console.WriteLine(a)
                    If a = 0 Then
                        Do
                            a += 1
                            Console.WriteLine(a)
 
                            If a = 10000 Then
                                Do
                                    a += 1
                                    Console.WriteLine(a)
                                    GoTo m1
                                Loop
                            End If
 
                        Loop
                    End If
                Loop
            End If
                Loop

Код к задаче: «Оптимизировать код, содержащий вложенные циклы - Visual Basic .NET»

textual
m1: for a=1 to 10000: Console.WriteLine(a): Next a
for a=10000 to 1 step -1: Console.WriteLine(a): Next a
goto m1

9   голосов, оценка 3.778 из 5


СОХРАНИТЬ ССЫЛКУ