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("¿que es una ecuacion?")
		Console.WriteLine("igualdad")
		Console.WriteLine("division")
        Console.WriteLine("suma")
		Console.WriteLine("resta")
		respuesta = Console.Readline()
		if respuesta = 1 Then 
			Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
     
	
	CASE 2
		Console.WriteLine("¿como divido fracciones?")
		Console.WriteLine("restando")
		Console.WriteLine("diviendo")
		Console.WriteLine("sumando")
		Console.WriteLine("multiplicando")
		respuesta = Console.Readline()
		if respuesta = 4 Then
			Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	 
	
	CASE 3
		Console.WriteLine("¿para que se usa select case?")
		Console.WriteLine("1 solo metodo")
		Console.WriteLine("2 metodos")
		Console.WriteLine("2 a 3 metodos")
		Console.WriteLine("mas de 3 metodos")
		respuesta = Console.Readline()
		if respuesta = 4 Then
			Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	
	
	
	CASE 4
		Console.WriteLine("¿cual fue la primer especie?")
		Console.WriteLine("mono")
		Console.WriteLine("homosapiens")
		Console.WriteLine("celula procariota")
		Console.WriteLine("celula eucariota")
	    respuesta = Console.Readline()
		if respuesta = 3 Then
		    Console.WriteLine("correcta")
		else
			Console.WriteLine("incorrecto")
		end if
		
	
	CASE 5
		Console.WriteLine("¿que es VB.net?")
		Console.WriteLine("un videojuego")
		Console.WriteLine("red social")
		Console.WriteLine("lenguaje de programacion")
		Console.WriteLine("pagina web de peliculas")
	    respuesta = Console.Readline()
		if respuesta = 3 Then
		    Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	
	CASE 6
		Console.WriteLine("¿que es una fraccion?")
		Console.WriteLine("igualdad")
		Console.WriteLine("division")
		Console.WriteLine("multiplicacion")
		Console.WriteLine("resta")
	    respuesta = Console.Readline()
		if respuesta = 2 Then
		    Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	
	CASE 7
		Console.WriteLine("¿para que sirve programar?")
		Console.WriteLine("creatividad")
		Console.WriteLine("solo por aburrimiento")
		Console.WriteLine("crear sitios webs, etc")
		Console.WriteLine("construir una pc")
	    respuesta = Console.Readline()
		if respuesta = 3 Then
		    Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	
		CASE 8
		Console.WriteLine("¿cuando se creo word?")
		Console.WriteLine("1973")
		Console.WriteLine("1988")
		Console.WriteLine("1983")
		Console.WriteLine("1995")
	    respuesta = Console.Readline()
		if respuesta = 3 Then
		    Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	
	
	CASE 9
		Console.WriteLine("¿cuando se creo microsoft?")
		Console.WriteLine("1975")
		Console.WriteLine("1968")
		Console.WriteLine("1981")
		Console.WriteLine("1959")
	    respuesta = Console.Readline()
		if respuesta = 1 Then
		    Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	 
	CASE 10
		Console.WriteLine("¿que planeta tiene anillo?")
		Console.WriteLine("saturno")
		Console.WriteLine("marte")
		Console.WriteLine("tierra")
		Console.WriteLine("jupiter")
	    respuesta = Console.Readline()
		if respuesta = 1 Then
		    Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	
	CASE 11
		Console.WriteLine("¿cuando se creo el primer auto?")
		Console.WriteLine("1760")
		Console.WriteLine("1769")
		Console.WriteLine("1720")
		Console.WriteLine("1758")
	    respuesta = Console.Readline()
		if respuesta = 2 Then
		    Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	
	
	CASE 12
		Console.WriteLine("¿cual fue el primer auto?")
		Console.WriteLine("Benz Patent-Motorwage")
		Console.WriteLine("motor age")
		Console.WriteLine("car martins")
		Console.WriteLine("patent")
	    respuesta = Console.Readline()
		if respuesta = 1 Then
		    Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	
	CASE 13
		Console.WriteLine("¿cual fue la primera pelota de futbol?")
		Console.WriteLine("pentagono de telstar")
		Console.WriteLine("tango")
		Console.WriteLine("questra")
		Console.WriteLine("telstar")
	    respuesta = Console.Readline()
		if respuesta = 1 Then
		    Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	
	CASE 14
		Console.WriteLine("¿cuando se jugo el primer partido de futbol?")
		Console.WriteLine("1869")
		Console.WriteLine("1923")
		Console.WriteLine("1863")
		Console.WriteLine("1800")
	    respuesta = Console.Readline()
		if respuesta = 3 Then
		    Console.WriteLine("correcta")
		else 
			Console.WriteLine("incorrecto")
		end if
	
	CASE 15
		Console.WriteLine("¿cuando se jugo el primer partido de basquet?")
		Console.WriteLine("1891")
		Console.WriteLine("1835")
		Console.WriteLine("1809")
		Console.WriteLine("1865")
	    respuesta = Console.Readline()
		if respuesta = 1 Then
		    Console.WriteLine("correcta")
		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("¿que es una ecuacion?")
        Console.WriteLine("igualdad")
        Console.WriteLine("division")
        Console.WriteLine("suma")
        Console.WriteLine("resta")
        respuesta = Console.Readline()
        if respuesta = 1 Then 
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
     
    
    CASE 2
        Console.WriteLine("¿como divido fracciones?")
        Console.WriteLine("restando")
        Console.WriteLine("diviendo")
        Console.WriteLine("sumando")
        Console.WriteLine("multiplicando")
        respuesta = Console.Readline()
        if respuesta = 4 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
     
    
    CASE 3
        Console.WriteLine("¿para que se usa select case?")
        Console.WriteLine("1 solo metodo")
        Console.WriteLine("2 metodos")
        Console.WriteLine("2 a 3 metodos")
        Console.WriteLine("mas de 3 metodos")
        respuesta = Console.Readline()
        if respuesta = 4 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
    
    
    
    CASE 4
        Console.WriteLine("¿cual fue la primer especie?")
        Console.WriteLine("mono")
        Console.WriteLine("homosapiens")
        Console.WriteLine("celula procariota")
        Console.WriteLine("celula eucariota")
        respuesta = Console.Readline()
        if respuesta = 3 Then
            Console.WriteLine("correcta")
        else
            Console.WriteLine("incorrecto")
        end if
        
    
    CASE 5
        Console.WriteLine("¿que es VB.net?")
        Console.WriteLine("un videojuego")
        Console.WriteLine("red social")
        Console.WriteLine("lenguaje de programacion")
        Console.WriteLine("pagina web de peliculas")
        respuesta = Console.Readline()
        if respuesta = 3 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
    
    CASE 6
        Console.WriteLine("¿que es una fraccion?")
        Console.WriteLine("igualdad")
        Console.WriteLine("division")
        Console.WriteLine("multiplicacion")
        Console.WriteLine("resta")
        respuesta = Console.Readline()
        if respuesta = 2 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
    
    CASE 7
        Console.WriteLine("¿para que sirve programar?")
        Console.WriteLine("creatividad")
        Console.WriteLine("solo por aburrimiento")
        Console.WriteLine("crear sitios webs, etc")
        Console.WriteLine("construir una pc")
        respuesta = Console.Readline()
        if respuesta = 3 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
    
        CASE 8
        Console.WriteLine("¿cuando se creo word?")
        Console.WriteLine("1973")
        Console.WriteLine("1988")
        Console.WriteLine("1983")
        Console.WriteLine("1995")
        respuesta = Console.Readline()
        if respuesta = 3 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
    
    
    CASE 9
        Console.WriteLine("¿cuando se creo microsoft?")
        Console.WriteLine("1975")
        Console.WriteLine("1968")
        Console.WriteLine("1981")
        Console.WriteLine("1959")
        respuesta = Console.Readline()
        if respuesta = 1 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
     
    CASE 10
        Console.WriteLine("¿que planeta tiene anillo?")
        Console.WriteLine("saturno")
        Console.WriteLine("marte")
        Console.WriteLine("tierra")
        Console.WriteLine("jupiter")
        respuesta = Console.Readline()
        if respuesta = 1 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
    
    CASE 11
        Console.WriteLine("¿cuando se creo el primer auto?")
        Console.WriteLine("1760")
        Console.WriteLine("1769")
        Console.WriteLine("1720")
        Console.WriteLine("1758")
        respuesta = Console.Readline()
        if respuesta = 2 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
    
    
    CASE 12
        Console.WriteLine("¿cual fue el primer auto?")
        Console.WriteLine("Benz Patent-Motorwage")
        Console.WriteLine("motor age")
        Console.WriteLine("car martins")
        Console.WriteLine("patent")
        respuesta = Console.Readline()
        if respuesta = 1 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
    
    CASE 13
        Console.WriteLine("¿cual fue la primera pelota de futbol?")
        Console.WriteLine("pentagono de telstar")
        Console.WriteLine("tango")
        Console.WriteLine("questra")
        Console.WriteLine("telstar")
        respuesta = Console.Readline()
        if respuesta = 1 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
    
    CASE 14
        Console.WriteLine("¿cuando se jugo el primer partido de futbol?")
        Console.WriteLine("1869")
        Console.WriteLine("1923")
        Console.WriteLine("1863")
        Console.WriteLine("1800")
        respuesta = Console.Readline()
        if respuesta = 3 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
    
    CASE 15
        Console.WriteLine("¿cuando se jugo el primer partido de basquet?")
        Console.WriteLine("1891")
        Console.WriteLine("1835")
        Console.WriteLine("1809")
        Console.WriteLine("1865")
        respuesta = Console.Readline()
        if respuesta = 1 Then
            Console.WriteLine("correcta")
        else 
            Console.WriteLine("incorrecto")
        end if
        
    end select 
 NEXT
    
 End sub
End module
    
    
    
    
​

¿cual fue la primer especie?
mono
homosapiens
celula procariota
celula eucariota

Cached Result
Last Run:	5:05:05 pm
Compile:	0.16s
Execute:	0s
Memory:	32kb
CPU:	0s

View IL Code