C# Online Compiler | .NET Fiddle

<no name> by Anonymous

Imports System
				
Public Module Module1
	Public Sub Main()
		Dim RandomClass as New Random(52)
		Dim pregunta as integer
		Dim Respuesta as integer
		Dim categoria as integer
		
		
		
		
		FOR i = 1 to 20 
			categoria = RandomClass.Next(1.4)
	
		'RandomClass.Next(valor mínimo, valor máximo)
			pregunta = RandomClass.Next(1,15)
				SELECT CASE pregunta
					CASE 1
						Console.WriteLine("Que océano tocan las costas Argentinas")
						Console.Writeline("1- Pacífico")
						Console.Writeline("2- Atlántico")
						Console.Writeline("3- Argentino")
						Console.Writeline("4- Ártico")
						respuesta = Console.ReadLine()
						If respuesta = 2 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 2
						Console.WriteLine("Que Continente es más grande")
						Console.Writeline("1- Asia")
						Console.Writeline("2- Oceanía")
						Console.Writeline("3- Africa")
						Console.Writeline("4- Europa")
						respuesta = Console.ReadLine()
						If respuesta = 1 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 3
						Console.WriteLine("En que posición juega el famoso futbolista el chiqui Romero")
						Console.Writeline("1- defensor")
						Console.Writeline("2- volante")
						Console.Writeline("3- arquero")
						Console.Writeline("4- delantero")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 4
						Console.WriteLine("Cuantas estrellas tiené la bandera de los EEUU")
						Console.Writeline("1- 50")
						Console.Writeline("2- 48")
						Console.Writeline("3- 53")
						Console.Writeline("4- 55")
						respuesta = Console.ReadLine()
						If respuesta = 1 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 5
						Console.WriteLine("Cual es la Diosa del Amor")
						Console.Writeline("1- Meduza")
						Console.Writeline("2- Osiris")
						Console.Writeline("3- Cleopatra")
						Console.Writeline("4- Afrodita")
						respuesta = Console.ReadLine()
						If respuesta = 4 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 6
						Console.WriteLine("Cual es la comida típica del 25 de Mayo")
						Console.Writeline("1- Guiso de lentejas")
						Console.Writeline("2- Asado")
						Console.Writeline("3- Locro")
						Console.Writeline("4- ñoquis")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 7
						Console.WriteLine("Que profesional usa el tensiometro")
						Console.Writeline("1- Electricista")
						Console.Writeline("2- Gasista")
						Console.Writeline("3- Pintor")
						Console.Writeline("4- Medico")
						respuesta = Console.ReadLine()
						If respuesta = 4 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 8
						Console.WriteLine("Cual de estaa famosas no es hija de un jugador de futbol")
						Console.Writeline("1- Charlotte Caniggia")
						Console.Writeline("2- Barbi Velez")
						Console.Writeline("3- Candela Ruggieri")
						Console.Writeline("4- Lola Latorre")
						respuesta = Console.ReadLine()
						If respuesta = 2 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
	
	CASE 9
	Console.WriteLine("Con que nombre se conoce a la liga de Alemania de futbol")
	Console.Writeline("1- Ligue 1")
	Console.Writeline("2- Premier league")
	Console.Writeline("3- Bundensliga")
	Console.Writeline("4- Serie A TIM")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
	CASE 10
	Console.WriteLine("Que es el Ebola")
						Console.Writeline("1- Un virus")
	Console.Writeline("2- Una enfermedad")
	Console.Writeline("3- Una gripe")
	Console.Writeline("4- Una peste")
						respuesta = Console.ReadLine()
						If respuesta = 1 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
	
	CASE 11
	Console.WriteLine("Cual es la montaña mas alta del mundo")
						Console.Writeline("1- Aconcagua")
	Console.Writeline("2- El Chalten")
	Console.Writeline("3- Everest")
						Console.Writeline("4- Makalu")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
	CASE 12
	Console.WriteLine("A que le tiene miedo una persona que sufre de claustrofobia")
	Console.Writeline("1- Al encierro")
						Console.Writeline("2- A las arañas")
	Console.Writeline("3- A las alturas")
	Console.Writeline("4- A la oscuridad")
						respuesta = Console.ReadLine()
						If respuesta = 1 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
	CASE 13
	Console.WriteLine("A que empresa pertence youtube")
	Console.Writeline("1- Facebook")
	Console.Writeline("2- Youtube")
	Console.Writeline("3- Windows")
	Console.Writeline("4- Google")
						respuesta = Console.ReadLine()
						If respuesta = 4 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
	
CASE 14
	Console.WriteLine("En que pais nace el Rio Parana")
	Console.Writeline("1- Paraguay")
						Console.Writeline("2- Brasil")
						Console.Writeline("3- Bolivia")
	Console.Writeline("4- Argentina")
						respuesta = Console.ReadLine()
						If respuesta = 2 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
	CASE 15
	Console.WriteLine("Cual es el deporte nacional de Colombia")
	Console.Writeline("1- Pelota Paleta")
	Console.Writeline("2- Handball")
	Console.Writeline("3- Tejo")
	Console.Writeline("4- Tenis")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
		
	
				END SELECT
	
		NEXT
		
	End Sub
End Module

 
Imports System
                
Public Module Module1
    Public Sub Main()
        Dim RandomClass as New Random(52)
        Dim pregunta as integer
        Dim Respuesta as integer
        Dim categoria as integer
        
        
        
        
        FOR i = 1 to 20 
            categoria = RandomClass.Next(1.4)
    
        'RandomClass.Next(valor mínimo, valor máximo)
            pregunta = RandomClass.Next(1,15)
                SELECT CASE pregunta
                    CASE 1
                        Console.WriteLine("Que océano tocan las costas Argentinas")
                        Console.Writeline("1- Pacífico")
                        Console.Writeline("2- Atlántico")
                        Console.Writeline("3- Argentino")
                        Console.Writeline("4- Ártico")
                        respuesta = Console.ReadLine()
                        If respuesta = 2 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 2
                        Console.WriteLine("Que Continente es más grande")
                        Console.Writeline("1- Asia")
                        Console.Writeline("2- Oceanía")
                        Console.Writeline("3- Africa")
                        Console.Writeline("4- Europa")
                        respuesta = Console.ReadLine()
                        If respuesta = 1 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 3
                        Console.WriteLine("En que posición juega el famoso futbolista el chiqui Romero")
                        Console.Writeline("1- defensor")
                        Console.Writeline("2- volante")
                        Console.Writeline("3- arquero")
                        Console.Writeline("4- delantero")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 4
                        Console.WriteLine("Cuantas estrellas tiené la bandera de los EEUU")
                        Console.Writeline("1- 50")
                        Console.Writeline("2- 48")
                        Console.Writeline("3- 53")
                        Console.Writeline("4- 55")
                        respuesta = Console.ReadLine()
                        If respuesta = 1 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 5
                        Console.WriteLine("Cual es la Diosa del Amor")
                        Console.Writeline("1- Meduza")
                        Console.Writeline("2- Osiris")
                        Console.Writeline("3- Cleopatra")
                        Console.Writeline("4- Afrodita")
                        respuesta = Console.ReadLine()
                        If respuesta = 4 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 6
                        Console.WriteLine("Cual es la comida típica del 25 de Mayo")
                        Console.Writeline("1- Guiso de lentejas")
                        Console.Writeline("2- Asado")
                        Console.Writeline("3- Locro")
                        Console.Writeline("4- ñoquis")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 7
                        Console.WriteLine("Que profesional usa el tensiometro")
                        Console.Writeline("1- Electricista")
                        Console.Writeline("2- Gasista")
                        Console.Writeline("3- Pintor")
                        Console.Writeline("4- Medico")
                        respuesta = Console.ReadLine()
                        If respuesta = 4 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 8
                        Console.WriteLine("Cual de estaa famosas no es hija de un jugador de futbol")
                        Console.Writeline("1- Charlotte Caniggia")
                        Console.Writeline("2- Barbi Velez")
                        Console.Writeline("3- Candela Ruggieri")
                        Console.Writeline("4- Lola Latorre")
                        respuesta = Console.ReadLine()
                        If respuesta = 2 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
    
    CASE 9
    Console.WriteLine("Con que nombre se conoce a la liga de Alemania de futbol")
    Console.Writeline("1- Ligue 1")
    Console.Writeline("2- Premier league")
    Console.Writeline("3- Bundensliga")
    Console.Writeline("4- Serie A TIM")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
    CASE 10
    Console.WriteLine("Que es el Ebola")
                        Console.Writeline("1- Un virus")
    Console.Writeline("2- Una enfermedad")
    Console.Writeline("3- Una gripe")
    Console.Writeline("4- Una peste")
                        respuesta = Console.ReadLine()
                        If respuesta = 1 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
    
    CASE 11
    Console.WriteLine("Cual es la montaña mas alta del mundo")
                        Console.Writeline("1- Aconcagua")
    Console.Writeline("2- El Chalten")
    Console.Writeline("3- Everest")
                        Console.Writeline("4- Makalu")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
    CASE 12
    Console.WriteLine("A que le tiene miedo una persona que sufre de claustrofobia")
    Console.Writeline("1- Al encierro")
                        Console.Writeline("2- A las arañas")
    Console.Writeline("3- A las alturas")
    Console.Writeline("4- A la oscuridad")
                        respuesta = Console.ReadLine()
                        If respuesta = 1 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
    CASE 13
    Console.WriteLine("A que empresa pertence youtube")
    Console.Writeline("1- Facebook")
    Console.Writeline("2- Youtube")
    Console.Writeline("3- Windows")
    Console.Writeline("4- Google")
                        respuesta = Console.ReadLine()
                        If respuesta = 4 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
    
CASE 14
    Console.WriteLine("En que pais nace el Rio Parana")
    Console.Writeline("1- Paraguay")
                        Console.Writeline("2- Brasil")
                        Console.Writeline("3- Bolivia")
    Console.Writeline("4- Argentina")
                        respuesta = Console.ReadLine()
                        If respuesta = 2 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
    CASE 15
    Console.WriteLine("Cual es el deporte nacional de Colombia")
    Console.Writeline("1- Pelota Paleta")
    Console.Writeline("2- Handball")
    Console.Writeline("3- Tejo")
    Console.Writeline("4- Tenis")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
        
    
                END SELECT
    
        NEXT
        
    End Sub
End Module

View IL Code