Imports System

Imports VisualBasic.Net

Public Module Module1

    Public Sub Main()

        Dim respuesta as integer

        Dim contadorcorrecto as integer

​

'       Dim rpregunta as new Random()

        For cantidadderepeticiones = 1 to 15        

'           pregunta = rpregunta.next(1,15)

​

                Select case cantidadderepeticiones

                    Case 1 

                        Console.Writeline("¿Quién creo la bandera?")

                        Console.Writeline("1. belgrano")

                        Console.WriteLine("2. San martin ")

                        Console.Writeline("3. Juan manuel de rosas ")

                        Console.WriteLine("4. juan jose Castelli ")

                        respuesta = Console.ReadLine()

                            if respuesta = 3 then

                                Console.WriteLine("Correcto")

                                contadorcorrecto += 1

                            else    

                                Console.WriteLine("Incorrecto")

​

                            end if

                    Case 2 

                        Console.Writeline("¿Cantos golpes de estado exitosos hubo en el siglo XX ?")

                        Console.Writeline("1. 3 golpes ")

                        Console.WriteLine("2.  6 golpes ")

                        Console.Writeline("3. 1 golpe")

                        Console.WriteLine("4. 4 golpes ")

                        respuesta = Console.ReadLine()

                            if respuesta = 1 then

                                Console.WriteLine("Correcto")

                                contadorcorrecto += 1

                            else    

                                Console.WriteLine("Incorrecto")

                            end if

                    Case 3 

                     Console.Writeline("¿Cuántos ex presidentes han sido asesinados ?")

                        Console.Writeline("1. 15")

                        Console.WriteLine("2. 37")

                        Console.Writeline("3. 49")

                        Console.WriteLine("4. 22")

                        respuesta = Console.ReadLine()

                            if respuesta = 3 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 = 50         

                    case else

                    Console.WriteLine("No existe deporte")

                end select

            next cantidadderepeticiones

        Console.WriteLine(" La cantidad de respuestas correctas: " & contadorcorrecto)

    End Sub

End Module      

​