VB题目。。大神求解

Private Sub Command1_Click()
Dim m As Integer, n As Integer
Do
n = Val(InputBox("请输入月份"))
Loop Until n>0 And n < 13
Select Case n
Case 1, 2, 3
m = 1
Case 4, 5, 6
m = 2
Case 7, 8, 9
m = 3
Case 10, 11, 12
m = 4
End Select
Select Case m
Case 1
Text1.Text = Str(n) & " 月份是春季"
Case 2
Text1.Text = Str(n) & " 月份是夏季"
Case 3
Text1.Text = Str(n) & " 月份是秋季"
Case Else
Text1.Text = Str(n) & " 月份是冬季"
End Select
end sub