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()

		
	for i = 1 to 15
			pregunta = RandomPregunta.Next(1,16)
		SELECT CASE pregunta
			CASE 1
		Console.WriteLine("¿Porque el sol es una estrella?")
		Console.WriteLine("porque esta en el cielo")
		Console.WriteLine("porque es mas grande que la tierra ")
		Console.WriteLine("porque brilla con luz propia")
		Console.WriteLine("porque es amarillo")
				respuesta = Console.Readline()
				if respuesta = 3 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
			CASE 2
		Console.WriteLine("¿Cual es el centro del sistema solar?")
		Console.WriteLine("el sol")
		Console.WriteLine("la tierra")
		Console.WriteLine("pluton")
				Console.WriteLine("la luna")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
			CASE 3
		Console.WriteLine("¿Porque en la luna no se escucha ningun sonido?")
		Console.WriteLine("porque esta lejos de la tierra")
		Console.WriteLine("porque su nucleo absorbe el sonido")
		Console.WriteLine("porque en todo el espacio no hay sonido")
		Console.WriteLine("porque en ella no hay aire")
				respuesta = Console.Readline()
				if respuesta = 4 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 4
		Console.WriteLine("¿Cual es el planeta rojo?")
		Console.WriteLine("marte")
		Console.WriteLine("mercurio")
		Console.WriteLine("urano")
		Console.WriteLine("saturno")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 5
		Console.WriteLine("¿Cuantos planetas conforman el sistema sola?")
		Console.WriteLine("12")
		Console.WriteLine("8")
		Console.WriteLine("9")
		Console.WriteLine("10")
				respuesta = Console.Readline()
				if respuesta = 2 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 6
		Console.WriteLine("¿Que temperatura hace en el espacio?")
		Console.WriteLine("-100°C")
		Console.WriteLine("98°C")
		Console.WriteLine("120°C")
		Console.WriteLine("-270°C")
				respuesta = Console.Readline()
				if respuesta = 4 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 7
		Console.WriteLine("¿Cuantas lunas tiene Jupiter?")
		Console.WriteLine("50 lunas")
		Console.WriteLine("1 luna")
		Console.WriteLine("61 lunas")
		Console.WriteLine("80 lunas")
				respuesta = Console.Readline()
				if respuesta = 3 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 8
		Console.WriteLine("¿Cuánto tiempo tarda la luz del sol en llegar al planeta tierra?")
		Console.WriteLine("10 minutos")
		Console.WriteLine("1 minuto")
		Console.WriteLine("8 minutos ")
		Console.WriteLine("46 segundos")
				respuesta = Console.Readline()
				if respuesta = 3 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 9
		Console.WriteLine("¿Cuál es el satélite natural más grande de todo el sistema solar?")
		Console.WriteLine("uno de los satélites de Júpiter")
		Console.WriteLine("uno de los satelites de la tierra")
		Console.WriteLine("uno de los satelites de marte")
		Console.WriteLine("uno de los satelites de saturno")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 10
		Console.WriteLine("¿Cuántos planetas del sistema solar poseen anillos?")
		Console.WriteLine("ninguno")
		Console.WriteLine("4")
		Console.WriteLine("6")
		Console.WriteLine("2")
				respuesta = Console.Readline()
				if respuesta = 2 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 11
		Console.WriteLine("¿Cuál es el planeta más radiactivo del sistema solar?")
		Console.WriteLine("neptuno")
		Console.WriteLine("marte")
		Console.WriteLine("la tierra")
		Console.WriteLine("jupiter")
				respuesta = Console.Readline()
				if respuesta = 4 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 12
		Console.WriteLine("¿Qué planeta del sistema solar se considera el más frío?")
		Console.WriteLine("marte")
		Console.WriteLine("urano")
		Console.WriteLine("saturno")
		Console.WriteLine("neptuno")
				respuesta = Console.Readline()
				if respuesta = 2 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 13
		Console.WriteLine("¿Qué planeta del sistema solar posee la atmósfera con mayor cantidad de oxígeno?")
		Console.WriteLine("la tierra")
		Console.WriteLine("venus")
		Console.WriteLine("mercurio")
		Console.WriteLine("el sol")
				respuesta = Console.Readline()
				if respuesta = 1 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 14
		Console.WriteLine("¿Qué planeta posee el día más corto del sistema solar?")
		Console.WriteLine("pluton")
		Console.WriteLine("urano")
		Console.WriteLine("jupiter")
		Console.WriteLine("venus")
				respuesta = Console.Readline()
				if respuesta = 3 Then
					Console.WriteLine("Correcto")
				else
					Console.WriteLine("Incorrecto")
				end if
		    CASE 15
		Console.WriteLine("¿Cuál es el único cometa que el hombre puede ver a simple vista sin telescopio?")
		Console.WriteLine("el cometa Hale-Bopp")
		Console.WriteLine("El cometa Halley")
		Console.WriteLine("el cometa Shoemaker-Levy 9 ")
		Console.WriteLine("el cometa Wild 2")
				respuesta = Console.Readline()
				if respuesta = 2 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()
​
        
    for i = 1 to 15
            pregunta = RandomPregunta.Next(1,16)
        SELECT CASE pregunta
            CASE 1
        Console.WriteLine("¿Porque el sol es una estrella?")
        Console.WriteLine("porque esta en el cielo")
        Console.WriteLine("porque es mas grande que la tierra ")
        Console.WriteLine("porque brilla con luz propia")
        Console.WriteLine("porque es amarillo")
                respuesta = Console.Readline()
                if respuesta = 3 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 2
        Console.WriteLine("¿Cual es el centro del sistema solar?")
        Console.WriteLine("el sol")
        Console.WriteLine("la tierra")
        Console.WriteLine("pluton")
                Console.WriteLine("la luna")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 3
        Console.WriteLine("¿Porque en la luna no se escucha ningun sonido?")
        Console.WriteLine("porque esta lejos de la tierra")
        Console.WriteLine("porque su nucleo absorbe el sonido")
        Console.WriteLine("porque en todo el espacio no hay sonido")
        Console.WriteLine("porque en ella no hay aire")
                respuesta = Console.Readline()
                if respuesta = 4 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 4
        Console.WriteLine("¿Cual es el planeta rojo?")
        Console.WriteLine("marte")
        Console.WriteLine("mercurio")
        Console.WriteLine("urano")
        Console.WriteLine("saturno")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 5
        Console.WriteLine("¿Cuantos planetas conforman el sistema sola?")
        Console.WriteLine("12")
        Console.WriteLine("8")
        Console.WriteLine("9")
        Console.WriteLine("10")
                respuesta = Console.Readline()
                if respuesta = 2 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 6
        Console.WriteLine("¿Que temperatura hace en el espacio?")
        Console.WriteLine("-100°C")
        Console.WriteLine("98°C")
        Console.WriteLine("120°C")
        Console.WriteLine("-270°C")
                respuesta = Console.Readline()
                if respuesta = 4 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 7
        Console.WriteLine("¿Cuantas lunas tiene Jupiter?")
        Console.WriteLine("50 lunas")
        Console.WriteLine("1 luna")
        Console.WriteLine("61 lunas")
        Console.WriteLine("80 lunas")
                respuesta = Console.Readline()
                if respuesta = 3 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 8
        Console.WriteLine("¿Cuánto tiempo tarda la luz del sol en llegar al planeta tierra?")
        Console.WriteLine("10 minutos")
        Console.WriteLine("1 minuto")
        Console.WriteLine("8 minutos ")
        Console.WriteLine("46 segundos")
                respuesta = Console.Readline()
                if respuesta = 3 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 9
        Console.WriteLine("¿Cuál es el satélite natural más grande de todo el sistema solar?")
        Console.WriteLine("uno de los satélites de Júpiter")
        Console.WriteLine("uno de los satelites de la tierra")
        Console.WriteLine("uno de los satelites de marte")
        Console.WriteLine("uno de los satelites de saturno")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 10
        Console.WriteLine("¿Cuántos planetas del sistema solar poseen anillos?")
        Console.WriteLine("ninguno")
        Console.WriteLine("4")
        Console.WriteLine("6")
        Console.WriteLine("2")
                respuesta = Console.Readline()
                if respuesta = 2 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 11
        Console.WriteLine("¿Cuál es el planeta más radiactivo del sistema solar?")
        Console.WriteLine("neptuno")
        Console.WriteLine("marte")
        Console.WriteLine("la tierra")
        Console.WriteLine("jupiter")
                respuesta = Console.Readline()
                if respuesta = 4 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 12
        Console.WriteLine("¿Qué planeta del sistema solar se considera el más frío?")
        Console.WriteLine("marte")
        Console.WriteLine("urano")
        Console.WriteLine("saturno")
        Console.WriteLine("neptuno")
                respuesta = Console.Readline()
                if respuesta = 2 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 13
        Console.WriteLine("¿Qué planeta del sistema solar posee la atmósfera con mayor cantidad de oxígeno?")
        Console.WriteLine("la tierra")
        Console.WriteLine("venus")
        Console.WriteLine("mercurio")
        Console.WriteLine("el sol")
                respuesta = Console.Readline()
                if respuesta = 1 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 14
        Console.WriteLine("¿Qué planeta posee el día más corto del sistema solar?")
        Console.WriteLine("pluton")
        Console.WriteLine("urano")
        Console.WriteLine("jupiter")
        Console.WriteLine("venus")
                respuesta = Console.Readline()
                if respuesta = 3 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
            CASE 15
        Console.WriteLine("¿Cuál es el único cometa que el hombre puede ver a simple vista sin telescopio?")
        Console.WriteLine("el cometa Hale-Bopp")
        Console.WriteLine("El cometa Halley")
        Console.WriteLine("el cometa Shoemaker-Levy 9 ")
        Console.WriteLine("el cometa Wild 2")
                respuesta = Console.Readline()
                if respuesta = 2 Then
                    Console.WriteLine("Correcto")
                else
                    Console.WriteLine("Incorrecto")
                end if
        
        end select
    NEXT
        
    End Sub
End Module

View IL Code