Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim answer as String

        Dim numright as integer

        Dim numwrong as integer 

        Console.Writeline("Welcome to your 3rd grade math test, please begin. (watch the question)")

        Console.WriteLine("1) 1+1=4")

        Console.WriteLine("2) 2+3=5")

        Console.WriteLine("3) 3+3=6")

        Console.WriteLine("4) 4+3=7")

        Console.WriteLine("Enter the incorrect answer")

        answer = Console.readline()

        if answer = "1" then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

            numwrong = numwrong + 1

        end if

​

        Console.Writeline("Next Question! (2) ")

        Console.WriteLine("1) 16+4=20")

        Console.WriteLine("2) 23+17=40")

        Console.WriteLine("3) 41+10=50")

        Console.WriteLine("4) 21+19=40")

        Console.WriteLine("Enter the correct answer")

        answer = Console.readline()

        if answer = "3" then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

            numwrong = numwrong + 1

        end if

​

        Console.Writeline("Next Question! (3) ")

        Console.WriteLine("1) 374/213=1.87")

        Console.WriteLine("2) 333/666=1.53")

        Console.WriteLine("3) 50/25=2")

        Console.WriteLine("4) 47/21=3.6")

        Console.WriteLine("Enter the correct answer")

        answer = Console.readline()

        if answer = "3" then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

            numwrong = numwrong + 1

        end if

​

        Console.Writeline("Next Question! (4) ")

        Console.WriteLine("1) 2*5=7")

        Console.WriteLine("2) 2*5=10")

        Console.WriteLine("3) 2*5=9")

        Console.WriteLine("4) 2*5=13")

        Console.WriteLine("Enter the incorrect answer")

        answer = Console.readline()

        if answer = "2" then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

            numwrong = numwrong + 1

        end if

        Console.Writeline("Next Question! (5) ")

        Console.WriteLine("1) 9-3=6")

        Console.WriteLine("2) 2*5=10")

        Console.WriteLine("3) 3+2=5")

        Console.WriteLine("4) 4*21312=123123122")

        Console.WriteLine("Enter the incorrect answer")

        answer = Console.readline()

        if answer = "4" then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

            numwrong = numwrong + 1

        end if

        Console.Writeline("Next Question! (6) ")

        Console.WriteLine("1) 2910398210983210/21890721982=123.5675")

        Console.WriteLine("2) 98549823798/213213=2131253")

        Console.WriteLine("3) 43875893475890347*34324332=4324354572398523496593")

        Console.WriteLine("4) 47474737/322123=147")

        Console.WriteLine("Enter the incorrect answer (round to nearest whole)")

        answer = Console.readline()

        if answer = "4" then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

            numwrong = numwrong + 1

        end if

        Console.Writeline("Next Question! (7) ")

        Console.WriteLine("1) 89*123=10947")

        Console.WriteLine("2) 321*213=1231243")

        Console.WriteLine("3) 19*5=96")

        Console.WriteLine("4) 34+213242=324231")

        Console.WriteLine("Enter the correct answer")

        answer = Console.readline()

        if answer = "1" then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

            numwrong = numwrong + 1

        end if

        Console.Writeline("Next Question! (8) ")

        Console.WriteLine("1) 22+7=29")

        Console.WriteLine("2) 2*5=10")

        Console.WriteLine("3) 3*2=6")

        Console.WriteLine("4) 2*5=13")

        Console.WriteLine("Enter the incorrect answer")

        answer = Console.readline()

        if answer = "4"then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

            numwrong = numwrong + 1

        end if

        Console.Writeline("Next Question! (9)")

        Console.WriteLine("1) 43+7=50")

        Console.WriteLine("2) 23+7=30")

        Console.WriteLine("3) 19+1=20")

        Console.WriteLine("4) 34+7=41")

        Console.WriteLine("Enter the incorrect answer")

        answer = Console.readline()

        if answer = "4"then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

            numwrong = numwrong + 1

        end if

        Console.Writeline("Next Question! (10)")

        Console.WriteLine("1) 2*5=7")

        Console.WriteLine("2) 3*5=15")

        Console.WriteLine("3) 3*4=34")

        Console.WriteLine("4) 2*5=13")

        Console.WriteLine("Enter the correct answer")

        answer = Console.readline()

        if answer = "2" then

            numright = numright + 1

            Console.WriteLine("You are Correct!")

        else

            Console.WriteLine("You are incorrect. :(")

            numwrong = numwrong + 1

        end if

        Console.Writeline("The test is over")

        Console.Writeline("You got a {0}/10",numright)

        Console.Writeline("You got {0} correct",numright)

        Console.Writeline("You got {0} incorrect",numwrong)

    End Sub

End Module

​