C# Online Compiler | .NET Fiddle

<no name> by Anonymous

Imports System
				
Public Module Module1
	Public Sub Main()
		Dim Random as New Random(1)
		Dim pregunta as integer
		Dim Respuesta as integer
	
		FOR i = 1 to 7 
			'RandomClass.Next(valor mínimo, valor máximo)
			 pregunta = Random.Next(1,8)
				SELECT CASE pregunta
					CASE 1
						Console.WriteLine("Pregunta 1")
						Console.Writeline("1- Repuesta")
						Console.Writeline("2- Repuesta Correcta")
						Console.Writeline("3- Repuesta")
						Console.Writeline("4- Repuesta")
						respuesta = Console.ReadLine()
						If respuesta = 2 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta fue incorrecta")
						end if
					CASE 2
						Console.WriteLine("Pregunta 2")
						Console.Writeline("1- Repuesta Correcta")
						Console.Writeline("2- Repuesta")
						Console.Writeline("3- Repuesta")
						Console.Writeline("4- Repuesta")
						respuesta = Console.ReadLine()
						If respuesta = 1 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta fue incorrecta")
						end if
					CASE 3
						Console.WriteLine("Pregunta 3")
						Console.Writeline("1- Repuesta")
						Console.Writeline("2- Repuesta")
						Console.Writeline("3- Repuesta Correcta")
						Console.Writeline("4- Repuesta")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta fue incorrecta")
						end if
					CASE 4
						Console.WriteLine("Pregunta 4")
						Console.Writeline("1- Repuesta Correcta")
						Console.Writeline("2- Repuesta")
						Console.Writeline("3- Repuesta")
						Console.Writeline("4- Repuesta")
						respuesta = Console.ReadLine()
						If respuesta = 1 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta fue incorrecta")
						end if
					CASE 5
						Console.WriteLine("Pregunta 5")
						Console.Writeline("1- Repuesta")
						Console.Writeline("2- Repuesta")
						Console.Writeline("3- Repuesta")
						Console.Writeline("4- Repuesta Correcta")
						respuesta = Console.ReadLine()
						If respuesta = 4 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta fue incorrecta")
						end if
					CASE 6
						Console.WriteLine("Pregunta 6")
						Console.Writeline("1- Repuesta")
						Console.Writeline("2- Repuesta")
						Console.Writeline("3- Repuesta Correcta")
						Console.Writeline("4- Repuesta")
						respuesta = Console.ReadLine()
						If respuesta = 3 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta fue incorrecta")
						end if
					CASE 7
						Console.WriteLine("Pregunta 7")
						Console.Writeline("1- Repuesta")
						Console.Writeline("2- Repuesta")
						Console.Writeline("3- Repuesta")
						Console.Writeline("4- Repuesta Correcta")
						respuesta = Console.ReadLine()
						If respuesta = 4 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta fue incorrecta")
						end if
					CASE 8
						Console.WriteLine("Pregunta 8")
						Console.Writeline("1- Repuesta")
						Console.Writeline("2- Repuesta Correcta")
						Console.Writeline("3- Repuesta")
						Console.Writeline("4- Repuesta")
						respuesta = Console.ReadLine()
						If respuesta = 2 Then
							Console.WriteLine("Felicitaciones Respuesta Correcta")
						else
							Console.WriteLine("La respuesta fue incorrecta")
						end if
				END SELECT		
		NEXT
		
	End Sub
End Module

 
Imports System
                
Public Module Module1
    Public Sub Main()
        Dim Random as New Random(1)
        Dim pregunta as integer
        Dim Respuesta as integer
    
        FOR i = 1 to 7 
            'RandomClass.Next(valor mínimo, valor máximo)
             pregunta = Random.Next(1,8)
                SELECT CASE pregunta
                    CASE 1
                        Console.WriteLine("Pregunta 1")
                        Console.Writeline("1- Repuesta")
                        Console.Writeline("2- Repuesta Correcta")
                        Console.Writeline("3- Repuesta")
                        Console.Writeline("4- Repuesta")
                        respuesta = Console.ReadLine()
                        If respuesta = 2 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta fue incorrecta")
                        end if
                    CASE 2
                        Console.WriteLine("Pregunta 2")
                        Console.Writeline("1- Repuesta Correcta")
                        Console.Writeline("2- Repuesta")
                        Console.Writeline("3- Repuesta")
                        Console.Writeline("4- Repuesta")
                        respuesta = Console.ReadLine()
                        If respuesta = 1 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta fue incorrecta")
                        end if
                    CASE 3
                        Console.WriteLine("Pregunta 3")
                        Console.Writeline("1- Repuesta")
                        Console.Writeline("2- Repuesta")
                        Console.Writeline("3- Repuesta Correcta")
                        Console.Writeline("4- Repuesta")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta fue incorrecta")
                        end if
                    CASE 4
                        Console.WriteLine("Pregunta 4")
                        Console.Writeline("1- Repuesta Correcta")
                        Console.Writeline("2- Repuesta")
                        Console.Writeline("3- Repuesta")
                        Console.Writeline("4- Repuesta")
                        respuesta = Console.ReadLine()
                        If respuesta = 1 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta fue incorrecta")
                        end if
                    CASE 5
                        Console.WriteLine("Pregunta 5")
                        Console.Writeline("1- Repuesta")
                        Console.Writeline("2- Repuesta")
                        Console.Writeline("3- Repuesta")
                        Console.Writeline("4- Repuesta Correcta")
                        respuesta = Console.ReadLine()
                        If respuesta = 4 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta fue incorrecta")
                        end if
                    CASE 6
                        Console.WriteLine("Pregunta 6")
                        Console.Writeline("1- Repuesta")
                        Console.Writeline("2- Repuesta")
                        Console.Writeline("3- Repuesta Correcta")
                        Console.Writeline("4- Repuesta")
                        respuesta = Console.ReadLine()
                        If respuesta = 3 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta fue incorrecta")
                        end if
                    CASE 7
                        Console.WriteLine("Pregunta 7")
                        Console.Writeline("1- Repuesta")
                        Console.Writeline("2- Repuesta")
                        Console.Writeline("3- Repuesta")
                        Console.Writeline("4- Repuesta Correcta")
                        respuesta = Console.ReadLine()
                        If respuesta = 4 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta fue incorrecta")
                        end if
                    CASE 8
                        Console.WriteLine("Pregunta 8")
                        Console.Writeline("1- Repuesta")
                        Console.Writeline("2- Repuesta Correcta")
                        Console.Writeline("3- Repuesta")
                        Console.Writeline("4- Repuesta")
                        respuesta = Console.ReadLine()
                        If respuesta = 2 Then
                            Console.WriteLine("Felicitaciones Respuesta Correcta")
                        else
                            Console.WriteLine("La respuesta fue incorrecta")
                        end if
                END SELECT      
        NEXT
        
    End Sub
End Module

View IL Code