用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 对象： 含有关于运行时错误的信息。

1、启动VB新建工程1，在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮（可以预先对各控件的Caption等属性进行修改）。

2、双击“统计”（即Command1）按钮，在d出的代码框中编写如下代码：

PrivateSubCommand1_Click()DimxAsStringa=Text1.Textb=Text2.Textn=0Fori=1ToLen(a)

x = Mid(a, i, 1)    If x = b Then n = n + 1  Next i  Label3.Caption = "字符" &b &"在字符串”" &a &"“中" &vbCrLf &"共出现了" &n &"次。"End Sub

这样便达到了检索所有字符、统计某个字符出现次数的需求了。

3、为了使输入 *** 作更加的方便，我们可以加入SetFocus语句：

PrivateSubtext1_keypress(keyasciiAsInteger)Ifkeyascii=13ThenText2.SetFocusEndSub

这样当输入光标停留在text1，点击回车（Enter）键时，光标便会跳到text2中，方便对text2进行输入。

当光标停留在text2中，按下回车键时，光标将跳到Command上，方便 *** 作：

PrivateSubtext2_keypress(keyasciiAsInteger)Ifkeyascii=13ThenCommand1.SetFocusEndSub

4、最后点击运行试试看功能。

1、zm(ss)

2、k=1

其实这个程序不用那么复杂，只要使用split函数用空格分割下句子，然后判断下有多少数组元素就好了！

Private Sub Command1_Click()

Dim s As String, b() As String

s = Text1

b() = Split(s, " ")

Text2 = "共有" &UBound(b()) + 1 &"个单词"

End Sub

Private Sub Form_Load()

Text1 = "i love you."

Text2 = ""

Command1.Caption = "统计"

End Sub

---