输密码的VB程序：第一次输正确继续错误就重设．第二次正确继续错误就重设．第三次正确继续错误就退出．

private sub command1_click()
static i
i=1
if password<>"xxx" then
i=i+1
if i=3 then end
else
你要执行的代码
end if
end sub

定义一个窗体级变量n,用于记录输入的次数,初始为0,输入一次加1,当n=3时,且密码错,就退出