Imports System

Public Module Module1

    Public Sub Main()

        Dim m as integer

        Console.WriteLine("Dime el número de un mes, donde 1 es enero y 12 es diciembre:")

        m = Console.ReadLine()

        Select Case m

        Case 1  

            Console.WriteLine("Enero")

        Case 2  

            Console.WriteLine("Febrero")

        Case 3  

            Console.WriteLine("Marzo")

        Case 4  

            Console.WriteLine("Abril")

        Case 5  

            Console.WriteLine("Mayo")

        Case 6  

            Console.WriteLine("Junio")

        Case 7  

            Console.WriteLine("Julio")

        Case 8  

            Console.WriteLine("Agosto")

        Case 9  

            Console.WriteLine("Septiembre")

        Case 10  

            Console.WriteLine("Octubre")

        Case 11  

            Console.WriteLine("Noviembre")

        Case 12  

            Console.WriteLine("Diciembre")

        Case else

            Console.WriteLine("Ingrese un número de un mes válido.")

        End Select

    End Sub

End Module