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

 我来答
四舍五不入6
高粉答主

2020-03-24 · 醉心答题,欢迎关注
知道答主
回答量:147
采纳率:100%
帮助的人:2.2万
展开全部

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

ipod1236
推荐于2017-09-29 · TA获得超过661个赞
知道小有建树答主
回答量:90
采纳率:0%
帮助的人:67.2万
展开全部
Dim i As Integer '定义整数i

Private Sub Form_Click() '开始窗体的单击过程
i = i + 1 '修改i的内容
Text1.Text = i '将文本框的内容换成在该窗口上鼠标单击的次数
End Sub '结束本过程
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
秋涵佴煊
2020-02-05 · TA获得超过3614个赞
知道大有可为答主
回答量:2994
采纳率:34%
帮助的人:384万
展开全部
在MouseDown事件中改变统计
文本框
的值,用文本框的值+1
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友dd3335d
2009-03-26 · TA获得超过216个赞
知道小有建树答主
回答量:139
采纳率:0%
帮助的人:60.2万
展开全部
这个文本框是Text1,如下程序:
Private Sub Form_Click()
Static i As Long
i=i+1
Text1.Text=Str(1)'这个Str是用来吧数字转换成字符,没有多大用途。
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
冷凌稀
2012-04-24
知道答主
回答量:3
采纳率:0%
帮助的人:4822
展开全部
private sub form_click()
dim i as integer
i=i+1
text1.text=val(text1)+1
end sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(5)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式