vb计次数

在通用里申明一个全局变量
例子
Dim a As Integer
Private Sub Command1_Click()
a = a + 1
Form1.Caption = a
End Sub

先在通用代码里添加
dim a as long
然后就可以在你要计数的地方添加 a=a+1
比如在一个单击事件里安放计数器，就把a=a+1放在这个单击事件的代码里。