VB编码问题

发布网友 发布时间：2022-04-25 00:03

我来回答

共2个回答

热心网友 时间：2023-10-16 13:52

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

热心网友 时间：2023-10-16 13:53

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 Select