Imports System

Public Module Module1

    Public Sub Main()

        Dim Question(10) As string

        Dim Answer(10) As string

        Dim UserAnswer As String

        Dim score as Integer

        Question(1)= "1+2+3+4+5+6+...+100 = "

        Question(2)= "(45-651÷21)*33="

        Question(3)= "6÷2(1+2)="

        Question(4)= "198÷(121÷11)="

        Question(5)= "76*19÷3= (2dp)"

        Question(6)= "(346-10)÷16-12="

        Question(7)= "1+3+5+7+9+11+13 = "

        Question(8)= "139*224 = "

        Question(9)= "(-2)*|-5|-|-3|= "

        Question(10)= "A,B are two prime number and have differece of 2, Which is the possible answer of (AB+1)? A)1521 B)1600 C)1681 D)1764"

        Answer(1)="5050"

        Answer(2)="462"

        Answer(3)="9"

        Answer(4)="18"

        Answer(5)="481.33"

        Answer(6)="9"

        Answer(7)="49"

        Answer(8)="31136"

        Answer(9)="-13"

        Answer(10)="D"

        Score = 0

        for i = 1 to 10

            Console.WriteLine(Question(i))

            UserAnswer = Console.ReadLine()

        if UserAnswer = Answer(i) then

                Console.WriteLine("Well done!")

            score = score+ 1

            else

                Console.WriteLine("Wrong! answer is " & Answer(i))

            end if

        next i

    Console.WriteLine("You scored " & score & " out of 10")

​

    End Sub

End Module