第1个回答 2010-03-11
1,先定义一个全局变量 iNum
2,在窗口启动代码下初始化该变量
private sub form1_load()
iNum = 0
end sub
3,在窗口点击代码中添加如下代码
private sub form1_click()
iNum = iNum + 1
text1.text = ""
text1.text = iNum
end sub
其它添加控件的操作略
希望能帮上你
第2个回答 推荐于2017-09-06
sub form1_load()
text1.text=0
end sub
Sub form1_Click()
text1.text=text1.text+1
end sub本回答被提问者采纳
第3个回答 2019-08-09
Dim
i
As
Integer
'定义整数i
Private
Sub
Form_Click()
'开始窗体的单击过程
i
=
i
+
1
'修改i的内容
Text1.Text
=
i
'将文本框的内容换成在该窗口上鼠标单击的次数
End
Sub
'结束本过程
第4个回答 2010-03-11
定义一个公用变量,然后点击一次就加一,然后刷新文本框内容显示就可以了啊
,还不明白就hi我吧