dim a,s s=0 const pass=“xxxx” ’ 自己填 do a=inputbox(“请输入密码”) if a=pass then msgbox"认证成功" exit do else if s=10 then msgbox"已经达到认证上限，认证程序关闭" exit do else s=s+1 msgbox"认证出错，请检查密码" end if end if loop
