Question

单击窗体，使用select case结构讲一年中的12个月份分成4个季节，并用print输出

Private Sub Form_Load()
'单击窗体显示季节
Dim x As Integer
Dim y As Integer
Select Case x
Case 1
y = "冬季"
Case 2 To 4
y = "春季"
Case 5 To 7
y = "夏季"
Case 8 To 10
y = "秋季"
Case 11 To 12
y = "冬季"

Print "月份是" & x
Print "季节是" & y
End Select
End Sub
却显示不出来，哪里错了？

Answer 1

Private Sub Form_Click()
'单击窗体显示季节
Dim x As Integer
Dim y As String
x = Month(Now)
Select Case x
Case 1
y = "冬季"
Case 2 To 4
y = "春季"
Case 5 To 7
y = "夏季"
Case 8 To 10
y = "秋季"
Case 11 To 12
y = "冬季"

Print "月份是" & x
Print "季节是" & y
End Select
End Sub

Answer 2

Private Sub Form_Activate()
```
End Sub

Answer 3

你的x值为空，=0.