Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim selection as integer

        do

            Console.WriteLine("1-Play quiz")

            console.writeline("2-Instructions")

            console.writeline("3-Quit")

            Selection = Console.Readline()

            If selection = 1 Then

                console.writeline("Play Quiz")

                Dim attempt As Integer = 0

                Dim guess As String

                Do

                    Console.Writeline("What is the capital of Egypt")

                    guess = Console.Readline()

                    attempt = attempt + 1

                Loop Until attempt = 3 or guess = "Cairo"

​

                If guess.ToLower() = "cairo" Then

                    Console.WriteLine("Well done, your answer is correct")

                Else

                    Console.Writeline("You ran out of attempts, try again next time")

                End if

​

                Do

                    Console.Writeline("What continent is Egypt in")

                    guess = Console.Readline()

                    attempt = attempt + 1

                Loop Until attempt = 3 or guess = "Africa"

​

                If guess.ToLower() = "africa" Then

                    Console.WriteLine("Well done, you got it right")

                Else

                    Console.Writeline("You ran out of attempts")

                end if

​

                Do

                    Console.Writeline("What is the capital of Algeria")

                    guess = Console.Readline()

                    attempt = attempt + 1

                Loop Until attempt = 3 or guess = "Algiers"

​

                If guess.ToLower() = "algiers" Then

                    Console.WriteLine("Well done, you got it right")

                Else

                    Console.Writeline("You ran out of attempts")

                end if

​

                Do

                    Console.Writeline("What is the capital of South Korea")

                    guess = Console.Readline()

                    attempt = attempt + 1

                Loop Until attempt = 3 or guess = "Seoul"

​

                If guess.ToLower() = "seoul" Then

                    Console.WriteLine("Well done, you got it right")

                Else

                    Console.Writeline("You ran out of attempts")

                end if

                    Do

                    Console.Writeline("What is the capital of Australia")

                    guess = Console.Readline()

                    attempt = attempt + 1

                Loop Until attempt = 3 or guess = "Canberra"

​

                If guess.ToLower() = "canberra" Then

                    Console.WriteLine("Well done, you got it right")

                Else

                    Console.Writeline("You ran out of attempts")

                end if

                    Do

                    Console.Writeline("Who is the president of the United States")

                    guess = Console.Readline()

                    attempt = attempt + 1

                Loop Until attempt = 3 or guess = "Biden"

​

                If guess.ToLower() = "biden" Then

                    Console.WriteLine("Well done, you got it right")

                Else

                    Console.Writeline("You ran out of attempts")

                end if

                    Do

                    Console.Writeline("What continent is Cape Verde in")

                    guess = Console.Readline()

                    attempt = attempt + 1

                Loop Until attempt = 3 or guess = "Africa"

​

                If guess.ToLower() = "africa" Then

                    Console.WriteLine("Well done, you got it right")

                Else

                    Console.Writeline("You ran out of attempts")

                end if

            ElseIf selection = 2 then

                Console.writeline("when 1 is pressed the quiz will start and when 2 is pressed the instructions are displayed when 3 is pressed and when you leave the game")

            ElseIf selection = 3 then

                Console.WriteLine("Thank you for playing the quiz:)")

            End If

        loop until selection = 3

    End Sub

End Module

​