用VB编写一程序，在文本框中统计在该窗口上鼠标单击的次数

用VB编写一程序，在文本框中统计在该窗口上鼠标单击的次数可以参考下面的代码：

private sub form_click()

dim i as integer

i=i+1

text1.text=val(text1)+1

end sub

扩展资料：

VB参考语句

Dim 语句： 声明变量并分配存储空间。 

除法运算符 (/)： 两数相除并以浮点数格式返回商。 

Do...Loop 语句： 当条件为 True 或者当条件变为 True 时，重复一语句块。 

Empty： 表示尚未初始化的变量值。 

Eqv运算符： 使两个表达式相等。

Erase 语句： 重新初始化固定数组的元素并重新分配动态数组的存储空间。 

Err 对象： 含有关于运行时错误的信息。

Dim i As Integer '定义整数i

Private Sub Form_Click() '开始窗体的单击过程
i = i + 1 '修改i的内容
Text1.Text = i '将文本框的内容换成在该窗口上鼠标单击的次数
End Sub '结束本过程

在MouseDown事件中改变统计
文本框
的值，用文本框的值+1

这个文本框是Text1，如下程序：
Private Sub Form_Click()
Static i As Long
i=i+1
Text1.Text=Str(1)'这个Str是用来吧数字转换成字符，没有多大用途。
End Sub

private sub form_click()
dim i as integer
i=i+1
text1.text=val(text1)+1
end sub