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("¿De que color era el caballo blanco de San Martin?")

                        Console.Writeline("1. Azul")

                        Console.WriteLine("2. Marrón")

                        Console.Writeline("3. Blanco")

                        Console.WriteLine("4. Negro")

                        respuesta = Console.ReadLine()

                            if respuesta = 3 then

                                Console.WriteLine("Correcto")

                                contadorcorrecto += 1

                            else    

                                Console.WriteLine("Incorrecto")

​

                            end if

                    Case 2 

                        Console.Writeline("¿De que color era el caballo marrón de San Martin?")

                        Console.Writeline("1. Marrón")

                        Console.WriteLine("2. Azul")

                        Console.Writeline("3. Negro")

                        Console.WriteLine("4. Blanco")

                        respuesta = Console.ReadLine()

                            if respuesta = 1 then

                                Console.WriteLine("Correcto")

                                contadorcorrecto += 1

                            else    

                                Console.WriteLine("Incorrecto")

                            end if

                    Case 3 

                     Console.Writeline("¿De que color era el caballo blanco de San Martin?")

                        Console.Writeline("1. Marron ")

                        Console.WriteLine("2. Blanco")

                        Console.Writeline("3. Azul")

                        Console.WriteLine("4. Negro")

                        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