Imports System
Public Module Module1
Public Sub Main()
dim month as string
dim stone as string
console.writeline("What month were you born?")
month = console.readline()
select month
case "January" :
month = "January"
stone = "Garnet"
case "Febuary" :
month = "Febuary"
stone = "Amethyst"
case "March" :
month = "March"
stone = "Aquamarine"
case "April" :
month = "April"
stone = "Diamond"
case "May" :
month = "May"
stone = "Emerald"
case "June" :
month = "June"
stone = "Pearl"
case "July" :
month = "July"
stone = "Ruby"
case "August" :
month = "August"
stone = "Peridot"
case "September" : month = "September"
stone = "Sappire"
case "October" :
month = "October"
stone = "Opal"
case "November" :
month = "November"
stone = "Topaz"
case "December" :
month = "December"
stone = "Turquoise"
case else : month = "none"
stone = "none"
end select
console.writeline("The birthstone for {0} is {1}.", month, stone)
end sub
end module
