Option Explicit
Private Sub Command1_Click()
Static A As Integer
A = A + 1
Debug.Print A
End Sub
自己去恶补一下啥叫静态变量，以及全局变量和局部变量
另外，把A设为全局变量也可实现同样效果：
Option Explicit
Dim A As Integer
Private Sub Command1_Click()
A = A + 1
Debug.Print A
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024