Question

VB 按钮数字累加

在一个form当中添加一个按钮。定义变量a为整数（a=0），现在要想实现每次点击一次按钮就使a=a+1，以下是我写的代码：
Private Sub Form_Load()
Dim a As Integer
a = 0
End Sub
Private Sub Command1_Click()
a = a + 1
Print a
End Sub
（print a）的作用是为了检验a是否加上了1

出现的问题是每次点击按钮输出的都是1，那该怎么搞呢？
那要是我想用两个按钮共同累加呢？（点击第一个按钮a=a+2，点击另一个按钮a=a+1）
而且我现在要a的初值为1

Answer 1

不要再load里定义a了，在通用了好了。
dim a as integer
Private Sub Command1_Click()
a = a + 1
Print a
End Sub

Answer 2

'把Private Sub Form_Load()句去掉
Private Sub Command1_Click()
Static a As Integer
a = a + 1
Print a
End Sub

追问

那要是我想用两个按钮共同累加呢？（点击第一个按钮a=a+2，点击另一个按钮a=a+1）
而且我现在要a的初值为1

追答

Dim a As Integer
Private Sub Form_Load()
a = 1
End Sub
Private Sub Command1_Click()
a = a + 1
Print a
End Sub

Private Sub Command2_Click()
a = a + 2
Print a
End Sub

Answer 3

Dim a As Long

Private Sub Command1_Click()
a = a + 1
Command1.Caption = "a=" & a
Command2.Caption = "a=" & a
End Sub

Private Sub Command2_Click()
a = a + 1
Command1.Caption = "a=" & a
Command2.Caption = "a=" & a

End Sub

Private Sub Form_Load()
a = 1
End Sub