Imports System

​

Public Module Module1

​

    Sub Main()

        Dim score as integer

        Dim answer as string

        Dim onecorrect as Integer

        Dim twocorrect as Integer

        Dim threecorrect as Integer

        Dim fourcorrect as Integer

        Dim fivecorrect as Integer

        Dim sixcorrect as Integer

        Dim sevencorrect as Integer

        Dim eightcorrect as Integer

        Dim ninecorrect as Integer

        Dim tencorrect as Integer

        onecorrect = 0

        twocorrect = 0

        threecorrect = 0

        fourcorrect = 0

        fivecorrect = 0

        sixcorrect = 0

        sevencorrect = 0

        eightcorrect = 0

        ninecorrect = 0

        tencorrect = 0

        score = 0

        Console.WriteLine("1. What is 15 + 22?")

        Console.WriteLine("a) 37")

        Console.WriteLine("b) 28")

        Console.WriteLine("c) 35")

        Console.WriteLine("d) 12")

        answer = Console.ReadLine()

        if answer = "a"

            score = score + 1

        else 

            onecorrect = 1

        end if

        Console.WriteLine("2. What 18 / 6?")

        Console.WriteLine("a) 2")

        Console.WriteLine("b) 4")

        Console.WriteLine("c) 3")

        Console.WriteLine("d) 12")

        answer = Console.ReadLine()

        if answer = "c"

            score = score + 1

        else 

            twocorrect = 1

        end if

        Console.WriteLine("3. What is 4 * 6?")

        Console.WriteLine("a) 26")

        Console.WriteLine("b) 24")

        Console.WriteLine("c) 20")

        Console.WriteLine("d) 18")

        answer = Console.ReadLine()

        if answer = "b"

            score = score + 1

        else 

            threecorrect = 1

        end if

        Console.WriteLine("4. What is 39 - 17?")

        Console.WriteLine("a) 22")

        Console.WriteLine("b) 13")

        Console.WriteLine("c) 21")

        Console.WriteLine("d) 16")

        answer = Console.ReadLine()

        if answer = "a"

            score = score + 1

        else

            fourcorrect = 1

        end if

        Console.WriteLine("5. What is 4 ^ 2?")

        Console.WriteLine("a) 10")

        Console.WriteLine("b) 12")

        Console.WriteLine("c) 8")

        Console.WriteLine("d) 16")

        answer = Console.ReadLine()

        if answer = "d"

            score = score + 1

        else

            fivecorrect = 1

        end if

        Console.WriteLine("6. What is 19 - 6?")

        Console.WriteLine("a) 12")

        Console.WriteLine("b) 10")

        Console.WriteLine("c) 13")

        Console.WriteLine("d) 11")

        answer = Console.ReadLine()

        if answer = "c"

            score = score + 1

        else

            sixcorrect = 1

        end if

        Console.WriteLine("7. What is 20 / 5?")

        Console.WriteLine("a) 4")

        Console.WriteLine("b) 2")

        Console.WriteLine("c) 5")

        Console.WriteLine("d) 6")

        answer = Console.ReadLine()

        if answer = "a"

            score = score + 1

        else

            sevencorrect = 1

        end if

        Console.WriteLine("8. What is 5 ^ 2?")

        Console.WriteLine("a) 20")

        Console.WriteLine("b) 15")

        Console.WriteLine("c) 10")

        Console.WriteLine("d) 25")

        answer = Console.ReadLine()

        if answer = "d"

            score = score + 1

        else

            eightcorrect = 1

        end if

        Console.WriteLine("9. What is 52 - 27?")

        Console.WriteLine("a) 25")

        Console.WriteLine("b) 19")

        Console.WriteLine("c) 31")

        Console.WriteLine("d) 28")

        answer = Console.ReadLine()

        if answer = "a"

            score = score + 1

        else

            ninecorrect = 1

        end if

        Console.WriteLine("10. What is 14 - 9?")

        Console.WriteLine("a) 6")

        Console.WriteLine("b) 5")

        Console.WriteLine("c) 4")

        Console.WriteLine("d) 7")

        answer = Console.ReadLine()

        if answer = "b"

            score = score + 1

        else

            tencorrect = 1

        end if

        Console.WriteLine("You answered {0} out of 10 correct.", score)

        if onecorrect = 1

            Console.WriteLine("You missed question 1.")

        end if

        if twocorrect = 1

            Console.WriteLine("You missed question 2.")

        end if

        if threecorrect = 1

            Console.WriteLine("You missed question 3.")

        end if

        if fourcorrect = 1

            Console.WriteLine("You missed question 4.")

        end if

        if fivecorrect = 1

            Console.WriteLine("You missed question 5.")

        end if

        if sixcorrect = 1

            Console.WriteLine("You missed question 6.")

        end if

        if sevencorrect = 1

            Console.WriteLine("You missed question 7.")

        end if

        if eightcorrect = 1

            Console.WriteLine("You missed question 8.")

        end if

        if ninecorrect = 1

            Console.WriteLine("You missed question 9.")

        end if

        if tencorrect = 1

            Console.WriteLine("You missed question 10.")

        end if

    End Sub

End Module

​