' Times Table Test

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

Imports System

Public Module Module1

    Public Sub Main()

        Dim Number, UserAnswer, CorrectAnswer, Score As Integer

​

        Console.WriteLine("Please enter a number from 1 - 9")

        Number = Console.ReadLine()

        For i = 1 To 12

​

            Console.WriteLine(i & " x " & Number & " = ?")  

            CorrectAnswer = i * Number

            Console.WriteLine("Enter your answer")

            UserAnswer = Console.ReadLine()

            if UserAnswer = CorrectAnswer Then

                Console.WriteLine("Well done!")

                Score = Score + 1

            else

                Console.WriteLine("Hard luck! The correct answer is " & CorrectAnswer)

            end if

        Next

        Console.WriteLine("You scored " & Score & " out of 12")

    End Sub

End Module

​

' PSEUDOCODE

' ==========

'

' INTEGER: Number, UserAnswer, CorrectAnswer, Score

'

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

' INPUT Number

'

' FOR i <-- 1 TO 12

'

'   CorrectAnswer <-- i * Number

'

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

'

'   OUTPUT "Enter answer"

'   INPUT UserAnswer

'

'   IF UserAnswer = CorrectAnswer THEN

'       OUTPUT "Well done!"

'       Score <-- Score + 1

'   ELSE

'       OUTPUT "Hard luck! The correct answer is ", CorrectAnswer

'   ENDIF

'

' NEXT

'

' OUTPUT "You scored ", Score, " out of 12"

​

​

​

​

​