【文章內(nèi)容簡介】 n msgbox 壹 elseif a=2 then msgbox 貳 elseif a=3 then msgbox 叁 else msgbox 輸入錯誤 end if 怎么樣 , 麻煩吧 , 還是 select 好吧 . OK, 今天到此結(jié)束 , 總結(jié)一下 : 要點 : 1) inputbox 返回的是一個字符串 , 而不是一個數(shù) , 必須用 a=int(a)這種形式轉(zhuǎn)化成數(shù) 2) bool 變量的值只有兩種 :true,false ) and 兩邊的表達式都是 true, 則返回 true. or 兩邊的表達式有一個是 true, 就返回true 3) if 語句的格式 4) select...case 的格式 作業(yè) : 1) 使用 3 個 bool 值 , 儲存你的 3 兄弟姐妹是否是男性 (提示 :sister1male=false) 2) 給定一個個數(shù) , 大于 10 而且小于 20 輸出 正確 , 否則輸出 錯誤 3) 輸入 12,或者 15, 輸出 正確 , 否則輸出 錯誤 4) 把 5 以內(nèi)的正整數(shù)都轉(zhuǎn)換成中國大些數(shù)字 5) 自己隨便設(shè)計一個程序 , 應(yīng)用今天的知識 第四篇（共六篇） 大家好 ,今天寫第 4 章：循環(huán)結(jié)構(gòu) 我們先來看一道題 :商場進行每日結(jié) 算 , 要求累加出今天的營業(yè)額 , 每次輸入一個數(shù) , 這道題其實很簡單 , 但就我們現(xiàn)在學(xué)過的知識要完成這道題相當(dāng)麻煩 , 我們來分析一下 . 首先 , 我們需要知道買賣的次數(shù) , 這樣才能控制輸入的次數(shù) ,但是 , 這種設(shè)計是非常低效的 , 每天都要重新設(shè)計程序 . 假定今天進行了 5 次交易 , 以下是源程序 : dim sum sum=0 39。初始化變量 sum=sum + int(inputbox(請輸入交易額 )) 39。sum=sum+x 這種形式是把本身的值取出來 , 進行一次運算 , 再放回本身 , 這種方 法很有用處 39。這里使用了函數(shù)嵌套 , 把 inputbox 的返回值直接傳給 int 函數(shù) , 轉(zhuǎn)化成整數(shù) , 下同 sum=sum + int(inputbox(請輸入交易額 )) sum=sum + int(inputbox(請輸入交易額 )) sum=sum + int(inputbox(請輸入交易額 )) sum=sum + int(inputbox(請輸入交易額 )) msgbox sum 看到了嗎 , 我通過把計算過程復(fù)制了 5 遍才設(shè)計好了程序 , 這種程序在汽車交 易所等交易次數(shù)少的地方還能湊合著用 , 如果放到超市豈不是要復(fù)制 , 粘貼幾千遍 ? 我們今天講的內(nèi)容就可以克服這種缺陷 , 首先 , 我們來講以下 Do...Loop 語句 . do...loop 的結(jié)構(gòu)看上去非常簡單 , 就是 :do...loop, 僅此而已 , 這個結(jié)構(gòu)不斷執(zhí)行 do 和loop 之間的語句 (學(xué)名叫 :循環(huán)體 ), 永不停止 . 舉個例子來說 : do msgbox 這個信息會不斷重復(fù)出現(xiàn) , 要停止程序請使用任務(wù)管理器 (Ctrl+Alt+Del)中止wscript 進程 loop 運行這個 程序 , 當(dāng)你點銷掉一個對話框馬上會出來另一個 , 你永遠點不完 , 總有下一個 . 誰會運行這樣的程序 ? 除非是給別人搗亂 (我就干過這種事 ), 所以在 do..loop結(jié)構(gòu)中還有一個語句 :exit do, 這個語句將終止循環(huán) , 跳到 loop 后面的語句繼續(xù)執(zhí)行 .舉個例子來說 : dim a 39。注意 :常量不需要在 dim 里面聲明 ,否則會引發(fā)錯誤 const pass=123456 39。這是一個字符串 請用 包裹起來 . 設(shè)定密碼為常量 , 不可變更 do a=inputbox(請輸入密碼 ) if a=pass then msgbox 密碼校驗成功 exit do end if loop 這個程序會一直不停的問你密碼 , 知道你輸入了正確的密碼為止 .(if可以嵌套在另一個 if當(dāng)中 , 也可以嵌套在循環(huán)體當(dāng)中 , 所以一定要用縮進 , 來分清楚程序的各個部分 ). 這個程序是很經(jīng)典的 , 早期的程序都是這么做的 . 但是我們是 Hacker, 所以我們了解系統(tǒng)的安全性 , 這種無限次認(rèn)證程序很容易被窮舉破解 , 我們要來限定認(rèn)證的次數(shù) . 修改程序如下 dim a,ctr ctr=0 39。設(shè)置計數(shù)器 const pass=pas123_ 39。上面的那個是弱密碼 , 這次改的強一點 do a=inputbox(請輸入密碼 ) if a=pass then msgbox 認(rèn)證成功 exit do else if ctr=3 then msgbox 已經(jīng)達到認(rèn)證上限 , 認(rèn)證程序關(guān)閉 exit do else ctr=ctr+1 msgbox 認(rèn)證出錯 , 請檢查密碼 end if end if loop 運行這個程序試試看 , 當(dāng)你出了 3 次錯誤以后 , 就會停止再次詢問密碼 , 關(guān)閉程序 . tel 認(rèn)證用來限制次數(shù)的程序與此大同小異 . 要注意的是嵌套的 if 語句 , 請仔細讀一下這個程序 , 可能比較難懂 , 也請你試著自己設(shè)計一下類似的程序 . 其實 , 要在 do...loop 加上驗證的功能 , 并不一定要用 if, 我們可以直接利用 do. 我來介紹一下 while 關(guān)鍵字 , while 可以放在 do 或者是 loop 后面 , 然后再接一個表達式 , 當(dāng)表達式的值為 true 的時候 (表達式成立 ),才運行循環(huán)體 .我們來看一下修改后的 程序 dim a,ctr ctr=0 const pass=pas123_ do while ctr3 a=inputbox(請輸入密碼 ) if a=pass then msgbox 認(rèn)證成功 msgbox (你可以在這里加一段成功后得到的信息 ) exit do else ctr=ctr+1 39。如果密碼出錯就增加一次錯誤認(rèn)證計數(shù) msgbox 認(rèn)證出錯 , 請檢查密碼 end if loop 這樣實現(xiàn)的功能和上一個例子完全一樣 , 我們再來看看把 while 放在 loop 后面 : dim a,ctr ctr=0 const pass=pas123_ do a=inputbox(請輸入密碼 ) if a=pass then msgbox 認(rèn)證成功 msgbox (你可以在這里加一段成功后得到的信息 ) exit do else ctr=ctr+1 39。如果密碼出錯就增加一次錯誤認(rèn)證計數(shù) msgbox 認(rèn)證出錯 , 請檢查密碼 end if loop while ctr3 功能是一樣的 , 為什么要放在 loop 后面呢 ? 你把 ctr 的值改成 3 就知道了 , while 在 do后面的程序會直接退出 , 而在 loop 后面還會允許一次認(rèn)證 , 到了 loop 才結(jié)束 .和 while 相反的是 until, 用法和 while 一樣 , 不過他只有當(dāng)后面的表達式的值為 false(表達式不成立 )的時候才執(zhí)行循環(huán)體 , 請自己試驗一下 ok, 我們來看另外一種循環(huán)結(jié)構(gòu) ,for....next, 這種循環(huán)結(jié)構(gòu) 是基于計數(shù)的 , 也是在編程中最常見到的循環(huán)結(jié)構(gòu) . dim i for i=0 to 5 msgbox i next 看到了嗎 ?每次輸出的 i 都是遞增的 , 但我們沒有明確指出 i 要遞增 , 當(dāng) i 達到 5 的時候 , 循環(huán)就結(jié)束了 , 因為由 0 開始 , 所以循環(huán)體執(zhí)行了 6 次 , 這一點很重要 , 大部分東西都是從 0開始而不是 1. 這個程序也可以寫成 do的形式 : dim i i=0 do while i5 msgbox i i=i+1 39。因為 do 不能自動計數(shù) , 必 須手動加 loop 怎么樣 , 還是 for比較好用吧 . for 在編程中很有用途 , 我們再舉一個例子 , 順便講一下嵌套循環(huán) . dim i,j for i=1 to 9 for j=1 to 9 str=str amp。 i * j amp。 39。amp。是和并字符串的符號 next 39。每個 next 對應(yīng)一個 for next msgbox str (這樣出現(xiàn)的結(jié)果是一次性的，如果你需要依次出現(xiàn)把 msgbox str)提前到 next 之前 看看運行結(jié)果 , 是否令你會 想起小學(xué)時代的數(shù)學(xué)老師 (丑陋的嘴臉 ). 要注意 , 這里有一個 大 的 for, 和一個小的 for, 當(dāng)小的 for執(zhí)行完一個周期以后 , 大的for 才執(zhí)行一次 (換句話說 , 大的 for 執(zhí)行一次 , 小的要執(zhí)行 9 次 ), 所以一共執(zhí)行了九九八十一次 . 在大的 for里可以不僅僅是一個小的 for, 也可以加上另外的語句 . 我們來修改一下源程序 : dim i,j for i=1 to 9 for j=1 to 9 str=str amp。 i * j amp。 next 39。每個 next 對應(yīng)一個 for str=str amp。 vbCrlf 39。vbCrlf 相當(dāng)于鍵盤上的回車鍵 ,因為你不能在鍵盤上輸入 ,所以系統(tǒng)定義了一個默認(rèn)的常量 next msgbox str 這次運行完成以后 , 輸出結(jié)果按照乘數(shù)進行了分割 , 每小 for 運行完一次 , 就換一行 (通過 vbcrlf). 這次的內(nèi)容對菜鳥可能比較難懂 , 掌握的辦法只有一個 :多實踐 . 另外 , 我在論壇看到很多人還問 :VBScript 要用什么工具編 ?我就很氣憤 , 我在第一篇里面已經(jīng)說明 :用記事本編輯源代碼 , 然后保存為以 .vbs 為擴 展名的程序就可以了 , 請大家不要用其他工具編寫 ,否則很容易引起錯誤 . 再問 . 另外 , 國產(chǎn)的一種垃圾軟件 超級 X 霸 搶占了 vbs 這個擴展名 , 請把那個垃圾卸載掉 . 我們總結(jié)一下 : 要點 : 1) do..loop 和 exit do 的用法 2) while 當(dāng)表達式 true 的時候執(zhí)行循環(huán)體 ,until 反之 3) for...next 是計數(shù)循環(huán) , 每次執(zhí)行計數(shù)器遞加 4) 嵌套循環(huán)的作用和寫法 ) amp。用于連接字符串 5) vbCrLf 相當(dāng)于鍵盤上的回車鍵 作業(yè) : 1) 在我國的數(shù)學(xué)經(jīng)典著作 九章算術(shù) 中有這樣一道題 :百錢買百雞 , 公雞 5 錢一只 , 母雞3 錢一只 , 小雞 1 錢 3 只 )求得是能有多少種辦法買這些雞 . 如果看不懂的話我用大白話說說 :有人要去買雞 , 用 100塊錢正好買了 100 只雞 , 價格如下 :公 :5$, 母 :3$, 小 :1$ for 3, 讓你求一共多少種賣法 (公母小怎么搭配 ). 請用循環(huán)解決這個問題 . ps:今天要去移民局辦事 , 所以文章寫的很倉促 . 大部分代碼都沒有實驗 , 請大家?guī)臀艺义e . 另外 , 上次的作業(yè)大家在論壇應(yīng)該看到了 , 我就 不重復(fù)答案了 , 不知道大家喜歡做這種題 , 還是以前那種比較簡單的 ? 第五篇（共六篇） 請允許我先描述一下我現(xiàn)在的環(huán)境 :氣溫高達 37 攝氏度 , 而我忘記了圖書館開門的時間 , 還要在這里站上一個小時 , 在熱帶植物的包裹下 , 各種奇怪的小飛蟲圍著我轉(zhuǎn)來轉(zhuǎn)去 . 不過令我欣慰的是 , 終于寫到五了 , 還有兩課我們的 基礎(chǔ)篇 就要結(jié)束了 . 今天我們來了解語言本身的最后一個論題 :數(shù)組 . 要理解 數(shù)組 , 這個概念我覺得另一種翻譯對學(xué)習(xí)來說更加容易 :陣列 , 沒錯 , 數(shù)組就是一個陣列 , 一個數(shù)據(jù)的陣列 . 最 簡單的例子是數(shù)據(jù)庫系統(tǒng) , 假設(shè)你要儲存 20 名學(xué)生的英語成績 , 如果不是用數(shù)組 , 你則要創(chuàng)建 20 個不同的變量 , 累死 . 數(shù)組就是類型相同 (重要 !)的一組數(shù)據(jù) (或者 n 組 ), 用來儲存相關(guān)的量 , 最簡單的數(shù)組是一維數(shù)組 , 我們就先來學(xué)習(xí)它吧 . 什么是一維數(shù)組呢 ? 在 3 維以下 ,你可以利用幾何知識來理解 維 的概念 ,一維相當(dāng)于一條