Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("This is Maths")
dim n1 as string
console.WriteLine("Enter a Number")
n1 = console.ReadLine()
console.WriteLine("This is the first 100 multiples of your number")
For I = 2 To 100
console.WriteLine(n1*I)
next
console.writeLine("Computers are good at maths")
End Sub
End Module