Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Quiz about american history")

        Dim answer as string

        Dim numright as integer 

        Console.WriteLine("who discoverd america?")

        Console.WriteLine("a)christopher columbus b)George washington c)Leif Eriksson d)Amerigo vespucći")

        answer = Console.ReadLine()

        If answer = "c" then 

            numright = numright + 1

        End if 

        Console.WriteLine("what does the D in D-Day stand for?")

        Console.WriteLine("a)

End sub

End Module