Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim n as integer = 49

        while n < 75

            n = n + 1

            console.WriteLine(n)

        end while

​

        Dim x as integer = 11

        while x > 1

            x = x - 1

            console.WriteLine(x)

        end while

​

        Dim y as integer = 0

        while y < 70

            y = y + 7

            console.WriteLine(y)

        end while

        Dim r as integer

        Dim c as integer

        while r < 10

            r = r + 1

            c = 0

            while c < 10

                c = c + 1

                console.Write(c)

            end while

            console.WriteLine()

        end while

    End Sub

End Module

​