Imports System

Public Module Module1

    Public Sub Main()

        Dim Tables as integer

        dim Counter as integer

        dim Answer as integer

        console.writeline("Input your numbers")

        Tables = console.readline()

        console.writeline("The times tables for number: " & Tables & " is:")

        For Counter = 0 to 10

        Answer = Tables * Counter

        console.writeline(Answer)

        Next

        dim counter2 as integer = 0

        do while counter2 <= 10

        console.writeline(counter2)

        counter2 = counter2 + 1

        loop

        dim counter3 as integer = 0

        do until counter3 > 10

        console.WriteLine(counter3)

        counter3 = counter3 + 1

        loop

    dim dumdumlvl as integer = 0

        do

        console.writeline("your dumdum level is " & dumdumlvl)

        dumdumlvl = dumdumlvl + 10

        if dumdumlvl > 9000

            console.writeline("WARNING: DUMDUM LEVEL HAS EXCEEDED 9000. SELF DESTRUCTING IMMEDIATELY.")

            exit do

            end if

        loop while dumdumlvl < 9011

    End Sub

End Module