Dim RandomPregunta as new Random()
pregunta = RandomPregunta.Next(1,4)
Console.WriteLine("¿Quén fue Charles Darwin?")
Console.WriteLine("1- Pintor")
Console.WriteLine("2- Médico")
Console.WriteLine("3- Fue un naturalista y el mejor científico de todos los tiempos")
Console.WriteLine("4- Detective")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("¿Qué es un ecosistema?")
Console.WriteLine("Respuesta 2")
Console.WriteLine("Respuesta 3")
Console.WriteLine("Respuesta 4 ")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("Pregunta 3")
Console.WriteLine("Respuesta 1")
Console.WriteLine("Respuesta 2")
Console.WriteLine("Respuesta 3")
Console.WriteLine("Respuesta 4 Correcta")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")