Private ClickCount As Long '用来统计点击次数
Private Sub Command1_Click()
ClickCount = ClickCount + 1
Label1.Caption = "你已点击了" & ClickCount & "次。"
End Sub
text框或label框初始值设置为0
command点击事件
text1.text=val(text1.text)+1
或者
label1.caption=val(label1.caption)+1
dim i as long
sub command1_click()
i=i+1
text1.text=cstr(i)
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024