请帮忙 一道题

'季节划分:
'12,1,2月为冬
'3,4,5月为春
'6,7,8月为夏
'9,10,11 月为秋

x = InputBox("请输入月份")
If x = 12 Then
y = 0
Else
y = x
End If
Select Case y \ 3
Case 0
s = "冬季"
Case 1
s = "春季"
Case 2
s = "夏季"
Case 3
s = "秋季"
End Select
MsgBox CStr(x) & "月是" & s

select case s
case 1 to 3
结果= 春
case 4 to 6
结果= 夏
case 7 to 9
结果= 秋
case 10 to 12
结果= 冬
end select