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,8)
				SELECT CASE pregunta
					CASE 1
						Console.WriteLine("Cual es mi nombre?")
						Console.Writeline("1- Agustina")
						Console.Writeline("2- Celina")
						Console.Writeline("3- Antonella")
						Console.Writeline("4- Lola")
						respuesta = Console.ReadLine()
						If respuesta = 1 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 2
						Console.WriteLine("Qué edad tengo?")
						Console.Writeline("1- 14")
						Console.Writeline("2- 16")
						Console.Writeline("3- 18")
						Console.Writeline("4- 15")
						respuesta = Console.ReadLine()
						If respuesta = 1 Then
							Console.WriteLine("La Respuesta es Correcta")
					
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 3
						Console.WriteLine("Qué año es?")
						Console.Writeline("1- siglo IX")
						Console.Writeline("2- 1995")
						Console.Writeline("3- 2020")
						Console.Writeline("4- 2001")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 4
						Console.WriteLine("Cuantos días tiene el mes de Enero?")
						Console.Writeline("1- 31 días")
						Console.Writeline("2- 29 días")
						Console.Writeline("3- 30 días")
						Console.Writeline("4- 27 días")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 5
						Console.WriteLine("Cuantas horas tiene un día?")
						Console.Writeline("1- 12")
						Console.Writeline("2- 24")
						Console.Writeline("3- 22")
						Console.Writeline("4- 20")
						respuesta = Console.ReadLine()
						If respuesta = 2 Then
							Console.WriteLine("La  Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 6
						Console.WriteLine("En que año se descubrió América?")
						Console.Writeline("1- 1997")
						Console.Writeline("2- 1887")
						Console.Writeline("3- 1492")
						Console.Writeline("4- 2001")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine(" La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 7
						Console.WriteLine("Qué es la Informática?")
						Console.Writeline("1- Ciencia que estudia el cuerpo humano")
						Console.Writeline("2- Capacidad de hablar")
						Console.Writeline("3- Es información")
						Console.Writeline("4- Conocimientos técnicos")
						respuesta = Console.ReadLine()
						If respuesta = 4 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 8
	Console.WriteLine("En que año nació Juan Manuel de Rosas?")
						Console.Writeline("1- 2007")
						Console.Writeline("2- 1770")
						Console.Writeline("3- 1793")
						Console.Writeline("4- 1895")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 9
						Console.WriteLine("En que año se creó la computadora?")
						Console.Writeline("1- 1941")
						Console.Writeline("2- 1899")
						Console.Writeline("3- 1964")
						Console.Writeline("4- 1973")
						respuesta = Console.ReadLine()
						If respuesta = 1 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 10
						Console.WriteLine("Qué mes es?")
						Console.Writeline("1- Agosto")
						Console.Writeline("2- Noviembre")
						Console.Writeline("3- Diciembre")
						Console.Writeline("4- Marzo")
						respuesta = Console.ReadLine()
						If respuesta = 2 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 11
						Console.WriteLine("Qué en qué letra de curso estamos?")
						Console.Writeline("1- B")
						Console.Writeline("2- D")
						Console.Writeline("3- A")
						Console.Writeline("4- C")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 12
	Console.WriteLine("cuantas clases tenemos en una semana?")
						Console.Writeline("1- 2")
						Console.Writeline("2- 8")
						Console.Writeline("3- 11")
						Console.Writeline("4- 9")
						respuesta = Console.ReadLine()
						If respuesta = 11 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 13  
	Console.Writeline("cuando se independizó Argentina?")
						Console.Writeline("1- 1816")
						Console.Writeline("2- 1812")
						Console.Writeline("3- 1782")
						Console.Writeline("4- 1912")
						respuesta = Console.ReadLine()
						If respuesta = 1 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 14
	Console.WriteLine("cuando se creo Whatsapp?")
						Console.Writeline("1- 2003")
						Console.Writeline("2- 2009")
						Console.Writeline("3- 2005")
						Console.Writeline("4- 2000")
						respuesta = Console.ReadLine()
						If respuesta = 2 Then
							Console.WriteLine("La Respuesta es Correcta")
						else
							Console.WriteLine("La respuesta es incorrecta")
						end if
					CASE 15
	Console.WriteLine("Cuantas preguntas hay?")
						Console.Writeline("1- 3")
						Console.Writeline("2- 8")
						Console.Writeline("3- 15")
						Console.Writeline("4- 16")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("La Respuesta es 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,8)
                SELECT CASE pregunta
                    CASE 1
                        Console.WriteLine("Cual es mi nombre?")
                        Console.Writeline("1- Agustina")
                        Console.Writeline("2- Celina")
                        Console.Writeline("3- Antonella")
                        Console.Writeline("4- Lola")
                        respuesta = Console.ReadLine()
                        If respuesta = 1 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 2
                        Console.WriteLine("Qué edad tengo?")
                        Console.Writeline("1- 14")
                        Console.Writeline("2- 16")
                        Console.Writeline("3- 18")
                        Console.Writeline("4- 15")
                        respuesta = Console.ReadLine()
                        If respuesta = 1 Then
                            Console.WriteLine("La Respuesta es Correcta")
                    
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 3
                        Console.WriteLine("Qué año es?")
                        Console.Writeline("1- siglo IX")
                        Console.Writeline("2- 1995")
                        Console.Writeline("3- 2020")
                        Console.Writeline("4- 2001")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 4
                        Console.WriteLine("Cuantos días tiene el mes de Enero?")
                        Console.Writeline("1- 31 días")
                        Console.Writeline("2- 29 días")
                        Console.Writeline("3- 30 días")
                        Console.Writeline("4- 27 días")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 5
                        Console.WriteLine("Cuantas horas tiene un día?")
                        Console.Writeline("1- 12")
                        Console.Writeline("2- 24")
                        Console.Writeline("3- 22")
                        Console.Writeline("4- 20")
                        respuesta = Console.ReadLine()
                        If respuesta = 2 Then
                            Console.WriteLine("La  Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 6
                        Console.WriteLine("En que año se descubrió América?")
                        Console.Writeline("1- 1997")
                        Console.Writeline("2- 1887")
                        Console.Writeline("3- 1492")
                        Console.Writeline("4- 2001")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine(" La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 7
                        Console.WriteLine("Qué es la Informática?")
                        Console.Writeline("1- Ciencia que estudia el cuerpo humano")
                        Console.Writeline("2- Capacidad de hablar")
                        Console.Writeline("3- Es información")
                        Console.Writeline("4- Conocimientos técnicos")
                        respuesta = Console.ReadLine()
                        If respuesta = 4 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 8
    Console.WriteLine("En que año nació Juan Manuel de Rosas?")
                        Console.Writeline("1- 2007")
                        Console.Writeline("2- 1770")
                        Console.Writeline("3- 1793")
                        Console.Writeline("4- 1895")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 9
                        Console.WriteLine("En que año se creó la computadora?")
                        Console.Writeline("1- 1941")
                        Console.Writeline("2- 1899")
                        Console.Writeline("3- 1964")
                        Console.Writeline("4- 1973")
                        respuesta = Console.ReadLine()
                        If respuesta = 1 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 10
                        Console.WriteLine("Qué mes es?")
                        Console.Writeline("1- Agosto")
                        Console.Writeline("2- Noviembre")
                        Console.Writeline("3- Diciembre")
                        Console.Writeline("4- Marzo")
                        respuesta = Console.ReadLine()
                        If respuesta = 2 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 11
                        Console.WriteLine("Qué en qué letra de curso estamos?")
                        Console.Writeline("1- B")
                        Console.Writeline("2- D")
                        Console.Writeline("3- A")
                        Console.Writeline("4- C")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 12
    Console.WriteLine("cuantas clases tenemos en una semana?")
                        Console.Writeline("1- 2")
                        Console.Writeline("2- 8")
                        Console.Writeline("3- 11")
                        Console.Writeline("4- 9")
                        respuesta = Console.ReadLine()
                        If respuesta = 11 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 13  
    Console.Writeline("cuando se independizó Argentina?")
                        Console.Writeline("1- 1816")
                        Console.Writeline("2- 1812")
                        Console.Writeline("3- 1782")
                        Console.Writeline("4- 1912")
                        respuesta = Console.ReadLine()
                        If respuesta = 1 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 14
    Console.WriteLine("cuando se creo Whatsapp?")
                        Console.Writeline("1- 2003")
                        Console.Writeline("2- 2009")
                        Console.Writeline("3- 2005")
                        Console.Writeline("4- 2000")
                        respuesta = Console.ReadLine()
                        If respuesta = 2 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                    CASE 15
    Console.WriteLine("Cuantas preguntas hay?")
                        Console.Writeline("1- 3")
                        Console.Writeline("2- 8")
                        Console.Writeline("3- 15")
                        Console.Writeline("4- 16")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("La Respuesta es Correcta")
                        else
                            Console.WriteLine("La respuesta es incorrecta")
                        end if
                END SELECT
    
        NEXT
        
    End Sub
End Module

Въведете текст

Cached Result
Last Run:	2:07:11 am
Compile:	0.11s
Execute:	0s
Memory:	32kb
CPU:	0s

View IL Code