Imports System

Public Module Module1

    Public Sub Main()

        Dim Num as integer

        Dim Count as integer 

        Dim Answer as integer

        Console.WriteLine("Please enter a number")

        Num=Console.ReadLine()

        Console.WriteLine("TIMES TABLE RESULTS")

    For Count = 1 to 12

            Answer = Num * Count

            Console.WriteLine(Count & "x" & Num & "=" & Answer)

    Next

    End Sub

End Module

​