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