Imports System

Public Module Module1

    dim n as integer

    Public Sub Main()

        Console.WriteLine("Ingrese un numero del 1 al 12")

        n = Console.ReadLine()

        select case n

        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("Número de mes no válido")

        end select

        Console.ReadLine()

    End Sub

End Module