UC知道单击窗体，使用select case结构讲一年中的12个月份分成4个季节，并用print输出
来源：百度知道 编辑：UC知道 时间：2024/06/08 15:21:37
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
却显示不出来，哪里错了？
'单击窗体显示季节
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
却显示不出来，哪里错了？
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
Private Sub Form_Activate()
```
End Sub
你的x值为空，=0.