Imports System

Public Module Module1

    Public Sub Main()

        Dim answer1 as Integer

        Dim answer2 as String

        Dim answer3 as Integer

        Dim answer4 as String

        Console.WriteLine("Welcome to my quiz")

        'Question 1

        Console.WriteLine(" 1. What is 50 * 10 / 2 ? ")

        answer1 = Console.ReadLine()

        IF answer1 = 25 then

            Console.WriteLine("Correct")

        ELSE 

            Console.WriteLine("Incorrect")

        END IF 

        'Question 2

        Console.WriteLine(" 2. Who owns Tesla ? ")

        Console.WriteLine(" A. Elon Musk  B.Steve Jobs  C. Bill Gates ")

        answer2 = Console.ReadLine()

        IF answer2 = "Elon Musk" then 

            Console.WriteLine("Correct")

        ELSE

            Console.WriteLine("Incorrect")

        END IF

        'Question 3

        Console.WriteLine(" When did WW1 begin ? ")

        answer3 = Console.ReadLine()

        IF answer3 = 1914 then

            Console.WriteLine(" Correct ")

        ELSE 

            Console.WriteLine("Incorrect")

        END IF

        'Question 4

        Console.WriteLine(" 4. What is Jeff Besoz's Net Worht in Dollars (2019) ? ")

         Console.WriteLine(" A. $36.23 Billion  B.$161.00 Billion  C. $192.80 Billion ")

         answer4 = Console.ReadLine()

        IF answer4 = "$161.00 Billion"  then

            Console.WriteLine("Correct")

        ELSE 

            Console.WriteLine("Incorrect, Jeff Bezos is the CEO of Amazon with a Net Worth of $161 Billion.")

        END IF 

    End Sub

End Module