Module Module1
 
    Sub Main()
 
        ' Declare variables.
        Dim tablenum, var As Double
 
        ' Start of the Do loop that allows us to continually input new numbers.
        Do
 
            ' Ask user for an input and set tablenum to it.
            Console.Write("Enter the number you want to see multiplications for: ")
            tablenum = Console.ReadLine()
 
            ' Check if the number is going to cause an overflow and crash the program.
            If (tablenum >= 999999999999999999) Then
                Console.WriteLine("That number is too long - please use a smaller one...")
                Console.WriteLine(" ")
 
                ' If everything is OK, procede to output the multiplication table.
            Else
                Console.WriteLine(" ")
 
                ' A basic for loop that will output the line 12 times. 
                '"Next" automatically increases var by one on each iteration.
                For var = 1 To 12
                    Console.WriteLine(var & " * " & tablenum & " = " & var * tablenum & ".")
                Next
                Console.WriteLine(" ")
            End If
 
            ' Make it loop endlessly so that the user can keep inputting numbers until they close the program.
        Loop Until 1 = 2
    End Sub
 
End Module

Commenting Options