Imports System

Public Module Module1

    Public Sub Main()

        Dim TotalQuestions as Integer

        Dim Tablechoice as Integer 

        Dim UserAnswer as Integer 

        Dim Randomnumber as Integer 

        Dim RandomClass as new Random(52)

        Dim Score as Integer 

        Dim Name as String 

        TableChoice = 0

        Console.Writeline ("Please enter your name" )

        Name = Console.Readline()

            Console.WriteLine("Enter TableChoise - Between 2 and 12")

        While TableChoice < 1 or Tablechoice > 12

            TableChoice = Console.Readline()

        End While 

        For TotalQuestions = 1 to 5

        RandomNumber = RandomClass.next(2,12)

    Console.writeline("What is" & TableChoice & "X" & RandomNumber )

    UserAnswer = Console.readline()

    If UserAnswer = TableChoice * RandomNumber then

        Score = Score + 1 

        Console.writeline("Correct")

    Else Console.Writeline("Incorrect")

    End if 

Next 

Console.Writeline( Name & "Your total score is" & Score & "Out of 5" ) 

If Score = 5 Then 

    Console.Writeline( "Well done full marks")

Else 

    Console.Writeline("Have another practice")

end if 

    End Sub

End Module