VB 如果制作一个计数器

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

Private Sub Form_Load()
I = 0
End Sub

两种方法
Dim m As Long

Private Sub Command1_Click()
Static n As Long
n = n + 1

End Sub

Private Sub Command2_Click()
m = m + 1
End Sub

或者：
在窗体上添加一个label1控件

Private Sub Command1_Click()
label1 = val(label1）+ 1
End Sub

创建一个COMMANDBUTTON按钮控件 

把下面代码复制到代码窗口中 

sub form_load() 

command1.caption = "0" 

end sub 

sub command1_click 

command1.caption = command1.caption+1 

end sub

如何用VB制作一个计数器 怎么制作vb计数器 VB制作一个程序 vb制作一个计算器 VB计数器问题 vb键盘输入次数计数器 怎样制作一个简单的网络计数器？步骤是什么？？？ 如何制作计数器? 如何制作计数器？？？ 红外线计数器制作