Imports System

Public Module Module1

    Public Sub Main()

        Dim answer as String

        Dim NumRight as integer

        console.Writeline("QUESTION 1")

        console.Writeline("1) 1+1=4")

        console.Writeline("2) 2+3=4")

        console.Writeline("3) 3+3=4")

        console.Writeline("4) 4+3=4")

        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. :(")

        end if

        console.Writeline("You got {0} questions right.", numright )

        console.Writeline("QUESTION 2")

        console.Writeline("1) Flagstaff")

        console.writeline("2) Prescott")

        console.writeline("3) Tuscon")

        console.Writeline("4) Phoenix")

        console.Writeline("Which one is the capital of Arizona")

        answer = console.ReadLine()

        if answer = "4" then

            numright = numright+1

            console.Writeline("You are correct!")

        else

            console.Writeline("You are incorrect. :(")

        end if

        console.WriteLine("You got {0} questions right.", numright )

        console.Writeline("QUESTION 3")

        console.Writeline("1) Egypt")

        console.writeline("2) Scotland")

        console.writeline("3) China")

        console.Writeline("4) United States of America")

        console.Writeline("Which one is in Africa")

        answer = console.ReadLine()

        if answer = "1" then

            numright = numright+1

            console.Writeline("You are correct!")

        else

            console.Writeline("You are incorrect. :(")

        end if

        console.WriteLine("You got {0} questions right.", numright )

        console.Writeline("QUESTION 4")

        console.Writeline("1) California")

        console.writeline("2) Maine")

        console.writeline("3) Kansas")

        console.Writeline("4) Oregon")

        console.Writeline("Which one is not on the coast")

        answer = console.ReadLine()

        if answer = "3" then

            numright = numright+1

            console.Writeline("You are correct!")

        else

            console.Writeline("You are incorrect. :(")

        end if

        console.WriteLine("You got {0} questions right.", numright )

        console.Writeline("QUESTION 5")

        console.Writeline("1) British")

        console.writeline("2) English")

        console.writeline("3) American")

        console.Writeline("4) Australian")

        console.Writeline("Which is the correct name for the language spoken by Britain, United States and Australia")

        answer = console.ReadLine()

        if answer = "2" then

            numright = numright+1

            console.Writeline("You are correct!")

        else

            console.Writeline("You are incorrect. :(")

        end if

        console.WriteLine("You got {0} questions right.", numright )

        console.Writeline("QUESTION 6")

        console.Writeline("1) Rome")

        console.writeline("2) Athens")

        console.writeline("3) Beijing")

        console.Writeline("4) Washington DC")

        console.Writeline("Which one is the capital of Italy")

        answer = console.ReadLine()

        if answer = "1" then

            numright = numright+1

            console.Writeline("You are correct!")

        else

            console.Writeline("You are incorrect. :(")

        end if

        console.WriteLine("You got {0} questions right.", numright )

        console.Writeline("QUESTION 7")

        console.Writeline("1) Rome")

        console.writeline("2) Athens")

        console.writeline("3) Beijing")

        console.Writeline("4) Washington DC")

        console.Writeline("Which one is the capital of Greece")

        answer = console.ReadLine()

        if answer = "2" then

            numright = numright+1

            console.Writeline("You are correct!")

        else

            console.Writeline("You are incorrect. :(")

        end if

        console.WriteLine("You got {0} questions right.", numright )

        console.Writeline("QUESTION 8")

        console.Writeline("1) Kanto")

        console.writeline("2) Tohoku")

        console.writeline("3) Hokkaido")

        console.Writeline("4) Chubu")

        console.Writeline("Which region is the farthest north in Japan")

        answer = console.ReadLine()

        if answer = "3" then

            numright = numright+1

            console.Writeline("You are correct!")

        else

            console.Writeline("You are incorrect. :(")

        end if

        console.WriteLine("You got {0} questions right.", numright )

        console.Writeline("QUESTION 9")

        console.Writeline("1) Atlantic Provinces")

        console.writeline("2) Central Canada")

        console.writeline("3) The West Coast")

        console.Writeline("4) The Northern Territories")

        console.Writeline("Which Province has the Yukon in it")

        answer = console.ReadLine()

        if answer = "4" then

            numright = numright+1

            console.Writeline("You are correct!")

        else

            console.Writeline("You are incorrect. :(")

        end if

        console.WriteLine("You got {0} questions right.", numright )

        console.Writeline("QUESTION 10")

        console.Writeline("1) Hamburgers")

        console.writeline("2) Pasta")

        console.writeline("3) Pizza")

        console.Writeline("4) Ramen")

        console.Writeline("Which one was a food created in the United States of America")

        answer = console.ReadLine()

        if answer = "1" then

            numright = numright+1

            console.Writeline("You are correct!")

        else

            console.Writeline("You are incorrect. :(")

        end if

        console.WriteLine("You got {0} questions right.", numright )

    End Sub

End Module