【正文】 ? 遞歸兩要素 –遞推關(guān)系 –遞歸出口（結(jié)束條件） Visual Basic程序設(shè)計 131 示例 遞歸求解 n! 逐層調(diào)用 逐層返回 Private Function Fact(N As Integer) As Long If N = 0 Then Fact = 1 Else Fact = N * Fact(N 1) End Function 。 ? 遞歸調(diào)用分為兩種 –直接遞歸：過程 A調(diào)用過程 A。 ? 求出介于正整數(shù) M、 N之間所有包含 4個因子的數(shù)（因子不包含 1和自身）。 ? 隨機(jī)生成十個互不相同的三位正整數(shù)，然后將其中升序數(shù)找出并輸出，若不存在升序數(shù)，則輸出“無升序數(shù)！”。 ? 若兩個素數(shù)之差為 2，則稱此兩個素數(shù)為孿生素數(shù)。 不定數(shù)量參數(shù)只能作為形參列表中的最后一個 參數(shù)；關(guān)鍵字 ParamArray不能與 ByVal、 ByRef、 Optional一起使用。若有實參向此可選參數(shù)傳遞了數(shù)據(jù)，則 IsMissing函數(shù)值返回為 True。 ? 可選參數(shù) – 如果在形參前有關(guān)鍵字 Optional，則這個形參是可選參數(shù)，在向通用過程傳遞參數(shù)時，可以不向可選參數(shù)傳遞數(shù)據(jù)。 最簡單的就是在實參變量外加一層括號。 按地址傳遞的數(shù)據(jù)傳遞是雙向的。 Visual Basic程序設(shè)計 127 按地址傳遞 2 100 …… 實參 2022H 內(nèi)存 形參 3000H [2022H] 按地址傳遞參數(shù)時，要求實參與形參的 數(shù)據(jù)類型完全一致。換句話說，實參與形參其實就是同一個內(nèi)存地址的不同表現(xiàn)名稱而已。 Visual Basic程序設(shè)計 126 按地址傳遞 1 ? 如果在定義通用過程時，形參前沒關(guān)鍵字或有關(guān)鍵字ByRef，實參向形參是按地址傳遞的。 如果形實結(jié)合時是按值傳遞的，則不要求 形參與實參的數(shù)據(jù)類型一致，只要求數(shù)據(jù) 類型相容即可。 Visual Basic程序設(shè)計 125 按值傳遞 2 100 …… 實參 2022H 3000H 100 形參 內(nèi)存 形參的一切改變不會影響到實參。 ? 按值傳遞就是將實參的值傳遞給形參，系統(tǒng)將實參復(fù)制到內(nèi)存的一個臨時單元中，然后將此單元與相應(yīng)形參對應(yīng)。 若形參是變量，則實參可以是常量、變量、表達(dá)式、 數(shù)組元素、對象屬性等；若形參是數(shù)組，則實參必須 是數(shù)組，且數(shù)據(jù)類型要一致。 ? 實參與形參的名稱可以相同，也可以不同。 ? As 數(shù)據(jù)類型 ：用來指定函數(shù)返回值的數(shù)據(jù)類型，若缺省此項，則函數(shù)返回值的類型為 Variant。函數(shù)定義好后有一個初始值，由返回值的數(shù)據(jù)類型決定。 S End Sub Private Sub Command1_Click() Dim r As Single r = Val(InputBox(請輸入圓的半徑 )) If r = 0 Then MsgBox 半徑不能為 0！ , vbCritical Exit Sub Else Call Area(r) End If End Sub Visual Basic程序設(shè)計 119 Function過程 ? 語法 [Public|Private] [Static] Function 函數(shù)名 ([形式參數(shù)列表 ]) [As 數(shù)據(jù)類型 ] [局部變量和常量的聲明 ] 語句塊 函數(shù)名 =表達(dá)式 [Exit Function] 語句塊 End Function 函數(shù)首部 函數(shù)體 Visual Basic程序設(shè)計 120 說明 ? 函數(shù)名的命名規(guī)則與變量的命名規(guī)則相同。 Visual Basic程序設(shè)計 117 過程調(diào)用示意圖 1…… 2…… 3…… Call sub2 5…… 6…… 7…… 8…… …… …… …… Sub1 Sub2 Sub3 1…… 2…… 3…… 4…… 5…… Call sub3 7…… 8…… …… …… …… 1…… 2…… 3…… 4…… 5…… 6…… 7…… 8…… …… …… …… 調(diào)用結(jié)束后，返回到調(diào)用語句的下一句 Visual Basic程序設(shè)計 118 示例 ? 編寫一個求圓面積的 Sub過程，然后調(diào)用此過程，根據(jù)給定的半徑輸出圓的面積。 Visual Basic程序設(shè)計 116 調(diào)用 Sub過程 ? 使用 Call語句調(diào)用 –Call 過程名 ([實際參數(shù)列表 ]) ? 用過程名直接調(diào)用 –過程名 [實際參數(shù)列表 ] 實際參數(shù)是調(diào)用過程向子過程傳遞數(shù)據(jù)時所用的常量、 變量、數(shù)組、表達(dá)式、對象屬性等。 Visual Basic程序設(shè)計 115 創(chuàng)建通用過程 ? 在“代碼編輯器”窗口中，所有過程之外直接輸入過程的定義語句 。 注意 形參名不能與過程名相同。 ?關(guān)鍵字 ParamArray后的形參應(yīng)是一個數(shù)組，表示是不定數(shù)量 的形參。 ?關(guān)鍵字 Optional表示其后的形參是可選的。 ?關(guān)鍵字 ByRef表示其后的形參是按地址傳遞的參數(shù)。若有多個形式參數(shù)， 參數(shù)與參數(shù)之間用逗號分隔。 ? 過程不能嵌套定義，即在一個 Sub過程或 Function過程中不能再定義其他 Sub過程或 Function過程。 ? End Sub語句標(biāo)志著過程的結(jié)束，返回到調(diào)用過程中調(diào)用語句后的邏輯上要執(zhí)行的下一條語句。形參的作用是接收過程被調(diào)用時傳遞過來的實際參數(shù)的值或地址。 ? 如果使用關(guān)鍵字 Static，則表示過程中所有的局部變量均為靜態(tài)變量，不管在過程中定義這些變量用關(guān)鍵字 Dim還是關(guān)鍵字 Static。 – 窗體名 .過程名（ [實際參數(shù)列表 ]） ? 以關(guān)鍵字 Private定義的過程是模塊級過程，只能被在本模塊中的其他過程調(diào)用。 Visual Basic程序設(shè)計 112 Sub過程 ? 語法 [Public|Private] [Static] Sub 過程名 ([形式參數(shù)列表 ]) [局部變量和常量的聲明 ] 語句塊 [Exit Sub] 語句塊 End Sub 過程首部 過程體 Visual Basic程序設(shè)計 113 說明 ? 以關(guān)鍵字 Public定義的過程是全局過程，該過程可以在同一應(yīng)用程序的所有模塊中調(diào)用。 如果是窗體的事件過程，過程名總是以 Form開頭， 與窗體的名稱無關(guān)，而其他對象的事件過程名則以 對象名開頭。 ?????????? 2222222222?返回 Visual Basic程序設(shè)計 110 第 6章 過程 Visual Basic程序設(shè)計 111 事件過程與通用過程 ? Visual Basic將一個工程分為多個模塊，每一個模塊中的代碼又分為多個相互獨立的過程。 ? 用矩形法求定積分。 正確的嵌套 錯誤的嵌套 Visual Basic程序設(shè)計 108 嵌套中的 Exit語句 ? 當(dāng)有多個 Do循環(huán)嵌套時，Exit Do語句只跳出當(dāng)前一層 Do循環(huán)；當(dāng)有多個 For循環(huán)嵌套時， Exit For語句只跳出當(dāng)前一層 For循環(huán)； ? 當(dāng) Do循環(huán)與 For循環(huán)嵌套時，使用 Exit Do語句可退出Do循環(huán)，若內(nèi)層循環(huán)為 For循環(huán)，則 Exit Do語句同時跳出 For循環(huán)；使用 Exit For語句可退出 For循環(huán)，若內(nèi)層循環(huán)為 Do循環(huán)，則 Exit For語句同時跳出 Do循環(huán)。 –結(jié)構(gòu)層次比較多時，應(yīng)盡可能讓程序呈現(xiàn)鋸齒形。 ? 注意 –嵌套的層數(shù)沒有限制。 –經(jīng)典算法：歐幾里德算法 開始 輸入 M、 N R0 M=N N=R 輸出 N 結(jié)束 True False R=M Mod N Dim M As Integer, N As Integer, R As Integer M = InputBox(輸入 M) N = InputBox(輸入 N) R = M Mod N Do While R 0 M = N N = R R = M Mod N Loop Print 最大公約數(shù)為： 。 （ 4） Exit Do語句可以退出當(dāng)前一層 Do循環(huán)，把控制權(quán)轉(zhuǎn)移到Loop語句后的語句。 （ 3）在 DoLoop循環(huán)中可以沒有 While或 Until部分，也稱為無條件循環(huán)，但在循環(huán)體中一定要有 Exit Do語句，否則會造成死循環(huán)。 Do While 條件 循環(huán)體 [Exit Do] 循環(huán)體 Loop Do 循環(huán)體 [Exit Do] 循環(huán)體 Loop While 條件 Do Until 條件 循環(huán)體 [Exit Do] 循環(huán)體 Loop Do 循環(huán)體 [Exit Do] 循環(huán)體 Loop Until 條件 當(dāng)型 直到型 條件 循環(huán)體 T F 條件 循環(huán)體 T F 條件 循環(huán)體 F T 條件 循環(huán)體 F T Visual Basic程序設(shè)計 105 說明 （ 1）對于循環(huán)次數(shù)未知的情況下， DoLoop循環(huán)十分有用。 ? 找出 1000以內(nèi)所有同構(gòu)數(shù)。 –素數(shù)：一個整數(shù)除了 1與本身之外再無其他因子。 S 循環(huán)結(jié)束后 I=？ Visual Basic程序設(shè)計 102 注意 ? 如果在 For循環(huán)中，循環(huán)變量的初值、終值及步長是用變量表示的，則這些變量在循環(huán)體中的改變不會影響循環(huán)次數(shù)。 Visual Basic程序設(shè)計 101 示例 ? 求 1+2+3+…+100 。 Visual Basic程序設(shè)計 100 For循環(huán)的執(zhí)行 1. 把初值賦給循環(huán)變量； 2. 檢查循環(huán)變量值是否超過終值，若超過，則不執(zhí)行循環(huán)體而轉(zhuǎn)到 Next后一條語句執(zhí)行，否則轉(zhuǎn)到 3； 3. 執(zhí)行一次循環(huán)體； 4. 循環(huán)變量 =循環(huán)變量 +步長； 5. 轉(zhuǎn)到 2。 Visual Basic程序設(shè)計 99 說明 2 ? ForNext循環(huán)遵循“先檢查后循環(huán)”的原則。 （ 7） Next。循環(huán)中可以在任何位置放置任意個 Exit For 語句，隨時退出循環(huán)。 （ 6） Exit For。 （ 5）循環(huán)體。其值可正可負(fù)，但不能為 0。 （ 4）步長。 （ 3）終值。 （ 2）初值。 If AB Then MaxData=A Else MaxData=B End If 可以簡化為： MaxData=IIf(AB,A,B) Visual Basic程序設(shè)計 97 循環(huán)結(jié)構(gòu) For循環(huán) ? For循環(huán)也叫計次循環(huán)，格式為： For 循環(huán)變量 =初值 To 終值 [Step 步長 ] 循環(huán)體 [Exit For] 循環(huán)體 Next [循環(huán)變量 ] Visual Basic程序設(shè)計 98 說明 1 （ 1）循環(huán)變量。 Visual Basic程序設(shè)計 96 IIf函數(shù) ? 格式： IIf(邏輯表達(dá)式 ,值1,值 2) ? IIf函數(shù)的功能類似于有兩個分支的 If語句。 Visual Basic程序設(shè)計 95 練習(xí) ? 輸入一個月份，輸出該月有多少天。判斷等級 Case Is = 90 DJ = 優(yōu)秀 Case Is = 80 DJ = 良好 Case Is = 70 DJ = 中等 Case Is = 60