C# Online Compiler | .NET Fiddle

<no name> by Anonymous

Imports System

				
Public Module Module1
	Public Sub Main()
Dim respuesta as integer
		Dim contadorcorrecto as integer

'		Dim rpregunta as new Random()
			
		For x = 1 to 15		
			
'			pregunta = rpregunta.next(1,15)

				Select case x
					Case 1 
			Console.Writeline("¿en que año fue la revolucion de mayo?")
						Console.Writeline("1. 1823")
						Console.WriteLine("2. 1810")
						Console.Writeline("3. 1789")
						Console.WriteLine("4. 1973")
						respuesta = Console.ReadLine()
						
							if respuesta = 2 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 2 
			Console.Writeline("¿cual es el planeta mas cerca de el sol?")
		               	Console.Writeline("1. Venus")
               			Console.WriteLine("2. Marte")
			            Console.Writeline("3. Mercurio")
						Console.WriteLine("4. Urano")
						respuesta = Console.ReadLine()
						
							if respuesta = 3 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")
							end if
					Case 3 
			Console.Writeline("¿cual es la cuenta que esta mal?")
						Console.Writeline("1. 29 + 82 = 115")
						Console.WriteLine("2. 65 ÷ 5 = 13")
						Console.Writeline("3. 15 × 100 = 1500")
						Console.WriteLine("4. 48 - 37 = 11")
						respuesta = Console.ReadLine()
						
							if respuesta = 1 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 4 
			Console.Writeline("¿que planeta de el sistema solar es mas grande?")
			            Console.Writeline("1. Neptuno")
			            Console.WriteLine("2. Saturno")
			            Console.Writeline("3. Tierra")
			            Console.WriteLine("4. Jupiter")
						respuesta = Console.ReadLine()
						
							if respuesta = 4 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 5 
			Console.Writeline("¿cual de estos animales no es domestico?")
			            Console.Writeline("1. Gato")
		            	Console.WriteLine("2. perro")
			            Console.Writeline("3. Elefante")
			            Console.WriteLine("4. conejo")
						respuesta = Console.ReadLine()
						
							if respuesta = 3 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 6 
			Console.Writeline("¿Cual es el resultado de 8 elevado al cuadrado?")
						Console.Writeline("1. 64")
						Console.WriteLine("2. 60")
						Console.Writeline("3. 70")
						Console.WriteLine("4. 63")
						respuesta = Console.ReadLine()
						
							if respuesta = 1 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case  7
					 Console.Writeline("¿De qué color es la piel de un oso polar?")
			            Console.Writeline("1. Negro")
						Console.WriteLine("2. Rosa")
						Console.Writeline("3. Marron")
						Console.WriteLine("4. Blanco")
						respuesta = Console.ReadLine()
						
							if respuesta = 4 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 8
			Console.Writeline("¿cuando se creo la bandera argentina?")
			            Console.Writeline("1. 20 de febrero de 1200")
						Console.WriteLine("2. 27 de febrero de 1812")
			            Console.Writeline("3. 30 de enero de 1900")
			            Console.WriteLine("4. 27 de febrero de 1850")
						respuesta = Console.ReadLine()
						
							if respuesta = 2 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 9 
			Console.Writeline("¿cual es la raiz cuadrada de 16?")
			            Console.Writeline("1. 5")
						Console.WriteLine("2. 2")
			            Console.Writeline("3. 6")
			            Console.WriteLine("4. 4")
						respuesta = Console.ReadLine()
						
							if respuesta = 4 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 10 
			Console.Writeline("¿el color de el oso panda es")
			            Console.Writeline("1.marron")
			            Console.WriteLine("2. negro")
             			Console.Writeline("3. blanco y negro")
			            Console.WriteLine("4. marron y negro")
						respuesta = Console.ReadLine()
						
							if respuesta = 3 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 11
			Console.Writeline("¿cual es la cuenta que esta bien?")
			            Console.Writeline("1. 95 + 22 = 107")
			            Console.WriteLine("2. 55 - 15 = 45")
             			Console.Writeline("3. 87 × 5 = 435")
			            Console.WriteLine("4. 95 : 15 = 10 ")
						respuesta = Console.ReadLine()
						
							if respuesta = 3 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 12
					 Console.Writeline("¿cuántos continentes hay?")
			            Console.Writeline("1. 5")
			            Console.WriteLine("2. 7")
             			Console.Writeline("3. 8")
			            Console.WriteLine("4. 9 ")
						respuesta = Console.ReadLine()
						
							if respuesta = 2 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 13
			Console.Writeline("¿cual de estos animales vuela?")
			            Console.Writeline("1. zorro")
			            Console.WriteLine("2. leon")
		             	Console.Writeline("3. gato")
			            Console.WriteLine("4. aguila")
						respuesta = Console.ReadLine()
						
							if respuesta = 4 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 14
			Console.Writeline("¿cual es el reculatdo de 10 elevada a la 5?")
			            Console.Writeline("1. 100.000")
			            Console.WriteLine("2. 10.000")
		             	Console.Writeline("3. 1.000")
			            Console.WriteLine("4. 100")
						respuesta = Console.ReadLine()
						
							if respuesta = 1 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case  15
			Console.Writeline("¿cuanto es la raiz cuadrada de 1?")
			            Console.Writeline("1. 10")
			            Console.WriteLine("2. 1")
		             	Console.Writeline("3. 0")
			            Console.WriteLine("4. 100")
						respuesta = Console.ReadLine()
						
							if respuesta = 2 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 99
						x = 50			
					case else
					Console.WriteLine("No existe deporte")
				end select
			next x
	
		Console.WriteLine(" La cantidad de respuestas correctas: " & contadorcorrecto)
	contadorcorrecto = 15 
	Console.Writeline("felicitaciones")
	
	End Sub
End Module

​x
 
Imports System
​
                
Public Module Module1
    Public Sub Main()
Dim respuesta as integer
        Dim contadorcorrecto as integer
​
'       Dim rpregunta as new Random()
            
        For x = 1 to 15     
            
'           pregunta = rpregunta.next(1,15)
​
                Select case x
                    Case 1 
            Console.Writeline("¿en que año fue la revolucion de mayo?")
                        Console.Writeline("1. 1823")
                        Console.WriteLine("2. 1810")
                        Console.Writeline("3. 1789")
                        Console.WriteLine("4. 1973")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 2 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 2 
            Console.Writeline("¿cual es el planeta mas cerca de el sol?")
                        Console.Writeline("1. Venus")
                        Console.WriteLine("2. Marte")
                        Console.Writeline("3. Mercurio")
                        Console.WriteLine("4. Urano")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 3 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
                            end if
                    Case 3 
            Console.Writeline("¿cual es la cuenta que esta mal?")
                        Console.Writeline("1. 29 + 82 = 115")
                        Console.WriteLine("2. 65 ÷ 5 = 13")
                        Console.Writeline("3. 15 × 100 = 1500")
                        Console.WriteLine("4. 48 - 37 = 11")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 1 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 4 
            Console.Writeline("¿que planeta de el sistema solar es mas grande?")
                        Console.Writeline("1. Neptuno")
                        Console.WriteLine("2. Saturno")
                        Console.Writeline("3. Tierra")
                        Console.WriteLine("4. Jupiter")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 4 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 5 
            Console.Writeline("¿cual de estos animales no es domestico?")
                        Console.Writeline("1. Gato")
                        Console.WriteLine("2. perro")
                        Console.Writeline("3. Elefante")
                        Console.WriteLine("4. conejo")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 3 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 6 
            Console.Writeline("¿Cual es el resultado de 8 elevado al cuadrado?")
                        Console.Writeline("1. 64")
                        Console.WriteLine("2. 60")
                        Console.Writeline("3. 70")
                        Console.WriteLine("4. 63")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 1 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case  7
                     Console.Writeline("¿De qué color es la piel de un oso polar?")
                        Console.Writeline("1. Negro")
                        Console.WriteLine("2. Rosa")
                        Console.Writeline("3. Marron")
                        Console.WriteLine("4. Blanco")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 4 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 8
            Console.Writeline("¿cuando se creo la bandera argentina?")
                        Console.Writeline("1. 20 de febrero de 1200")
                        Console.WriteLine("2. 27 de febrero de 1812")
                        Console.Writeline("3. 30 de enero de 1900")
                        Console.WriteLine("4. 27 de febrero de 1850")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 2 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 9 
            Console.Writeline("¿cual es la raiz cuadrada de 16?")
                        Console.Writeline("1. 5")
                        Console.WriteLine("2. 2")
                        Console.Writeline("3. 6")
                        Console.WriteLine("4. 4")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 4 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 10 
            Console.Writeline("¿el color de el oso panda es")
                        Console.Writeline("1.marron")
                        Console.WriteLine("2. negro")
                        Console.Writeline("3. blanco y negro")
                        Console.WriteLine("4. marron y negro")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 3 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 11
            Console.Writeline("¿cual es la cuenta que esta bien?")
                        Console.Writeline("1. 95 + 22 = 107")
                        Console.WriteLine("2. 55 - 15 = 45")
                        Console.Writeline("3. 87 × 5 = 435")
                        Console.WriteLine("4. 95 : 15 = 10 ")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 3 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 12
                     Console.Writeline("¿cuántos continentes hay?")
                        Console.Writeline("1. 5")
                        Console.WriteLine("2. 7")
                        Console.Writeline("3. 8")
                        Console.WriteLine("4. 9 ")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 2 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 13
            Console.Writeline("¿cual de estos animales vuela?")
                        Console.Writeline("1. zorro")
                        Console.WriteLine("2. leon")
                        Console.Writeline("3. gato")
                        Console.WriteLine("4. aguila")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 4 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 14
            Console.Writeline("¿cual es el reculatdo de 10 elevada a la 5?")
                        Console.Writeline("1. 100.000")
                        Console.WriteLine("2. 10.000")
                        Console.Writeline("3. 1.000")
                        Console.WriteLine("4. 100")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 1 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case  15
            Console.Writeline("¿cuanto es la raiz cuadrada de 1?")
                        Console.Writeline("1. 10")
                        Console.WriteLine("2. 1")
                        Console.Writeline("3. 0")
                        Console.WriteLine("4. 100")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 2 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 99
                        x = 50          
                    case else
                    Console.WriteLine("No existe deporte")
                end select
            next x
    
        Console.WriteLine(" La cantidad de respuestas correctas: " & contadorcorrecto)
    contadorcorrecto = 15 
    Console.Writeline("felicitaciones")
    
    End Sub
End Module      

Hello World

Last Run:	7:58:50 am
Compile:	0.116s
Execute:	0s
Memory:	32kb
CPU:	0s

View IL Code