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

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

'按钮名称为Command1

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

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

定义一个静态变量即可。

参考资料：走自己的路，让别人说去吧。【PC】 58689550 vb群

本回答被提问者采纳

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

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

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