Imports System

Public Module Module1

    Public Sub Main()

        dim  table, count, output as Integer

        Console.WriteLine("Enter the number for table")

        table=Console.ReadLine()

        For count = 1 to 10

        output= table*count

        Console.WriteLine(table & "x" & count & "=" & output)

    Next 

​

    End Sub

End Module