VB中如何使点击错误超过一定次数便自动退出程序

Question

要求有代码，并说明一下到底是怎么做的，谢谢。

Answer 1

'声明一个全局变量当计数器，每次点错加一，知道超过次数让后用end使程序退出，代码如下
dim i as integer '计数器
const n=3 '定义数值常量，这儿是错误次数
private sub form1_load()
i=0 '初始化
command1.caption="错误点击"
command2.caption="正确点击" ’添加俩个按钮，不明白你的点击错误是什么意思，这儿给你举个例子
end sub
private sub command1.click() '当点击错误时
i=i+1 '计数器加1
if i>=n then '判断条件
end
end if '退出
end sub
'那个command2在这儿没 什么用，你自己让它编点代码不影响这儿
'注意i是全局变量（也能用局部变量，不过我习惯全局这样如果错误点击右好几个就能用上了，n是常量在其他过程中不能再有这俩的声明

有不懂得hi我或Q我413616799

Answer 2

dim public i as integer
设一个public或者static型变量，在点错的事件里面编写+1的代码就行了，
例如：
i=i+1
if i>10 then me.close