应该是按钮Command吧，不是button
应该在点击按钮事件中：
Private Sub Command1_Click()
Label1.Caption = Val(Label1.Caption) + 1
End Sub
Private Sub Command2_Click()
Label1.Caption = Val(Label1.Caption) - 1
If Val(Label1.Caption) < 0 Then Label1.Caption = 0
End Sub
或使用函数，这里就不写了。好像没有使用get或者set的。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024