Imports System

Public Module Module1

    Public Sub Main()

        Dim name as string

        Dim age as integer

        Dim answer1 as string

        Dim score as integer = 0

        Console.WriteLine("Wellcome to my small IQ test.")

        Console.WriteLine("")

        Console.WriteLine("Please enter your name.")

        name =  Console.ReadLine()

        Console.WriteLine("Now please enter your age.")

        age = Console.ReadLine()

        Console.WriteLine("Thank you for entering your information, the test will begin shortly " & name & ".")

        'Question 1

        Console.WriteLine("")

        Console.WriteLine("Question 1")

        Console.WriteLine("What is the capital city of Nepal?:")

        Console.WriteLine("")

        Console.WriteLine("1 : Niamey")

        Console.WriteLine("2 : Kathmandu")

        Console.WriteLine("3 : Abuja")

        answer1 = Console.ReadLine()

        IF answer1 = "Kathmandu" then

            Console.WriteLine("Correct, you have scored a point.")

            score = score + 1

        ELSE 

            Console.WriteLine("Incorrect, don't worry you can resit the test.")

        END IF

    End Sub

End Module