Imports System
Public Class SeasonPrinter
Public Shared Sub PrintSeason(ByVal month As Integer)
Select Case month
Case 12, 1, 2
Console.WriteLine("Winter")
Case 3, 4, 5
Console.WriteLine("Spring")
Case 6, 7, 8
Console.WriteLine("Summer")
Case 9, 10, 11
Console.WriteLine("Autumn")
Case Else
Console.WriteLine("Invalid month number!")
End Select
End Sub
Public Shared Sub Main(ByVal args As String())
Dim month As Integer = 9
PrintSeason(month)
End Sub
End Class
' run:
'
' Autumn
'