【正文】 For語句同時跳出 Do循環(huán)。 Visual Basic程序設(shè)計 109 練習(xí) ? 隨機(jī)生成十個能被 3整除但不能被 5整除的三位整數(shù)。 ? 用矩形法求定積分。 ? 計算 π近似值。 ?????????? 2222222222?返回 Visual Basic程序設(shè)計 110 第 6章 過程 Visual Basic程序設(shè)計 111 事件過程與通用過程 ? Visual Basic將一個工程分為多個模塊，每一個模塊中的代碼又分為多個相互獨立的過程。 ? 事件過程的過程名稱構(gòu)成 –控件對象名 |Form_事件名（ [參數(shù)列表 ]） ? 通用過程分為 Sub與Function兩種。 如果是窗體的事件過程，過程名總是以 Form開頭， 與窗體的名稱無關(guān)，而其他對象的事件過程名則以 對象名開頭。事件過程中的參數(shù)由系統(tǒng)決定，用戶 不可以隨意添加或減少。 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)用。調(diào)用在另一個過程中定義的全局過程時需要在過程名前加上窗體名作為前綴。 – 窗體名 .過程名（ [實際參數(shù)列表 ]） ? 以關(guān)鍵字 Private定義的過程是模塊級過程，只能被在本模塊中的其他過程調(diào)用。若既無 Public關(guān)鍵字也無 Private關(guān)鍵字，則默認(rèn)為 Public，即全局過程。 ? 如果使用關(guān)鍵字 Static，則表示過程中所有的局部變量均為靜態(tài)變量，不管在過程中定義這些變量用關(guān)鍵字 Dim還是關(guān)鍵字 Static。 ? 在過程定義時使用的參數(shù)稱為“形式參數(shù)”，簡稱“形參”。形參的作用是接收過程被調(diào)用時傳遞過來的實際參數(shù)的值或地址。過程可以沒有形參，但括號不能省略。 ? End Sub語句標(biāo)志著過程的結(jié)束，返回到調(diào)用過程中調(diào)用語句后的邏輯上要執(zhí)行的下一條語句。 ? Exit Sub語句可以強(qiáng)制 Sub過程結(jié)束，返回到調(diào)用過程繼續(xù)執(zhí)行。 ? 過程不能嵌套定義，即在一個 Sub過程或 Function過程中不能再定義其他 Sub過程或 Function過程。 Visual Basic程序設(shè)計 114 形式參數(shù) ? 格式 – [ByVal][ByRef] [Optional][ParamArray] 形式參數(shù)名 [()] [As 數(shù)據(jù)類型 ] ?形式參數(shù)名命名規(guī)則與普通變量命名的規(guī)則相同，既可以是變 量名，也可以是數(shù)組名（后面有括號）。若有多個形式參數(shù)， 參數(shù)與參數(shù)之間用逗號分隔。 ?關(guān)鍵字 ByVal表示其后的形參是按值傳遞的參數(shù)。 ?關(guān)鍵字 ByRef表示其后的形參是按地址傳遞的參數(shù)。若形參前 無關(guān)鍵字，則默認(rèn)為按地址傳遞。 ?關(guān)鍵字 Optional表示其后的形參是可選的。含有可選形參的過 程在被調(diào)用時，調(diào)用過程可以沒有數(shù)據(jù)傳遞給可選形參。 ?關(guān)鍵字 ParamArray后的形參應(yīng)是一個數(shù)組，表示是不定數(shù)量 的形參。 ?每個形參后都可以加“ As 數(shù)據(jù)類型”，也可以不加，若無“ As 數(shù) ?據(jù)類型”，則表示此形參是 Variant類型的。 注意 形參名不能與過程名相同。 形參不可以是定長字符串類型變量；形參在 過程中不能用 Dim語句聲明，否則會出現(xiàn)重 復(fù)聲明的錯誤；形參是過程級變量。 Visual Basic程序設(shè)計 115 創(chuàng)建通用過程 ? 在“代碼編輯器”窗口中，所有過程之外直接輸入過程的定義語句 。 ? 在“代碼編輯器”窗口中，執(zhí)行“工具”菜單中的“添加過程”菜單項，系統(tǒng)彈出“添加過程”對話框 。 Visual Basic程序設(shè)計 116 調(diào)用 Sub過程 ? 使用 Call語句調(diào)用 –Call 過程名 ([實際參數(shù)列表 ]) ? 用過程名直接調(diào)用 –過程名 [實際參數(shù)列表 ] 實際參數(shù)是調(diào)用過程向子過程傳遞數(shù)據(jù)時所用的常量、 變量、數(shù)組、表達(dá)式、對象屬性等。 如果形參前沒有 Optional或 ParamArray時，實參的個數(shù) 與形參的個數(shù)應(yīng)相同。 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ù)給定的半徑輸出圓的面積。 Private Sub Area(r As Single) Const Pi As Single = Dim S As Single S = Pi * r ^ 2 Print 圓的面積為： 。 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ī)則相同。在函數(shù)體內(nèi)，可以把函數(shù)當(dāng)變量使用。函數(shù)定義好后有一個初始值，由返回值的數(shù)據(jù)類型決定。 ? Exit Function語句可以退出Function過程，返回調(diào)用過程，同時將函數(shù)的值返回給調(diào)用過程。 ? As 數(shù)據(jù)類型 ：用來指定函數(shù)返回值的數(shù)據(jù)類型，若缺省此項，則函數(shù)返回值的類型為 Variant。 Visual Basic程序設(shè)計 121 調(diào)用 Function過程 ? 使用 Call語句調(diào)用Function過程 –Call 函數(shù)名 ([實際參數(shù)列表 ]) ? 函數(shù)名的直接調(diào)用 –函數(shù)名 [實際參數(shù)列表 ] ? 像調(diào)用標(biāo)準(zhǔn)函數(shù)一樣調(diào)用 Visual Basic程序設(shè)計 122 示例 ? 編寫一個求 n!的函數(shù) Private Function Fac(n As Integer) As Long Dim I As Integer Fac = 1 For I = 1 To n Fac = Fac * I Next End Function Visual Basic程序設(shè)計 123 參數(shù)傳遞 —形實結(jié)合 ? 實參向形參傳遞數(shù)據(jù)有兩種方式 –按值傳遞 –按地址傳遞 ? 當(dāng)形參所在的過程沒有被調(diào)用時，形參的內(nèi)存并沒有被分配。 ? 實參與形參的名稱可以相同，也可以不同。當(dāng)有多個實參向多個形參傳遞數(shù)據(jù)時，他們是按位置的對應(yīng)關(guān)系進(jìn)行形實結(jié)合的。 若形參是變量，則實參可以是常量、變量、表達(dá)式、 數(shù)組元素、對象屬性等；若形參是數(shù)組，則實參必須 是數(shù)組，且數(shù)據(jù)類型要一致。 Visual Basic程序設(shè)計 124 按值傳遞 1 ? 如果在定義通用過程時，在形參前加上關(guān)鍵字 ByVal，就規(guī)定了實參向形參是按值傳遞的。 ? 按值傳遞就是將實參的值傳遞給形參，系統(tǒng)將實參復(fù)制到內(nèi)存的一個臨時單元中，然后將此單元與相應(yīng)形參對應(yīng)。通用過程在使用形參時，實際上是使用實參的一個副本，所有對形參的操作都不會影響到實參。 Visual Basic程序設(shè)計 125 按值傳遞 2 100 …… 實參 2022H 3000H 100 形參 內(nèi)存 形參的一切改變不會影響到實參。 按值傳遞的數(shù)據(jù)傳遞是單向的。 如果形實結(jié)合時是按值傳遞的，則不要求 形參與實參的數(shù)據(jù)類型一致，只要求數(shù)據(jù) 類型相容即可。 常量、表達(dá)式總是按值傳遞的。 Visual Basic程序設(shè)計 126 按地址傳遞 1 ? 如果在定義通用過程時，形參前沒關(guān)鍵字或有關(guān)鍵字ByRef，實參向形參是按地址傳遞的。 ? 如果是按地址傳遞的，則過程被調(diào)用時，調(diào)用過程中的實參將內(nèi)存中的存儲單元的地址傳遞給形參，從而形成了實參與形參對應(yīng)于內(nèi)存中的同一地址。換句話說，實參與形參其實就是同一個內(nèi)存地址的不同表現(xiàn)名稱而已。當(dāng)在通用過程中改變形參的值，則實參的值也同步變化。 Visual Basic程序設(shè)計 127 按地址傳遞 2 100 …… 實參 2022H 內(nèi)存 形參 3000H [2022H] 按地址傳遞參數(shù)時，要求實參與形參的 數(shù)據(jù)類型完全一致。 形參的變化會實時地影響到實參的值。 按地址傳遞的數(shù)據(jù)傳遞是雙向的。 如果規(guī)定了按地址傳遞參數(shù)，而用戶又不想 實參的值被修改，則可以將變量變成表達(dá)式。 最簡單的就是在實參變量外加一層括號。如： Call Sub1((a)) Visual Basic程序設(shè)計 128 *可選參數(shù)與不定數(shù)量參數(shù) ? 一般通用過程中有幾個形參數(shù)，則調(diào)用過程中也應(yīng)有幾個實參與之對應(yīng)。 ? 可選參數(shù) – 如果在形參前有關(guān)鍵字 Optional，則這個形參是可選參數(shù)，在向通用過程傳遞參數(shù)時，可以不向可選參數(shù)傳遞數(shù)據(jù)。 – 在通用過程中，可以用 IsMissing函數(shù)測試過程被調(diào)用時可選參數(shù)有沒有被傳遞數(shù)據(jù)。若有實參向此可選參數(shù)傳遞了數(shù)據(jù)，則 IsMissing函數(shù)值返回為 True。 ? 不定量參數(shù) – 不定數(shù)量參數(shù)可以用關(guān)鍵字 ParamArray來定義，格式為： ParamArray 數(shù)組名 () – 其中，數(shù)組只能為 Variant類型的數(shù)組。 不定數(shù)量參數(shù)只能作為形參列表中的最后一個 參數(shù)；關(guān)鍵字 ParamArray不能與 ByVal、 ByRef、 Optional一起使用。 Visual Basic程序設(shè)計 129 練習(xí) ? 找出指定區(qū)間的所有素數(shù)。 ? 若兩個素數(shù)之差為 2，則稱此兩個素數(shù)為孿生素數(shù)。找出 100以內(nèi)所有的孿生素數(shù)。 ? 隨機(jī)生成十個互不相同的三位正整數(shù)，然后將其中升序數(shù)找出并輸出，若不存在升序數(shù)，則輸出“無升序數(shù)！”。 ? 直接插入排序。 ? 求出介于正整數(shù) M、 N之間所有包含 4個因子的數(shù)（因子不包含 1和自身）。 Visual Basic程序設(shè)計 130 遞歸 ? 遞歸就是一個過程調(diào)用過程本身，是計算機(jī)領(lǐng)域一種很重要的算法。 ? 遞歸調(diào)用分為兩種 –直接遞歸：過程 A調(diào)用過程 A。 –間接遞歸：過程 A調(diào)用過程 B，過程 B又調(diào)用過程 A。 ? 遞歸兩要素 –遞推關(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 Functi