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("¿Cual es el equipo argentino que usa los colores azul y amarillo?")
		Console.WriteLine("river")
				Console.WriteLine("racing ")
				Console.WriteLine("boca")
		Console.WriteLine("san lorenzo ")
				respuesta = Console.Readline()
				if respuesta = 3 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
			CASE 2
		Console.WriteLine("¿que color es la bandera de Argentina?")
		Console.WriteLine("celeste y blanca")
				Console.WriteLine("amarillo y azul")
		Console.WriteLine("verde y blanco")
				Console.WriteLine("amarillo y blanco ")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
			CASE 3
		Console.WriteLine("¿en que mes comienza la primavera?")
		Console.WriteLine("diciembre")
		Console.WriteLine("agosto")
		Console.WriteLine("octubre")
		Console.WriteLine("septiembre")
				respuesta = Console.Readline()
				if respuesta = 4 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		
	CASE 4
		Console.WriteLine("¿cuantos meses tiene el año?")
				Console.WriteLine("12")
				Console.WriteLine("14")
				Console.WriteLine("10")
				Console.WriteLine("11 ")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
	
	CASE 5
		Console.WriteLine("¿cuantos cm hay en un metro?")
				Console.WriteLine("100cm")
				Console.WriteLine("120cm")
				Console.WriteLine("95cm")
				Console.WriteLine("110cm")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
	
	
	CASE 6
		Console.WriteLine("¿para que sirve un termometro?")
		Console.WriteLine("para la cabeza")
		Console.WriteLine("para la panza")
		Console.WriteLine("para los pies")
		Console.WriteLine("para los ojos ")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
	
	CASE 7
		Console.WriteLine("¿cuantos meses vivio un ñiño de 4 años?")
				Console.WriteLine("48")
				Console.WriteLine("52")
				Console.WriteLine("40")
				Console.WriteLine("50 ")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
	
	CASE 8
		Console.WriteLine("¿quien gano la ultima libertadores? ")
		Console.WriteLine("flamengo")
		Console.WriteLine("river")
		Console.WriteLine("cruzeiro")
				Console.WriteLine("racing ")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
	
	
	
	CASE 9 
		Console.WriteLine("¿que ingredientes lleva el pan?")
		Console.WriteLine("harina, sal y levadura")
		Console.WriteLine("aceite y sal")
		Console.WriteLine("harina, aceite y sal")
		Console.WriteLine("chocolate blanco y harina")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
	
	
	
	
	
	
	CASE 10
		Console.WriteLine("¿que sigano se pone al final de una pregunta?")
		Console.WriteLine("signo de pregunta")
		Console.WriteLine("signo de exclamacion")
				Console.WriteLine("comillas")
		Console.WriteLine("interrogacion")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
	
	
	CASE 11
		Console.WriteLine("¿que aprendes en las matematicas?")
		Console.WriteLine("numeros y cuentas")
		Console.WriteLine("libros y leer")
		Console.WriteLine("historia")
		Console.WriteLine("animales ")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
	
	CASE 12
		Console.WriteLine("¿el perfume para que parte del cuerpo va?")
		Console.WriteLine("la parte de la panza")
		Console.WriteLine("de la cintura para abajo ")
		Console.WriteLine("para el cuello y pelo")
		Console.WriteLine(" los pies ")
				respuesta = Console.Readline()
				if respuesta = 3 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
	
	
	CASE 13
		Console.WriteLine("¿un celular para que sirve?")
		Console.WriteLine("para estudiar")
		Console.WriteLine("para hacer deporte")
		Console.WriteLine("para la tecnologia")
		Console.WriteLine("para vestirse")
				respuesta = Console.Readline()
				if respuesta = 3 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
	
	
	CASE 14
		Console.WriteLine("¿de que color es la bandera de brasil?")
		Console.WriteLine("verde, azul,naranja")
				Console.WriteLine("amarillo, balnco y azul ")
		Console.WriteLine("verde, amarillo,azul y blanco")
		Console.WriteLine("negro,azul y violeta")
				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 15
		Console.WriteLine("¿cuantos meses tienen dos años?")
		Console.WriteLine("20 meses")
		Console.WriteLine("25 meses ")
		Console.WriteLine("24 meses")
		Console.WriteLine("30 meses ")
				respuesta = Console.Readline()
				if respuesta = 3 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				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("¿Cual es el equipo argentino que usa los colores azul y amarillo?")
        Console.WriteLine("river")
                Console.WriteLine("racing ")
                Console.WriteLine("boca")
        Console.WriteLine("san lorenzo ")
                respuesta = Console.Readline()
                if respuesta = 3 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 2
        Console.WriteLine("¿que color es la bandera de Argentina?")
        Console.WriteLine("celeste y blanca")
                Console.WriteLine("amarillo y azul")
        Console.WriteLine("verde y blanco")
                Console.WriteLine("amarillo y blanco ")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 3
        Console.WriteLine("¿en que mes comienza la primavera?")
        Console.WriteLine("diciembre")
        Console.WriteLine("agosto")
        Console.WriteLine("octubre")
        Console.WriteLine("septiembre")
                respuesta = Console.Readline()
                if respuesta = 4 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
        
    CASE 4
        Console.WriteLine("¿cuantos meses tiene el año?")
                Console.WriteLine("12")
                Console.WriteLine("14")
                Console.WriteLine("10")
                Console.WriteLine("11 ")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    CASE 5
        Console.WriteLine("¿cuantos cm hay en un metro?")
                Console.WriteLine("100cm")
                Console.WriteLine("120cm")
                Console.WriteLine("95cm")
                Console.WriteLine("110cm")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    
    CASE 6
        Console.WriteLine("¿para que sirve un termometro?")
        Console.WriteLine("para la cabeza")
        Console.WriteLine("para la panza")
        Console.WriteLine("para los pies")
        Console.WriteLine("para los ojos ")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    CASE 7
        Console.WriteLine("¿cuantos meses vivio un ñiño de 4 años?")
                Console.WriteLine("48")
                Console.WriteLine("52")
                Console.WriteLine("40")
                Console.WriteLine("50 ")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    CASE 8
        Console.WriteLine("¿quien gano la ultima libertadores? ")
        Console.WriteLine("flamengo")
        Console.WriteLine("river")
        Console.WriteLine("cruzeiro")
                Console.WriteLine("racing ")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    
    
    CASE 9 
        Console.WriteLine("¿que ingredientes lleva el pan?")
        Console.WriteLine("harina, sal y levadura")
        Console.WriteLine("aceite y sal")
        Console.WriteLine("harina, aceite y sal")
        Console.WriteLine("chocolate blanco y harina")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    
    
    
    
    
    CASE 10
        Console.WriteLine("¿que sigano se pone al final de una pregunta?")
        Console.WriteLine("signo de pregunta")
        Console.WriteLine("signo de exclamacion")
                Console.WriteLine("comillas")
        Console.WriteLine("interrogacion")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    
    CASE 11
        Console.WriteLine("¿que aprendes en las matematicas?")
        Console.WriteLine("numeros y cuentas")
        Console.WriteLine("libros y leer")
        Console.WriteLine("historia")
        Console.WriteLine("animales ")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    CASE 12
        Console.WriteLine("¿el perfume para que parte del cuerpo va?")
        Console.WriteLine("la parte de la panza")
        Console.WriteLine("de la cintura para abajo ")
        Console.WriteLine("para el cuello y pelo")
        Console.WriteLine(" los pies ")
                respuesta = Console.Readline()
                if respuesta = 3 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    
    CASE 13
        Console.WriteLine("¿un celular para que sirve?")
        Console.WriteLine("para estudiar")
        Console.WriteLine("para hacer deporte")
        Console.WriteLine("para la tecnologia")
        Console.WriteLine("para vestirse")
                respuesta = Console.Readline()
                if respuesta = 3 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    
    CASE 14
        Console.WriteLine("¿de que color es la bandera de brasil?")
        Console.WriteLine("verde, azul,naranja")
                Console.WriteLine("amarillo, balnco y azul ")
        Console.WriteLine("verde, amarillo,azul y blanco")
        Console.WriteLine("negro,azul y violeta")
                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 15
        Console.WriteLine("¿cuantos meses tienen dos años?")
        Console.WriteLine("20 meses")
        Console.WriteLine("25 meses ")
        Console.WriteLine("24 meses")
        Console.WriteLine("30 meses ")
                respuesta = Console.Readline()
                if respuesta = 3 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
    
    
    
    end select
    NEXT
        
    End Sub
End Module
    
​

View IL Code