Imports System

Public Module Module1

    Public Sub Main()

        dim total as integer

        dim Number as integer

        console.writeline("What times tables do you need")

        Number = console.readline()

        for i = 1 to 12  

        Console.WriteLine(i & " * " & number & " = "  & i*number)

        total = total + i*number

    next

    console.writeline("the avagrage is " & total/12)

    End Sub

End Module