【正文】 試條件是否成立 ， 只有不成立才執(zhí)行循環(huán) ， 而該循環(huán)語句則先執(zhí)行循環(huán)體 ， 然后才測試循環(huán)條件是否成立 。 循環(huán)體 條件 F T 基本語句 —循環(huán)結(jié)構(gòu)程序設(shè)計 2. For… Next循環(huán) 格式： For 循環(huán)變量 = 初值 To 終值 [Step 步長 ] 循環(huán)體 [ Exit For ] 循環(huán)體 Next [循環(huán)變量 ] 功能：當(dāng)循環(huán)變量的值在初值到終值范圍內(nèi)時，執(zhí)行一次循環(huán) 體并使初值增加一個步長。 說明： ① 格式中的參數(shù)說明： ? 循環(huán)變量是一個數(shù)值變量，但不能是數(shù)組變量。 ? 循環(huán)的初值、終值和步長都是數(shù)值表達(dá)式，其值可以是實數(shù)。 基本語句 —循環(huán)結(jié)構(gòu)程序設(shè)計 ? 在 For和 Next語句之間的語句序列稱為循環(huán)體 ， 可以是一個或多個語句 。 ? Exit For為強行退出循環(huán)語句 。 ? Next是循環(huán)終端語句，在 Next后面的循環(huán)變量與 For中的循環(huán)變量必須相同。 ② For循環(huán)語句的執(zhí)行過程是：首先把初值賦給循環(huán)變量，接著檢查循環(huán)變量的值是否超過終值，如果超過就不執(zhí)行循環(huán)體，跳出循環(huán)，執(zhí)行 Next后面的語句；否則執(zhí)行一次循環(huán)體，然后把循環(huán)變量增加步長，再賦給循環(huán)變量，重復(fù)上述過程。 基本語句 —循環(huán)結(jié)構(gòu)程序設(shè)計 ③ 當(dāng)初值等于終值時，不管步長是正數(shù)還是負(fù)數(shù)，都執(zhí)行一次循環(huán)體。 ④ 循環(huán)次數(shù)由初值、終值和步長決定，計算公式為： 循環(huán)次數(shù) =INT（（終值 – 初值） /步長 +1） ⑤ For語句和 Next語句必須成對出現(xiàn)，不能單獨使用。 ⑥ 如果要在循環(huán)變量到達(dá)終值前退出循環(huán)，可用 Exit For語句來實現(xiàn)。該語句可以在 For循環(huán)中出現(xiàn)多次，且位置不限。 ⑦ 在循環(huán)體中可以使用循環(huán)變量，但一般不再對循環(huán)變量賦值。 示例 322： 百錢買百雞 基本語句 —循環(huán)結(jié)構(gòu)程序設(shè)計 算法分析 基本語句 —循環(huán)結(jié)構(gòu)程序設(shè)計 設(shè)公雞數(shù)為 x，母雞數(shù)為 y，小雞數(shù)為 z，則有方程： X+y+z=100 5x+3y+z/3=100 這類問題只能用 “ 枚舉法 ” 求解，即將 x、 y、 z的各種可能的值代入方程，看是否滿足兩個方程，如果滿足，就是一組解。 進(jìn)一步分析： 100元錢全部買公雞只能買 20只，全部買母雞只能買 33只，可以讓 x從 0~20變化， y從 0~33變化， z=100xy，這樣只需要雙重循環(huán)就夠了。 3. While … Wend循環(huán) 格式： While 〈 條件表達(dá)式 〉 循環(huán)體 Wend 功能：當(dāng) While的條件表達(dá)式的值是 True時執(zhí)行循環(huán)體 ， 直到 While后的條件表達(dá)式的值為 False。 說明 ： While… Wend語句中不能使用 Exit語句跳出循環(huán) 。 基本語句 —循環(huán)結(jié)構(gòu)程序設(shè)計 示例 323： 求 sin(x)的近似值。要求前后兩項之差的絕對值小于 為止。方法用 sin(x)的展開式，形式為： )!12()1(. . .!7!5!3)s i n (121753??????????nxxxxxx nnkkxkxkx kk??????)1()!2(!224． For Each… Next 格式： For Each 元素 In 組 語句序列 [Exit For] 語句序列 Next [元素 ] 功能：針對一個數(shù)組或集合中的每個元素 ， 重復(fù)執(zhí)行一組語句 。 說明： ① 元素：必需的 。 用來遍歷集合或數(shù)組中所有元素的變量 。 對于數(shù)組 ， 元素只能是 Variant變量；對于集合 ， 可能是 Variant、 通用對象變量或特殊對象變量 。 基本語句 —循環(huán)結(jié)構(gòu)程序設(shè)計 ② 只要組中有一個元素，就會進(jìn)入 For… Each塊執(zhí)行 ③ 在循環(huán)中可以在任何位置放置任意個 Exit For語句，隨時退出循環(huán)。 ④ 可以嵌套，但是每個循環(huán)的元素必須是唯一的。 ⑤ 不能在 For Each… Next語句中使用自定義類型數(shù)組 基本語句 —循環(huán)結(jié)構(gòu)程序設(shè)計 循環(huán)結(jié)構(gòu)程序設(shè)計示例： 示例 325： 求 m和 n的最大公約數(shù)和最小公倍數(shù)。 示例 326： 判定一個數(shù)是否為素數(shù)。 示例 327： 求 1005000之間被 7除，余數(shù)分別為 4的數(shù)，一行輸出 5個。 基本語句 —循環(huán)結(jié)構(gòu)程序設(shè)計 數(shù)組及應(yīng)用 —靜態(tài)數(shù)組 ⒈ 一維數(shù)組 格式： Dim 數(shù)組名 (下標(biāo) ) [As 數(shù)組類型 ] 功能：定義一個一維數(shù)組的大小 ， 并分配相應(yīng)的存儲空間 。 說明： ① 數(shù)組名與簡單變量的命名規(guī)則相同 。 ② 下標(biāo)是數(shù)組的維數(shù) ， 格式為 [下界 To ]上界 。 ③ As 數(shù)組類型用來說明數(shù)組的類型 ， 如果缺省 ， 則與變量的聲明一樣 ， 默認(rèn)為是變體數(shù)組 。 ④ 數(shù)組必須先定義后使用 。 數(shù)值數(shù)組中的全部元素都初始化為 0， 而字符串?dāng)?shù)組中的全 部元素都初始化為空字符串 。 一、靜態(tài)數(shù)組 ⑥ Dim語句中的下標(biāo)可以是常數(shù) ， 下標(biāo)全為常數(shù)時稱為靜態(tài) 數(shù)組 ， 下標(biāo)為空時則為動態(tài)數(shù)組 。 ⑦ 可以使用以下方法聲明通用數(shù)組： ? 建立公用數(shù)組 ， 在模塊的聲明段用 Public 語句聲明數(shù)組 。 ? 建立模塊級數(shù)組 ， 在模塊的聲明段用 Private 語句聲明數(shù)組 。 ? 建立局部數(shù)組 ， 在過程中用 Private 語句聲明數(shù)組 。 例如： Dim Counters ( 1 To 14 ) As Integer Private Sums ( 1 To 20 ) As Double Public Counters ( 14 ) As Double Dim Subs ( 20 ) As Double 數(shù)組及應(yīng)用 —靜態(tài)數(shù)組 ⒉ 多維數(shù)組 格式： Dim 數(shù)組名 (下標(biāo) 1， 下標(biāo) 2[， 下標(biāo) 3… ])[As 數(shù)組類型 ] 功能：聲明一個二維數(shù)組或多維數(shù)組并分配相應(yīng)的存儲單元 。 說明：下標(biāo)的個數(shù)決定了數(shù)組的維數(shù) ， 多維數(shù)組最大維數(shù)為 60。每一維的大小為：上界－下界＋ 1；數(shù)組的大小為每一維大小的乘積 。 例如： Dim Array（ 3， 4） As Integer Dim MultiD (3, 1 To 10, 1 To 15) 數(shù)組及應(yīng)用 —靜態(tài)數(shù)組 ⒊ Option Base語句 如果在數(shù)組的下標(biāo)說明中不使用 [下界 To ]， 則下界 的缺省值為 0。 若希望下標(biāo)從 1開始 ， 在 VB的窗體層或標(biāo)準(zhǔn) 模塊層可用 Option Base 語句重新設(shè)定數(shù)組的下界 。 格式： Option Base n 功能：改變數(shù)組下標(biāo)的缺省下界 。 說明： n為數(shù)組下標(biāo)的下界 ， 只能是 0或 1。 該語句在程序中只能使用一次 ， 且必須放在數(shù)組 聲明語句之前 。 數(shù)組及應(yīng)用 —靜態(tài)數(shù)組 動態(tài)數(shù)組是指在聲明時沒有給出數(shù)組的大小 ， 當(dāng)要使用數(shù) 組時 ， 再決定數(shù)組的大小 。 建立動態(tài)數(shù)組的步驟為： ? 聲明動態(tài)數(shù)組 。 用 Dim、 Private、 Public等語句聲明數(shù)組 ，給數(shù)組賦予一個空維數(shù)表 。 例如： Dim Dynarray（ ） 。 ? 用 Redim語句配置實際的數(shù)組元素個數(shù) 。 格式： Redim 數(shù)組名 ( 下標(biāo) 1 [， 下標(biāo) 2 … ]) 功能：聲明動態(tài)數(shù)組的大小 。 說明： Redim語句聲明只能用在過程中 ， 它是可執(zhí)行語句 。 它 可以改變數(shù)組中元素的個數(shù) ， 也能改變數(shù)組的維數(shù) 。 二、動態(tài)數(shù)組 數(shù)組及應(yīng)用 —動態(tài)數(shù)組 說明： Redim語句后面加 Preserve參數(shù) ， 則只能改變最后一維的大小 ， 前面的維的大小不能改變 。 二、動態(tài)數(shù)組 數(shù)組及應(yīng)用 —動態(tài)數(shù)組 示例 331： 動態(tài)數(shù)組的聲明 數(shù)組及應(yīng)用 —數(shù)組的基本操作 格式：數(shù)組名 （ 下標(biāo) ， … ） 說明： ① 下標(biāo)的個數(shù)必須與數(shù)組定義時的維數(shù)一致 。 ② 下標(biāo)可以是表達(dá)式 ， 如果表達(dá)式的值是實型 ， 系統(tǒng)自動取整 。 ③ 下標(biāo)的值必須在數(shù)組定義的各維的上下界之內(nèi) 。 ④ 要嚴(yán)格區(qū)分?jǐn)?shù)組聲明中的下標(biāo)和數(shù)組引用中的下標(biāo) 。 例如： Dim A（ 5） As Integer A（ 5） = 10 三、數(shù)組的基本操作 2．?dāng)?shù)組元素初始化 常用的方法是使用循環(huán)語句對數(shù)組賦值 。 例如： Dim TestArray （ 10） As Integer Dim i As Integer For i = 0 To 10 TestArray（ i） =i Next i 數(shù)組及應(yīng)用 —數(shù)組的基本操作 3． 數(shù)組元素輸入 ⑴ 當(dāng)數(shù)組元素較少或只給幾個元素賦值時 ， 可采用賦值語句 。 例如： Dim A（ 10） A（ 1） = 3 A（ 4） = 7 ⑵ 如果要給數(shù)組中的所有元素都提供值 ， 可通過 For循環(huán)實現(xiàn) 。 Dim A（ 10,10） For i = 0 To 10 For j = 0 To 10 A( i , j ) = InputBox ( 輸入 amp。 i amp。 , amp。 j amp。 的值 ) Next j Next i 數(shù)組及應(yīng)用 —數(shù)組的基本操作 ⑶ 對于較大的數(shù)組，一般不用 InputBox函數(shù)，而用 Array函數(shù)為 數(shù)組元素賦值。 格式：數(shù)組變量名 = Array ( arglist ) 功能：把一組數(shù)據(jù)賦給一個數(shù)組 。 說明： ① 所需的 arglist參數(shù)是一個用逗號隔開的值表 ， 這些值用于給Variant所包含的數(shù)組的各元素賦值 。 如果不提供參數(shù) ， 則創(chuàng)建一個長度為 0的數(shù)組 。 例如： Dim A As Variant A=Array(10,20,30) B=A(2) 數(shù)組及應(yīng)用 —數(shù)組的基本操作 其中： A(0)=10 A(1)=20 A(2)=30 ② 使用 Array函數(shù)創(chuàng)建的數(shù)組的下界受 Option Base語句指定的下界的限制 。 4．?dāng)?shù)組元素的輸出 數(shù)組元素的輸出可以使用 For循環(huán)和 Print語句來實現(xiàn) 。 例如： 用 Array函數(shù)給數(shù)組提供初值 ， 然后用 For循環(huán)將數(shù)組的值輸出 。 Static Number As Variant Number = Array ( 1,2,3,4,5 ) For i% = 0 To 4 Print Number ( i% ) Next i% 數(shù)組及應(yīng)用 —數(shù)組的基本操作 數(shù)組應(yīng)用示例 示例 332： 輸出 5 5方陣中的下三角元素。 數(shù)組及應(yīng)用 —數(shù)組的基本操作 ????????????????25242322202022181716151413121110987654321數(shù)組應(yīng)用示例 數(shù)組及應(yīng)用 —數(shù)組的基本操作 示例 334： 矩陣運算 示例 335： 數(shù)組排序