dim a '注意:常量不需要在dim里面聲明,否則會引發(fā)錯誤 const pass="123456" '這是一個字符串 請用""包裹起來. 設(shè)定密碼為常量, 不可變更 do a=inputbox("請輸入密碼") if a=pass then msgbox("密碼校驗成功") exit do end if loop
dim a,ctr ctr=0 '設(shè)置計數(shù)器 const pass="pas123_" '上面的那個是弱密碼, 這次改的強一點 do if ctr=3 then msgbox("已經(jīng)達到認證上限, 認證程序關(guān)閉") 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
dim i,j for i=1 to 9 for i=1 to 9 str=str i * j " " next '每個next對應(yīng)一個for str=str vbCrlf 'vbCrlf相當(dāng)于鍵盤上的回車鍵,因為你不能在鍵盤上輸入,所以系統(tǒng)定義了一個默認的常量 next
