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