Imports System

Public Module Module1

    Public Sub Main()

        Dim Tables As Integer

        Dim Counter as Integer

        Dim Answer as integer

        Console.WriteLine("Which times table do u want to learn?")

        Tables = Console.ReadLine()

        For Counter = 1 To 10

        Answer = Counter * Tables

        Console.WriteLine(Counter & "times" & Tables & "is" & Answer)

    Next

    End Sub

End Module