C# Online Compiler | .NET Fiddle

<no name> by Anonymous

Imports System
				
Public Module Module1
	Public Sub Main()
		Dim pregunta as integer
		Dim respuesta as integer
		Dim RandomPregunta as new Random(1)

		
	for i = 1 to 20
			pregunta = RandomPregunta.Next(1,15)
		SELECT CASE pregunta
			CASE 1
		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()
		        if respuesta = 3 Then
					Console.WriteLine("")
					Console.WriteLine("Correcto")
					Console.WriteLine("")
				else
					Console.WriteLine("")
					Console.WriteLine("Incorrecto")
					Console.WriteLine("")
				end if
			CASE 2
		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()
				if respuesta = 1 Then
					Console.WriteLine("")
					Console.WriteLine("Correcto")
					Console.WriteLine(" ")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
			CASE 3
		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()
				if respuesta = 4 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		CASE 4
		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()
				if respuesta = 4 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if

	    CASE 5
		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()
				if respuesta = 2 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		
		 CASE 6
		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()
				if respuesta = 2 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		 CASE 7
		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()
				if respuesta = 3 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		 CASE 8
		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()
				if respuesta = 1 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		 CASE 9
		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()
				if respuesta = 4 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		 CASE 10
		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()
				if respuesta = 1 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		 CASE 11
		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()
				if respuesta = 2 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		 CASE 12
		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()
				if respuesta = 3 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		 CASE 13
		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()
				if respuesta = 2 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		 CASE 14
		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()
				if respuesta = 4 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
		 CASE 15
		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()
				if respuesta = 1 Then
					console.WriteLine("")
					Console.WriteLine("Correcto")
					console.WriteLine("")
				else
					console.WriteLine("")
					Console.WriteLine("Incorrecto")
					console.WriteLine("")
				end if
   end select 
	NEXT
		
		End Sub
End Module

​x
 
Imports System
                
Public Module Module1
    Public Sub Main()
        Dim pregunta as integer
        Dim respuesta as integer
        Dim RandomPregunta as new Random(1)
​
        
    for i = 1 to 20
            pregunta = RandomPregunta.Next(1,15)
        SELECT CASE pregunta
            CASE 1
        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()
                if respuesta = 3 Then
                    Console.WriteLine("")
                    Console.WriteLine("Correcto")
                    Console.WriteLine("")
                else
                    Console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    Console.WriteLine("")
                end if
            CASE 2
        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()
                if respuesta = 1 Then
                    Console.WriteLine("")
                    Console.WriteLine("Correcto")
                    Console.WriteLine(" ")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
            CASE 3
        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()
                if respuesta = 4 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
        CASE 4
        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()
                if respuesta = 4 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
​
        CASE 5
        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()
                if respuesta = 2 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
        
         CASE 6
        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()
                if respuesta = 2 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
         CASE 7
        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()
                if respuesta = 3 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
         CASE 8
        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()
                if respuesta = 1 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
         CASE 9
        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()
                if respuesta = 4 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
         CASE 10
        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()
                if respuesta = 1 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
         CASE 11
        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()
                if respuesta = 2 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
         CASE 12
        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()
                if respuesta = 3 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
         CASE 13
        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()
                if respuesta = 2 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
         CASE 14
        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()
                if respuesta = 4 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
         CASE 15
        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()
                if respuesta = 1 Then
                    console.WriteLine("")
                    Console.WriteLine("Correcto")
                    console.WriteLine("")
                else
                    console.WriteLine("")
                    Console.WriteLine("Incorrecto")
                    console.WriteLine("")
                end if
   end select 
    NEXT
        
        End Sub
End Module

Last Run:	8:20:23 pm
Compile:	0.006s
Execute:	0.04s
Memory:	0b
CPU:	0.046s

View IL Code