Imports System

Public Module Module1

    Public Sub Main()

        Dim Number As Integer

        Dim CorrectAnswer As Integer

        Dim UserAnswer As Integer

        Dim Score As Integer

        Dim Grade As Char

        Console.Writeline("Please enter a number from 1 - 100")

        Number = Console.Readline()

        Score = 0

        For i = 1 To 12

        Console.Writeline(i & " x " & Number & " = " )

        UserAnswer = Console.Readline()

        CorrectAnswer = i * Number

        IF UserAnswer = CorrectAnswer Then 

        Console.Writeline("WELL DONE!!GOOD JOB!! :) ")

            Score = Score + 1

        Else Console.Writeline("BAD LUCK MAN, THE CORRECT ANSWER IS " & i * Number & "!! :( ")

        End if

        Console.Writeline( "YOUR SCORE IS " & Score & "!!" )

    Next

    ' PSEUDOCODE

    '============

'   INTEGER: Number

'   INTEGER: CorrectAnswer

'   INTEGER: UserAnswer

'   INTEGER: Score

​

' OUTPUT: "Please enter a number from 1 - 9"

' INPUT: Number

'   Score <- 0

​

' FOR i 1 TO 12

' OUTPUT: i, " x ", Number, " = ", 

    ' INPUT: UserAnswer

    ' CorrectAnswer <- i * Number

    'IF UserAnswer <- CorrectAnswer THEN

    ' OUTPUT: "WELL DONE!!GOOD JOB!! :) "

    ' Score <- Score + 1

    ' ELSE OUTPUT: "BAD LUCK MAN, THE CORRECT ANSWER IS " , i * Number , "!! :( "

' END IF

'   OUTPUT: "YOUR SCORE IS " , Score , "!!" 

' NEXT

    End Sub

End Module