Imports System

Public Module Module1

    Sub Main()

        dim tt as integer 

        dim a as integer

        dim b as integer = 0

        dim rg as New Random()

            console.writeline ("Enter a time table")

            tt = console.readline()

​

            For n As Integer = 1 to 4

                    dim randomNumber as integer = rg.Next(1, 12)

                    console.writeline ("What does " & tt & " x " & randomNumber & " equal?")

                    a = console.readline()

​

                    if a = (tt * randomNumber)

                        console.writeline ("Correct")

                        b= b+1

                    else 

                        console.writeline ("Incorrect")

                    end if

            next n 

​

            console.writeline ("Your score is " & b & "/" & "4")

    End Sub

End Module

​