dim a '注意:常量不需要在dim里面聲明,否則會引發(fā)錯誤 const pass="123456" '這是一個字符串 請用""包裹起來. 設定密碼為常量, 不可變更 do a=inputbox("請輸入密碼") if a=pass then msgbox("密碼校驗成功") exit do end if loop
dim a,ctr ctr=0 '設置計數(shù)器 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 '如果密碼出錯就增加一次錯誤認證計數(shù) 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 '如果密碼出錯就增加一次錯誤認證計數(shù) msgbox("認證出錯, 請檢查密碼") end if loop
這樣實現(xiàn)的功能和上一個例子完全一樣, 我們再來看看把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 '如果密碼出錯就增加一次錯誤認證計數(shù) msgbox("認證出錯, 請檢查密碼") end if loop while ctr3
