Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim OneAnswer as integer

        Dim TwoAnswer as integer

        Dim ThreeAnswer as integer

        Dim FourAnswer as integer

        Dim FiveAnswer as integer

        Dim SixAnswer as integer

        Dim SevenAnswer as integer

        Dim EightAnswer as integer

        Dim NineAnswer as integer

        Dim TenAnswer as integer

        Console.WriteLine("ENTER THE ANSWER NOT THE LETTER OF THE ANSWER")

        Console.WriteLine("1. What is 2 + 3?")

        Console.WriteLine("A: -1")

        Console.WriteLine("B: 4")

        Console.WriteLine("C: 6")

        Console.WriteLine("D: 5")

        OneAnswer = Console.ReadLine()

        If OneAnswer = 5 then

            OneAnswer = 1

        else

            OneAnswer = 0

        end if

​

        Console.Clear()

        Console.WriteLine("2. What is 13 * 6?")

        Console.WriteLine("A: 63")

        Console.WriteLine("B: 78")

        Console.WriteLine("C: 75")

        Console.WriteLine("D: 81")

        TwoAnswer = Console.ReadLine()

        If TwoAnswer = 78 then

            TwoAnswer = 1

        else

            TwoAnswer = 0

        end if

​

        Console.Clear()

        Console.WriteLine("3. What is 114 / 3?")

        Console.WriteLine("A: 40")

        Console.WriteLine("B: 36")

        Console.WriteLine("C: 38")

        Console.WriteLine("D: 42")

        ThreeAnswer = Console.ReadLine()

        If ThreeAnswer = 38 then

            ThreeAnswer = 1

        else

            ThreeAnswer = 0

        end if

​

        Console.Clear()

        Console.WriteLine("4. What is 5.3 - 1.3?")

        Console.WriteLine("A: 4")

        Console.WriteLine("B: 5")

        Console.WriteLine("C: 3")

        Console.WriteLine("D: 4.3")

        FourAnswer = Console.ReadLine()

        If FourAnswer = 4 then

            FourAnswer = 1

        else

            FourAnswer = 0

        end if

​

        Console.Clear()

        Console.WriteLine("5. What is 1/2 - 5/10 as a decimal?")

        Console.WriteLine("A: 0.2")

        Console.WriteLine("B: 1.0")

        Console.WriteLine("C: 0.1")

        Console.WriteLine("D: 0")

        FiveAnswer = Console.ReadLine()

        If FiveAnswer = 0 then

            FiveAnswer = 1

        else

            FiveAnswer = 0

        end if

​

        Console.Clear()

        Console.WriteLine("6. What is the hypotenuse of a right triangle with legs of 4 and 3?")

        Console.WriteLine("A: 12")

        Console.WriteLine("B: 5")

        Console.WriteLine("C: 7")

        Console.WriteLine("D: 6")

        SixAnswer = Console.ReadLine()

        If SixAnswer = 5 then

            SixAnswer = 1

        else

            SixAnswer = 0

        end if

​

        Console.Clear()

        Console.WriteLine("7. What is the measure of angle x if angle x and angle y are supplementary angles and angle y = 46 degrees?")

        Console.WriteLine("A: 44")

        Console.WriteLine("B: 314")

        Console.WriteLine("C: 134")

        Console.WriteLine("D: 54")

        SevenAnswer = Console.ReadLine()

        If SevenAnswer = 134 then

            SevenAnswer = 1

        else

            SevenAnswer = 0

        end if

​

        Console.Clear()

        Console.WriteLine("8. What is 3/4 * 4/3 as a decimal to the nearest hundredth")

        Console.WriteLine("A: 0.99")

        Console.WriteLine("B: 0.34")

        Console.WriteLine("C: 1.00")

        Console.WriteLine("D: 1")

        EightAnswer = Console.ReadLine()

        If EightAnswer = 1 then

            EightAnswer = 1

        else

            EightAnswer = 0

        end if

​

        Console.Clear()

        Console.WriteLine("9. How many sides does a hexagon have?")

        Console.WriteLine("A: 6")

        Console.WriteLine("B: 5")

        Console.WriteLine("C: 8")

        Console.WriteLine("D: 7")

        NineAnswer = Console.ReadLine()

        If NineAnswer = 6 then

            NineAnswer = 1

        else

            NineAnswer = 0

        end if

​

        Console.Clear()

        Console.WriteLine("10. What is f(g(x)) if g(x) = 2 and f(x) = (x - 2)^2 + x^4?")

        Console.WriteLine("A: 16")

        Console.WriteLine("B: 14")

        Console.WriteLine("C: 20")

        Console.WriteLine("D: This is a trick question")

        TenAnswer = Console.ReadLine()

        If TenAnswer = 16 then

            TenAnswer = 1

        else

            TenAnswer = 0

        end if

​

        Dim TotalCorrect as integer

        TotalCorrect = OneAnswer + TwoAnswer + ThreeAnswer + FourAnswer + FiveAnswer + SixAnswer + SevenAnswer + EightAnswer + NineAnswer + TenAnswer

        Console.Clear()

        Console.WriteLine("You got {0} out of 10 correct.", TotalCorrect)

        If OneAnswer = 0 then

            Console.WriteLine("You missed problem 1")

        end if

​

        If TwoAnswer = 0 then

            Console.WriteLine("You missed problem 2")

        end if

​

        If ThreeAnswer = 0 then

            Console.WriteLine("You missed problem 3")

        end if

​

        If FourAnswer = 0 then

            Console.WriteLine("You missed problem 4")

        end if

​

        If FiveAnswer = 0 then

            Console.WriteLine("You missed problem 5")

        end if

​

        If SixAnswer = 0 then

            Console.WriteLine("You missed problem 6")

        end if

​

        If SevenAnswer = 0 then

            Console.WriteLine("You missed problem 7")

        end if

​

        If EightAnswer = 0 then

            Console.WriteLine("You missed problem 8")

        end if

​

        If NineAnswer = 0 then

            Console.WriteLine("You missed problem 9")

        end if

​

        If TenAnswer = 0 then

            Console.WriteLine("You missed problem 10")

        end if

    End Sub

End Module

​