【简答题】

Private Sub Command1_Click()
    Dim m As Integer, n As Integer
    Do
        n = Val(InputBox("请输入月份"))
    '  Loop Until ? And n < 13
    '  Select Case ?
        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 ?
        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