Imports System

Public Module Module1

    Public Sub Main()

        Dim answer1 as Integer

        Dim answer2 as String

        Dim answer3 as String

        Dim total as Integer

        Console.WriteLine("Welcome To My Quiz!")

        'Question 1

        Console.WriteLine("1. What is 3 x 10?")

        answer1 = Console.ReadLine()

        IF answer1 = 30 then

            Console.WriteLine("Correct!")

            total = total + 1

        ELSE 

            Console.WriteLine("Incorrect!")

        END IF

        'Question 2

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

        Console.WriteLine("a)Sydney b)Melborne c)Canberra")

        answer2 = Console.ReadLine()

        IF answer2 = "c" then

            Console.WriteLine("Correct!")

            total = total + 1

        ELSE 

            Console.WriteLine("Incorrect, it was c!")

        END IF

        'Question 3

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

        Console.WriteLine("a)Llanelli b)Cardiff c)Dafen")

        answer3 = Console.ReadLine()

        IF answer3 = "b" then

            Console.WriteLine("Correct!")

            total = total + 1

        ELSE 

            Console.WriteLine("Incorrect, it was b!")

        END IF

        Console.WriteLine("Congratulations! You have Scored " & total & " Points Out of 3")

        End Sub

End Module