【正文】 VBScript的循環(huán)結(jié)構(gòu) 【 例 313】 “同構(gòu)數(shù) ” 是指這樣的整數(shù)：它恰好出現(xiàn)在其平方數(shù)的右端 ， 例如 1和 5就是這樣的數(shù) 。 試找出 1～ 9999之間的全部 “ 同構(gòu)數(shù) ” 。 分析： 1位同構(gòu)數(shù) n應(yīng)滿足條件： n = n^2 Mod 10， 2位同構(gòu)數(shù) n應(yīng)滿足條件： n = n^2 Mod 100， 3位同構(gòu)數(shù) n應(yīng)滿足條件： n = n^2 Mod 1000， 4位同構(gòu)數(shù) n應(yīng)滿足條件： n = n^2 Mod 10000。 97 VBScript的循環(huán)結(jié)構(gòu) 4. For Each… Next循環(huán)語句 For Each...Next循環(huán)與 For...Next循環(huán)類似 。 For Each...Next不是將語句運行指定的次數(shù) ， 而是對于數(shù)組中的每個元素或?qū)ο蠹现械拿恳豁椫貜?fù)一組語句 。 這在不知道集合中元素的數(shù)目時非常有用 。 其語法格式為： For Each〈 元素 〉 In〈 名稱 〉 [語句列 1] [Exit For] [語句列 2] Next [〈 元素 〉 ] 98 VBScript的循環(huán)結(jié)構(gòu) 說明： ① 〈 元素 〉 是用來枚舉集合或數(shù)組中所有元素的變量 。 對于集合 ， 〈 元素 〉 可能是 Variant變量 、 通用 Object變量或任意指定的 Automation對象變量 。 對于數(shù)組 ， 〈 元素 〉 只能是 Variant變量 。 ② 〈 名稱 〉 是指對象集合或數(shù)組的名稱 。 【 例 314】 在窗體中有若干文本框 ， 在代碼中創(chuàng)建Dictionary對象 ， 并賦值 。 然后將 Dictionary對象的內(nèi)容分別放置在多個文本框中 。 99 VBScript的循環(huán)結(jié)構(gòu) 5. 循環(huán)的嵌套 通常把循環(huán)體內(nèi)不含循環(huán)語句的循環(huán)稱為單重 （ 層 ） 循環(huán) ， 而把循環(huán)體內(nèi)含有循環(huán)語句的循環(huán)稱為多重循環(huán) ， 或稱循環(huán)的嵌套 。 上面介紹的循環(huán)結(jié)構(gòu)既可以單獨嵌套 ， 也可以互相嵌套 ， 但是要注意內(nèi)外循環(huán)不能交叉 。 【 例 315】 求從 1000到 1100之間的所有素數(shù) 。 分析：例 310介紹了利用 Do… Loop循環(huán)判斷素數(shù)的方法 ，現(xiàn)在只需對 1000～ 1100之間的各整數(shù)依次測試即可 。 100 VBScript的過程 在 VBScript中 ， 過程被分為兩類： Sub過程和Function過程 。 1. Sub過程 VBScript的 Sub過程分為事件過程和通用過程兩種 。 事件過程 是當發(fā)生某個事件時 ， 對該事件做出響應(yīng)的程序段； 通用過程 則是獨立于事件過程的程序段 ， 可以被其他過程調(diào)用 。 101 VBScript的過程 Sub過程是包含在 Sub和 End Sub語句之間的一組VBScript語句 ， 執(zhí)行操作但不返回值 。 (1) Sub過程的定義 [Public[Default]|Private] Sub〈 過程名 〉 ([〈 形參表 〉 ] ) [〈 語句列 〉 ] [ Exit Sub ] [〈 語句列 〉 ] End Sub 參數(shù)說明見表 319（ p81） 。 102 VBScript的過程 其中 〈 形參表 〉 中出現(xiàn)的參數(shù)稱為形式參數(shù) ，簡稱為形參 。 〈 形參表 〉 中形參的語法為： [ByVal | ByRef]〈 變量名 〉 [( )] 其參數(shù)說明見表 320（ p82） 。 103 VBScript的過程 (2) Sub過程的調(diào)用 調(diào)用 Sub過程有兩種方法： ?使用 Call語句： Call〈 過程名 〉 ( [〈 實參表 〉 ] ) ?直接使用過程名： 〈 過程名 〉 [〈 實參表 〉 ] 104 VBScript的過程 說明： ① 〈 實參表 〉 是實際參數(shù)列表 ， 參數(shù)與參數(shù)之間要用逗號分隔 。 ② 當用 Call語句調(diào)用執(zhí)行過程時 ， 其過程名后必須加括號 ，若有參數(shù) ， 則參數(shù)必須放在括號之內(nèi) 。 ③ 若省略 Call關(guān)鍵字 ， 則過程名后不能加括號 ， 若有參數(shù) ，則參數(shù)直接跟在過程名之后 ， 參數(shù)與過程名之間用空格隔開 ，參數(shù)與參數(shù)之間用逗號分隔 。 105 VBScript的過程 【 例 316】 編制判斷素數(shù)的 Sub過程 ， 驗證哥德巴赫猜想：一個不小于 6的偶數(shù)可以表示為兩個素數(shù)之和 。 例如： 6 = 3 + 3，8 = 3 + 5， 10 = 3 + 7， … 分析：假設(shè)有一個偶數(shù) n， 將它表示為兩個整數(shù) a和 b的和 ，即 n = a + b。 如果 n = 10， 先令 a = 2， 判斷 2是否是素數(shù) ， 經(jīng)檢查 2是素數(shù) ， 由于 b = n a， 故 b的值為 8， 經(jīng)檢查 8不是素數(shù) ，則這一組合 （ 10 = 2 + 8） 不合要求 。 再使 a加 1， 即 a = 3， 經(jīng)檢查 3是素數(shù) ， b = n – a = 7， 經(jīng)檢查 7也是素數(shù) ， 則這一組合 （ 10 = 3 + 7） 符合要求 。 106 VBScript的過程 2. Function過程 Function過程與 Sub過程非常相似 ， 只有關(guān)鍵的一點 區(qū)別 ：函數(shù)有返回值 。 (1) Function過程的定義 [Public [Default] | Private] Function〈 函數(shù)名 〉 [(〈 形參表 〉 )] [〈 語句列 〉 ] [〈 函數(shù)名 〉 =〈 表達式 〉 ] [ Exit Function] [〈 語句列 〉 ] [〈 函數(shù)名 〉 =〈 表達式 〉 ] End Function 107 VBScript的過程 (2) Function過程的調(diào)用 Function過程的調(diào)用比較簡單 ， 可以像使用 VBScript內(nèi)部函數(shù)一樣來調(diào)用 Function過程 ， 即在表達式中寫上它的名字 。還可以像調(diào)用 Sub過程那樣調(diào)用 Function過程 。 下面的代碼調(diào)用了同一個 Function過程： Call Hypotenuse (3, 6) Hypotenuse 3, 6 當用這種方法調(diào)用函數(shù)時 ， VBScript放棄返回值 。 108 VBScript的過程 函數(shù)可以沒有參數(shù) 。 調(diào)用無參函數(shù)得到一個固定的值 ，如下述無參函數(shù)： Function F2 F2 = Wele to beijing End Function 可如下調(diào)用： MsgBox F2 【 例 317】 編寫求兩數(shù)最大公約數(shù)的 Function過程 。 在網(wǎng)頁中輸入 3個整數(shù) ， 調(diào)用 Function過程求出 3個整數(shù)的最大公約數(shù) 。 109 VBScript的過程 3. 參數(shù)的傳遞方式 傳遞參數(shù)的方式有兩種： 如果調(diào)用語句中的實際參數(shù)是常量或表達式 ， 或者定義過程時選用 ByVal關(guān)鍵字 ， 就可以按值傳遞 。 如果調(diào)用語句中的實際參數(shù)為變量 ， 或者定義過程時選用 ByRef關(guān)鍵字 ， 就可以按地址傳遞 。 110 VBScript的過程 (1) 按地址傳遞參數(shù) 按地址傳遞參數(shù) ， 就是讓過程根據(jù)變量的內(nèi)存地址去訪問實際變量的內(nèi)容 ， 即形式參數(shù)與實際參數(shù)使用相同的內(nèi)存地址單元 ， 這樣通過子過程就可以改變變量本身的值 。 系統(tǒng)缺省按地址傳遞參數(shù) 。 在傳址調(diào)用時 ， 實際參數(shù)必須是變量 ， 常量或表達式無法傳址 。 111 VBScript的過程 (2) 按值傳遞參數(shù) 按值傳遞參數(shù)時 ， 傳遞的只是變量的副本 。 如果過程改變了這個值 ， 則所作變動只影響副本而不會影響變量本身 。 當要求變量按值傳送時 ， 可以先把變量變成一個表達式 ， 把變量轉(zhuǎn)換成表達式的最簡單的方法就是把它放在括號內(nèi) 。 例如把變量 a用括號括起來 ，就把它變?yōu)橐粋€表達式： (a)。 112 VBScript的過程 也可以在定義過程時用 ByVal關(guān)鍵字指出參數(shù)是按值來傳遞的 ， 例如： Sub PostAccounts( ByVal intAcctNum ) 39。 這里放語句 End Sub 【 例 318】 求兩個整數(shù)的最大公約數(shù)和最小公倍數(shù) 。 113 VBScript的過程 說明： ① 代碼中使用的傳值方式是將實參變量用括號括起 。 ② 過程中的變量名即使與主程序中使用的變量名相同 ， 在內(nèi)存中也占用不同的內(nèi)存單元地址 。 在執(zhí)行過程時即使其變量內(nèi)容發(fā)生變化 ， 主程序中的變量內(nèi)容并不會隨之改變 。 ③ 用傳值調(diào)用這種傳遞參數(shù)的方法只能傳遞計算值 ， 如數(shù)值 、 字符串 。 ④ 值參數(shù)與變量參數(shù)的一種重要區(qū)別是 ， 值參數(shù)對應(yīng)的實參是表達式 ， 而變量參數(shù)對應(yīng)的只能是變量 。 114 VBScript的過程 采用值參數(shù)只能從外界向過程 （ 函數(shù) ） 傳入信息 ， 但不能傳出；而采用變量參數(shù) （ 傳址 ） 則既能傳入 、 又能傳出 。 正是由于不能傳出 ， 過程結(jié)束后 ，值參數(shù)的值就不會影響外界的任何量 ， 因而在一定意義上說 ， 值參數(shù)比較安全 。 變量參數(shù)和值參數(shù)各有特點 ， 采用哪一種更合適 ，則視需要情況而定 。 一般來說 ， 需要傳出參數(shù)值時應(yīng)該用變量參數(shù) ， 否則采用值參數(shù)為好 。 115 綜合練習 【 練習 31】 “雞兔同籠 ” 問題。雞有 2只腳，兔有 4只腳，如果已知雞和兔的總頭數(shù)為 h，總腳數(shù)為 f。問籠中雞和兔各有多少只？ 分析：設(shè)籠中有雞 x只，兔 y只，由條件可得方程組： 解方程組得： ???????fyxhyx42?????????2224hfyfhx116 綜合練習 【 練習 320】 有編號 1～ 10的 10個球，編寫程序，在其中隨機抽取 6個球，并輸出它們的編號。 【 練習 321】 編寫輸入一個 0～ 6數(shù)字，輸出漢英對照星期名的 Function過程。 117 思考題 自我熟悉 Vbscript語言的各種函授和語法，能熟練運用。 p91， ： 3 、 12