Dim RandomPregunta as new Random(1)
pregunta = RandomPregunta.Next(1,15)
Console.WriteLine("¿Quien es el mayor probedor de SOJA en el mundo")
Console.WriteLine("1 Rusia")
Console.WriteLine("2 Estados Unidos")
Console.WriteLine("3 Argentina")
Console.WriteLine("4 Kenia")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("Pais cuya capital es MADRID")
Console.WriteLine("1 España")
Console.WriteLine("2 Polonia")
Console.WriteLine("3 Hawaii")
Console.WriteLine("4 Venezuela")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("Serie de reyes que pertenecen a una misma familia")
Console.WriteLine("1 Burguesía")
Console.WriteLine("2 Monarquia")
Console.WriteLine("3 Feudales")
Console.WriteLine("4 Dinastia")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("Medida de longitud que representa 1.000 metros")
Console.WriteLine("1 un milimetro")
Console.WriteLine("2 un centimetro")
Console.WriteLine("3 medio metro")
Console.WriteLine("4 un metro")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("Organos principales en el aparato reproductor femenino")
Console.WriteLine("1 Riñon y vegiga")
Console.WriteLine("2 Utero y ovarios")
Console.WriteLine("3 Pulmones y corazón")
Console.WriteLine("4 Ojos y nariz")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("En que año se creó el primer patin")
Console.WriteLine("1 1800")
Console.WriteLine("2 1760")
Console.WriteLine("3 1400")
Console.WriteLine("4 2000")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("Que famosa saga tuvo inicio el 1977")
Console.WriteLine("1 Rapidos y Furiosos")
Console.WriteLine("2 Volver al futuro")
Console.WriteLine("3 Star Wars")
Console.WriteLine("4 Harry Potter")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("¿Cúal fue la primera pelicula hecha totalmente por computadora?")
Console.WriteLine("1 Toy Story")
Console.WriteLine("2 Bichos")
Console.WriteLine("3 Shrek")
Console.WriteLine("4 Buscando a Nemo")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("¿Cúal fue es el antepasado común entre todos los seres vivos?")
Console.WriteLine("1 Mono")
Console.WriteLine("2 Tiburones")
Console.WriteLine("3 Dinosaurios")
Console.WriteLine("4 Celula Procariota")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("¿Que grupo fue el encargado de Crear BOHEMIAN RHAPSODY")
Console.WriteLine("1 Queen")
Console.WriteLine("2 Kiss")
Console.WriteLine("3 Led Zeppelin")
Console.WriteLine("4 Nirvana")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("¿En que país surgio el Covid-19?")
Console.WriteLine("1 Rusia")
Console.WriteLine("2 China")
Console.WriteLine("3 Polonia")
Console.WriteLine("4 Corea del Norte")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("¿Cúal es el pais en el que se practica más VUDU")
Console.WriteLine("1 África")
Console.WriteLine("2 Argentina")
Console.WriteLine("3 Haiti")
Console.WriteLine("4 Chile")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("Durante las batallas por la independencia en Argentina, ¿Qué solian tirar por la ventana los habitantes para expulsar a los soldados Españoles?")
Console.WriteLine("1 Toamtes")
Console.WriteLine("2 Agua Hirviendo")
Console.WriteLine("3 Pieras")
Console.WriteLine("4 Desechos humanos")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("¿En qué país sucedio el peor accidente nuclear de la historia?")
Console.WriteLine("1 Surinam")
Console.WriteLine("2 Hawaii")
Console.WriteLine("3 Turquia")
Console.WriteLine("4 Ucrania")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")
Console.WriteLine("¿Con qué hechos finalizó la segunda guerra mundial?")
Console.WriteLine("1 Bombas nuclares de Hiroshima y Nagasaki en 1945")
Console.WriteLine("2 Persecución y Purgación de judios en Alemania")
Console.WriteLine("3 Ataque a Pearl Harbor en 1941")
Console.WriteLine("4 Hitler ordena atacar a la Unión Sovietica")
respuesta = Console.Readline()
Console.WriteLine("Correcto")
Console.WriteLine("Incorrecto")