在VB中，怎样实现每点击一次按钮变量增加一？

2025-01-19 16:58:11

推荐回答（5个）

回答1：

在程序最开头。或者模块中申明一个全局变量
Dim a as long

'按钮名称为Command1

Private Command_Click()
a=a+1
msgbox a '本行是查看是否成功加1。测试成功。即可去掉。
End Sub

回答2：

sub command1_click()
static icount as long
icount=icount+1
end sub

定义一个静态变量即可。

回答3：

Private Sub Command1_Click()
Command1.Tag = Val(Command1.Tag) + 1
MsgBox Command1.Tag
End Sub

回答4：

Private Sub Command1_Click()
Command1.Tag = Val(Command1.Tag) + 1
MsgBox Command1.Tag
End Sub

回答5：

全局变量i，click时i=I+1