Question

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

Answer 1

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

'按钮名称为Command1

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

Answer 2

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

定义一个静态变量即可。

Answer 3

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

Answer 4

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

Answer 5

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