dim a '注意:常量不需要在dim里面声明,否则会引发错误 const pass="123456" '这是一个字符串 请用""包裹起来. 设定密码为常量, 不可变更 do a=inputbox("请输入密码") if a=pass then msgbox("密码校验成功") exit do end if loop
dim a,ctr ctr=0 '设置计数器 const pass="pas123_" '上面的那个是弱密码, 这次改的强一点 do if ctr=3 then msgbox("已经达到认证上限, 认证程序关闭") exit do else a=inputbox("请输入密码") if a=pass then msgbox("认证成功") msgbox("(你可以在这里加一段成功后得到的信息)") exit do else ctr=ctr+1 '如果密码出错就增加一次错误认证计数 msgbox("认证出错, 请检查密码") end if end if loop
dim a,ctr ctr=0 const pass="pas123_" do while ctr3 a=inputbox("请输入密码") if a=pass then msgbox("认证成功") msgbox("(你可以在这里加一段成功后得到的信息)") exit do else ctr=ctr+1 '如果密码出错就增加一次错误认证计数 msgbox("认证出错, 请检查密码") end if loop
这样实现的功能和上一个例子完全一样, 我们再来看看把while放在loop后面:
dim a,ctr ctr=0 const pass="pas123_" do a=inputbox("请输入密码") if a=pass then msgbox("认证成功") msgbox("(你可以在这里加一段成功后得到的信息)") exit do else ctr=ctr+1 '如果密码出错就增加一次错误认证计数 msgbox("认证出错, 请检查密码") end if loop while ctr3
