Imports System

Public Module Module1

    Public Sub Main()

        dim ans as integer

        Console.WriteLine("pick a number between 1 and 12")

        ans = console.ReadLine()

        select case ans

        case "1"

            console.WriteLine("January")

            case "2"

            console.WriteLine("Feburary")

            case "3"

            console.WriteLine("March")

            case "4"

            console.WriteLine("April")

            case "5"

            console.WriteLine("May")

            case "6"

            console.WriteLine("June")

            case "7"

            console.WriteLine("July")

            case "8"

            console.WriteLine("August")

            case "9"

            console.WriteLine("September")

            case "10"

            console.WriteLine("October")

            case "11"

            console.WriteLine("November")

            case "12"

            console.WriteLine("December")

        end select

    End Sub

End Module