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