TP Final Dante Sanmarco | C# Online Compiler

TP Final Dante Sanmarco by dante sanmarco

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

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

				Select case cantidadderepeticiones
					Case 1 
			Console.Writeline("¿Debemos comer todos los alimentos de la piramide nutricional para estar saludables?")
						Console.Writeline("1. si")
						Console.WriteLine("2. no")
			            Console.Writeline("3. tal vez")
						Console.WriteLine("4. Nunca")
			Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
						
							if respuesta = 1 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 2 
			            Console.Writeline("¿Que debemos hacer antes de comenzar a hacer ejercicios?")
			            Console.Writeline("1. Comer")
			            Console.WriteLine("2. dormir una siesta")
			            Console.Writeline("3. fumar")
			            Console.WriteLine("4. entrar en calor")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
						
							if respuesta = 4 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")
							end if
					Case 3 
			Console.Writeline("¿Cómo se llama la provincia que tiene forma de bota?")
		            	Console.Writeline("1. San Luis")
						Console.WriteLine("2. San Juan")
			            Console.Writeline("3. Mendoza")
			            Console.WriteLine("4. Sante Fé")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
			                    if respuesta = 4 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")
							end if
			Case 4 
			Console.Writeline("¿Cuánto es 100 x 3 /25 x 0?")
						Console.Writeline("1. 25")
						Console.WriteLine("2. 1")
			            Console.Writeline("3. 0")
						Console.WriteLine("4. 4")
			Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
						
							if respuesta = 3 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 5 
			Console.Writeline("¿Cuántos continentes existen, contando la Antártida?")
			            Console.Writeline("1. 5")
			            Console.WriteLine("2. 6")
			            Console.Writeline("3. 7")
			            Console.WriteLine("4. 3")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
						
							if respuesta = 2 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")
							end if
					Case 6 
			Console.Writeline("¿Cuántas provincias tiene Argentina?")
		            	Console.Writeline("1. 25")
						Console.WriteLine("2. 23")
			            Console.Writeline("3. 24")
			            Console.WriteLine("4. 26")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
						
							if respuesta = 2 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")
			end if
			
			     	Case 7 
			Console.Writeline("¿Cuándo se firmo la liga unitaria?")
			Console.Writeline("1. 5 de julio de 1830")
			Console.WriteLine("2. 9 de julio de 1825")
			Console.Writeline("3. 25 de mayo de 1840")
			Console.WriteLine("4. 22 de abril de 1826")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
						
							if respuesta = 1 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 8 
			Console.Writeline("¿Cuál fue el presidente que le dio el derecho de vacaciones y aguinaldo a los trabajadores en Argentina?")
			Console.Writeline("1. Fernando de la Rúa")
			            Console.WriteLine("2. Jorge Rafael Videla")
			Console.Writeline("3. Carlos Saúl Menem")
			Console.WriteLine("4. Juan Domingo Perón")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
						
							if respuesta = 4 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")
							end if
					Case 9 
			Console.Writeline("¿En que año comenzó la pandemia por Covid-19?")
		            	Console.Writeline("1. 2020")
						Console.WriteLine("2. 2019")
			            Console.Writeline("3. 2018")
			            Console.WriteLine("4. 2021")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
			
							if respuesta = 1 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")
							end if
				Case 10 
			Console.Writeline("¿cual fue el primer satélite lanzado al espacio?")
			Console.Writeline("1. Sputnik 1 ")
			Console.WriteLine("2. Sputnik 5")
			Console.Writeline("3. Apollo 3")
			Console.WriteLine("4. Explorer 1")
			Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()						
								if respuesta = 1 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							    else	
								Console.WriteLine("Incorrecto")
							    end if
					Case 11 
			Console.Writeline("¿Quién fundó la bandera Argentina?")
			Console.Writeline("1. Juan Mnuel de Rosas")
			Console.WriteLine("2. José de San Martin")
			Console.Writeline("3. Manuel Belgrano")
			Console.WriteLine("4. Domingo Faustino Sarmiento")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()						
								if respuesta = 3 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							    else	
								Console.WriteLine("Incorrecto")
							    end if
					Case 12 
			Console.Writeline("¿Qué moléculas aparecieron en el experimento de Miller?")
		    Console.Writeline("1. moléculas orgánicas")
			Console.WriteLine("2. moléculas inorgánicas")
			Console.Writeline("3. macromoléculas")
			Console.WriteLine("4. moléculas diatomicas")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
			
								if respuesta = 1 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")
							end if
			
				Case 13 
			Console.Writeline("¿Quién creó por primera vez la electricidad?")
						Console.Writeline("1. Stephen Hawking")
			Console.WriteLine("2. Nikolas Tesla")
			            Console.Writeline("3. Albert Einstein")
						Console.WriteLine("4. Thomas Alva Edison")
						Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
						
							if respuesta = 4 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")

							end if
					Case 14 
			Console.Writeline("¿De dónde se obtiene la vitamina D?")
			Console.Writeline("1. de la luna")
			Console.WriteLine("2. del sol")
			Console.Writeline("3. del agua")
			Console.WriteLine("4. de las estrellas")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
						
							if respuesta = 2 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")
							end if
					Case 15 
			Console.Writeline("¿Con qué palabra indicamos que finaliza el programa en Visual Basic?")
		            	Console.Writeline("1. End Module")
						Console.WriteLine("2. End if")
			            Console.Writeline("3. End Sub")
						Console.WriteLine("4. End select")
			            Console.WriteLine("ingrese Numero de opcion")
						respuesta = Console.ReadLine()
                                if respuesta = 1 then
								Console.WriteLine("Correcto")
								contadorcorrecto += 1
							else	
								Console.WriteLine("Incorrecto")
							end if
			
					Case 4 
					 Console.Writeline("4")
					Case 5 
					 Console.Writeline("5")
					Case 6 
					 Console.Writeline("6")
					Case  7
					 Console.Writeline("7")
					Case 8
					 Console.Writeline("8")
					Case 9 
					 Console.Writeline("9")
					Case 10 
					 Console.Writeline("10")
					Case 11
					 Console.Writeline("11")
					Case 12
					 Console.Writeline("12")
					Case 13
					 Console.Writeline("13")
					Case 14
					 Console.Writeline("14")
					Case  15
					 Console.Writeline("15")
					Case 99
						cantidadderepeticiones = 60			
					case else
			Console.WriteLine("No existe pregunta")
				end select
			    next cantidadderepeticiones
	
		Console.WriteLine(" La cantidad de respuestas correctas: " & contadorcorrecto)
	if contadorcorrecto = 15 then
		Console.WriteLine("FELICIDADES")
	END IF
	End Sub
End Module

​x
 
Imports System
                
Public Module Module1
    Public Sub Main()
        Dim respuesta as integer
        Dim contadorcorrecto as integer
​
'       Dim pregunta as new Random()
            
        For cantidadderepeticiones = 1 to 15        
            
'           pregunta = pregunta.next(1,15)
​
                Select case cantidadderepeticiones
                    Case 1 
            Console.Writeline("¿Debemos comer todos los alimentos de la piramide nutricional para estar saludables?")
                        Console.Writeline("1. si")
                        Console.WriteLine("2. no")
                        Console.Writeline("3. tal vez")
                        Console.WriteLine("4. Nunca")
            Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 1 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 2 
                        Console.Writeline("¿Que debemos hacer antes de comenzar a hacer ejercicios?")
                        Console.Writeline("1. Comer")
                        Console.WriteLine("2. dormir una siesta")
                        Console.Writeline("3. fumar")
                        Console.WriteLine("4. entrar en calor")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 4 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
                            end if
                    Case 3 
            Console.Writeline("¿Cómo se llama la provincia que tiene forma de bota?")
                        Console.Writeline("1. San Luis")
                        Console.WriteLine("2. San Juan")
                        Console.Writeline("3. Mendoza")
                        Console.WriteLine("4. Sante Fé")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                                if respuesta = 4 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
                            end if
            Case 4 
            Console.Writeline("¿Cuánto es 100 x 3 /25 x 0?")
                        Console.Writeline("1. 25")
                        Console.WriteLine("2. 1")
                        Console.Writeline("3. 0")
                        Console.WriteLine("4. 4")
            Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 3 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 5 
            Console.Writeline("¿Cuántos continentes existen, contando la Antártida?")
                        Console.Writeline("1. 5")
                        Console.WriteLine("2. 6")
                        Console.Writeline("3. 7")
                        Console.WriteLine("4. 3")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 2 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
                            end if
                    Case 6 
            Console.Writeline("¿Cuántas provincias tiene Argentina?")
                        Console.Writeline("1. 25")
                        Console.WriteLine("2. 23")
                        Console.Writeline("3. 24")
                        Console.WriteLine("4. 26")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 2 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
            end if
            
                    Case 7 
            Console.Writeline("¿Cuándo se firmo la liga unitaria?")
            Console.Writeline("1. 5 de julio de 1830")
            Console.WriteLine("2. 9 de julio de 1825")
            Console.Writeline("3. 25 de mayo de 1840")
            Console.WriteLine("4. 22 de abril de 1826")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 1 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 8 
            Console.Writeline("¿Cuál fue el presidente que le dio el derecho de vacaciones y aguinaldo a los trabajadores en Argentina?")
            Console.Writeline("1. Fernando de la Rúa")
                        Console.WriteLine("2. Jorge Rafael Videla")
            Console.Writeline("3. Carlos Saúl Menem")
            Console.WriteLine("4. Juan Domingo Perón")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 4 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
                            end if
                    Case 9 
            Console.Writeline("¿En que año comenzó la pandemia por Covid-19?")
                        Console.Writeline("1. 2020")
                        Console.WriteLine("2. 2019")
                        Console.Writeline("3. 2018")
                        Console.WriteLine("4. 2021")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
            
                            if respuesta = 1 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
                            end if
                Case 10 
            Console.Writeline("¿cual fue el primer satélite lanzado al espacio?")
            Console.Writeline("1. Sputnik 1 ")
            Console.WriteLine("2. Sputnik 5")
            Console.Writeline("3. Apollo 3")
            Console.WriteLine("4. Explorer 1")
            Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()                      
                                if respuesta = 1 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                                else    
                                Console.WriteLine("Incorrecto")
                                end if
                    Case 11 
            Console.Writeline("¿Quién fundó la bandera Argentina?")
            Console.Writeline("1. Juan Mnuel de Rosas")
            Console.WriteLine("2. José de San Martin")
            Console.Writeline("3. Manuel Belgrano")
            Console.WriteLine("4. Domingo Faustino Sarmiento")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()                      
                                if respuesta = 3 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                                else    
                                Console.WriteLine("Incorrecto")
                                end if
                    Case 12 
            Console.Writeline("¿Qué moléculas aparecieron en el experimento de Miller?")
            Console.Writeline("1. moléculas orgánicas")
            Console.WriteLine("2. moléculas inorgánicas")
            Console.Writeline("3. macromoléculas")
            Console.WriteLine("4. moléculas diatomicas")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
            
                                if respuesta = 1 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
                            end if
            
                Case 13 
            Console.Writeline("¿Quién creó por primera vez la electricidad?")
                        Console.Writeline("1. Stephen Hawking")
            Console.WriteLine("2. Nikolas Tesla")
                        Console.Writeline("3. Albert Einstein")
                        Console.WriteLine("4. Thomas Alva Edison")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 4 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
​
                            end if
                    Case 14 
            Console.Writeline("¿De dónde se obtiene la vitamina D?")
            Console.Writeline("1. de la luna")
            Console.WriteLine("2. del sol")
            Console.Writeline("3. del agua")
            Console.WriteLine("4. de las estrellas")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                        
                            if respuesta = 2 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
                            end if
                    Case 15 
            Console.Writeline("¿Con qué palabra indicamos que finaliza el programa en Visual Basic?")
                        Console.Writeline("1. End Module")
                        Console.WriteLine("2. End if")
                        Console.Writeline("3. End Sub")
                        Console.WriteLine("4. End select")
                        Console.WriteLine("ingrese Numero de opcion")
                        respuesta = Console.ReadLine()
                                if respuesta = 1 then
                                Console.WriteLine("Correcto")
                                contadorcorrecto += 1
                            else    
                                Console.WriteLine("Incorrecto")
                            end if
            
                    Case 4 
                     Console.Writeline("4")
                    Case 5 
                     Console.Writeline("5")
                    Case 6 
                     Console.Writeline("6")
                    Case  7
                     Console.Writeline("7")
                    Case 8
                     Console.Writeline("8")
                    Case 9 
                     Console.Writeline("9")
                    Case 10 
                     Console.Writeline("10")
                    Case 11
                     Console.Writeline("11")
                    Case 12
                     Console.Writeline("12")
                    Case 13
                     Console.Writeline("13")
                    Case 14
                     Console.Writeline("14")
                    Case  15
                     Console.Writeline("15")
                    Case 99
                        cantidadderepeticiones = 60         
                    case else
            Console.WriteLine("No existe pregunta")
                end select
                next cantidadderepeticiones
    
        Console.WriteLine(" La cantidad de respuestas correctas: " & contadorcorrecto)
    if contadorcorrecto = 15 then
        Console.WriteLine("FELICIDADES")
    END IF
    End Sub
End Module

some

Cached Result
Last Run:	2:29:42 am
Compile:	0.012s
Execute:	0.2s
Memory:	21.04Mb
CPU:	0.212s

View IL Code