Imports System

​

Public Module Module1

​

    Sub Main()

        Dim num as integer

        Dim stone as string

        Dim month as string

        Console.WriteLine("Select a Month")

        Console.WriteLine("1) January")

        Console.WriteLine("2) February")

        Console.WriteLine("3) March")

        Console.WriteLine("4) April")

        Console.WriteLine("5) May")

        Console.WriteLine("6) June")

        Console.WriteLine("7) July")

        Console.WriteLine("8) August")

        Console.WriteLine("9) September")

        Console.WriteLine("10) October")

        Console.WriteLine("11) November")

        Console.WriteLine("12) December")

        num = console.readline()

        select num

        case 1: 

            month = "January"

            stone = "Garnet"

        case 2: 

            month = "February"

            stone = "Amethyst"

        case 3: 

            month = "March"

            stone = "Aquamarine"

        case 4: 

            month = "April"

            stone = "Diamond"

        case 5:

            month = "May"

            stone = "Emerald"

        case 6: 

            month = "June"

            stone = "Alexandrite"

        case 7: 

            month = "July"

            stone = "Ruby"

        case 8: 

            month = "August"

            stone = "Peridot"

        case 9: 

            month = "September"

            stone = "Sapphire"

        case 10: 

            month = "October"

            stone = "Opal"

        case 11: 

            month = "November"

            stone = "Citrine"

        case 12: 

            month = "December"

            stone = "Blue Topaz"        

        case else:

            month = ""

            stone = ""

        end select

        Console.writeline("The brith stone for {0} is {1} ", month , stone)

    End Sub

End Module

​