UC知道如何写这个vb的代码
来源：百度知道 编辑：UC知道 时间：2024/05/26 22:19:42
用label输入了一个数字，比如23，旁边跟了两个command，+和-，如何设计代码使得点击+的时候，23加1，点击-的时候，23减一，范围是0--50
Private Sub Command1_Click()
Label1.Caption = Label1.Caption + 1
If Val(Label1.Caption) > 49 Then
a = MsgBox("数字已经超出0~50范围", vbOKCancel, "错误提示")
Label1.Caption = 50
End If
End Sub
Private Sub Command2_Click()
Label1.Caption = Label1.Caption - 1
If Val(Label1.Caption) < 1 Then
a = MsgBox("数字已经超出0~50范围", vbOKCancel, "错误提示")
Label1.Caption = 0
End If
End Sub
`