Imports System

​

Public Module Module1

​

    Public Sub Main(Quiz)

        Dim answer as string

        Dim answer2 as string

        Console.WriteLine("What is the capital of Wales?")

        Console.WriteLine("A = London")

        Console.WriteLine("B = Swansea")

        Console.WriteLine("C = Cardiff")

        Console.WriteLine("D = Llanelli")

        console.WriteLine("What is the answer?")

        console.Readline()

        If answer = "C" or answer = "Cardiff" then

            Console.WriteLine("Correct")

        Else

            Console.WriteLine("Wrong")

        End if

​

        Console.WriteLine("What is 5 * 10 to the power of 6?")

        Console.WriteLine("A = 5,000")

        Console.WriteLine("B = 50,000")

        Console.WriteLine("C = 500,000")

        Console.WriteLine("D = 5,000,000")

        console.WriteLine("Answer =")

        console.readline()

        If answer2 = "D" OR answer2 = "5000000" OR answer2 = "5,000,000"

            console.WriteLine("Correct.")

        else

            console.WriteLine("Wrong.")

        End if

    End Sub

End Module

​