Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim idx as integer

        '1

        Console.Writeline("#1") 

        Console.WriteLine("_________")

        idx = 49

        Console.WriteLine("")

        while idx < 75

            idx = idx + 1

            Console.WriteLine(idx)

        end while

            Console.Writeline("#2") 

        Console.WriteLine("_________")

        idx = 11

        Console.WriteLine("")

        while idx > 1

            idx = idx - 1

            Console.WriteLine(idx)

        end while

            Console.Writeline("#3") 

        Console.WriteLine("_________")

        idx = 0

        Console.WriteLine("")

        while idx < 70

            idx = idx + 7

            Console.WriteLine(idx)

        end while

    End Sub

End Module

​

​

​

​