VB编码问题

来源：百度知道 编辑：UC知道 时间：2024/05/21 06:26:32
Private Sub Command1_Click()
Select Case Text1.Text
Case 1 To 2
Label2.Caption = "冬天"
Case 3 To 5
Label2.Caption = "春天"
Case 6 To 8
Label2.Caption = "夏天"
Case 9 To 11
Label2.Caption = "秋天"
Case 12
Label2.Caption = "冬天"
Case Else
t1 = MsgBox("输入无效!", vbRetryCancel + vbExclamation, "系统提示")
End Select

End Sub
我看不出问题，但我输入3333和一些别的数字，也显示春季

Private Sub Command1_Click()
Select Case Val(Text1.Text) '改一下这里
Case 1 To 2
Label2.Caption = "冬天"
Case 3 To 5
Label2.Caption = "春天"
Case 6 To 8
Label2.Caption = "夏天"
Case 9 To 11
Label2.Caption = "秋天"
Case 12
Label2.Caption = "冬天"
Case Else
MsgBox "输入无效!", vbRetryCancel + vbExclamation, "系统提示"
End Select

End Sub

Private Sub Command1_Click()
Select Case Val(Text1.Text)
Case 1 To 2
Label2.Caption = "冬天"
Case 3 To 5
Label2.Caption = "春天"
Case 6 To 8
Label2.Caption = "夏天"
Case 9 To 11
Label2.Caption = "秋天"
Case 12
Label2.Caption = "冬天"
Case Else
t1 = MsgBox("输入无效!", vbRetryCancel + vbExclamation, "系统提示")
End Sele