Imports System

Public Module Module1

    Public Sub Main()

        Dim tarjetas as integer

​

        For cantidadderepeticiones = 1 to 50        

                Console.WriteLine("Ingrese el número indicado en la tarjeta")

                tarjetas = Console.ReadLine()

​

                Select case tarjetas

                    Case 1 

                     Console.Writeline("Atletismo")

                    Case 2 

                     Console.Writeline("Fútbol")

                    Case 3 

                     Console.Writeline("Voley")

                    Case 4 

                     Console.Writeline("Handball")

                    Case 5 

                     Console.Writeline("Hockey")

                    Case 6 

                     Console.Writeline("Natación")

                    Case  7

                     Console.Writeline("Tenis")

                    Case 8

                     Console.Writeline("Gimnasia artística")

                    Case 99

                        cantidadderepeticiones = 50         

                    case else

                    Console.WriteLine("No existe deporte")

                end select

            next cantidadderepeticiones

    End Sub

End Module