不要再load里定义a了，在通用了好了。
dim a as integer
Private Sub Command1_Click()
a = a + 1
Print a
End Sub
'把Private Sub Form_Load()句去掉
Private Sub Command1_Click()
Static a As Integer
a = a + 1
Print a
End Sub
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024