Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim tables as integer

        console.WriteLine("Table of?")

        tables = console.ReadLine()

        console.WriteLine("-------------")

        for number = 1 to 10

            console.WriteLine(tables & "X" & number & "=" & tables * number)

        next

    End Sub

End Module

​