Question

vb 计算点击次数

Private Sub Command1_Click()
Dim a As Integer
a = 1
Form1.Label1.Caption = "单击按钮" & a & "次"
MsgBox "单击按钮" & a & "次"
a = a + 1
End sub
为什么消息框中显示的总是1次，也就是a没有累加上去？？

Answer 1

这个牵扯到变量的作用范围。

Private a As Integer 'a应该是全局变量，在过程“外面”（也就是代码的头部）声明

Private Sub Form_Load()
a = 1 'a的初始值应该在窗体开始的时候设置。
End sub

Private Sub Command1_Click()
Form1.Label1.Caption = "单击按钮" & a & "次"
MsgBox "单击按钮" & a & "次"
a = a + 1
End sub

Answer 2

Private Sub Command1_Click()
static a As Integer
Form1.Label1.Caption = "单击按钮" & a & "次"
MsgBox "单击按钮" & a & "次"
a = a + 1
End sub

说明：dim定义的是局部变量，过程运行完后不能保存住
可以用Static 来定义，还有每次按钮点击后因为有代码
a=1，所以，a每次都被初始化为1使得每次显示的都是1

Answer 3

原因很简单，每点一次 会执行一次 a=1，自然每次结果都是1。

a每次都重新赋值成1了

Answer 4

dim语句是重新赋值，即点每一次后a=0
你要改为static