【正文】 過程 第七章 第 7章 過程 本章內容 通用過程 參數(shù)傳遞 嵌套調用 過程、變量的作用域 程序舉例 多窗體與 Sub Main過程 Function過程 Sub過程 第 7章 過程 引言 在 VB中的兩種過程： （ 1）由系統(tǒng)提供過程 系統(tǒng)提供的 內部函數(shù)過程 (如 sqr函數(shù) )和 事件過程（ click事件）。 （ 2）由用戶自定義過程 用戶根據(jù)實際應用的需要而自行設計的過程 ,這樣的過程稱為“ 通用過程 ” 第 7章 過程 引言 通用過程分為兩類： ? 函數(shù)過程：以 Function保留字開始的過程。 ? 子程序過程：以 Sub保留字開始的過程； 第 7章 過程 例 求解 s = 1! + 2! + 3! + … + 10!的值 采用兩種不同解法 （ 1）解法一：采用 兩重循環(huán) ，外循環(huán) 10次，每次循環(huán)計算一次階乘，把每次階乘值累加起來，即得求解結果。 Dim s As Long, t As Long s = 0 For j = 1 To 10 39。計算 10個階乘 t = 1 39。計算 1個階乘前，先賦初值 For k = 1 To j 39。計算 j!，需要循環(huán) j次 t = t * k 39。連乘 j次 Next k s = s + t 39。把每次計算得到的階乘值 t累加 Next j Print s 第 7章 過程 階乘 n! (n!＝ 1 2 3 … n) Private Sub Form_Load( ) Show Dim t As Long, s As Long, i As Integer t = 1 For i = 1 To 5 t = t * i Next i s = t 例 計算 5! + 10! t = 1 For i = 1 To 10 t = t * i Next i s = s + t Print 5! + 10! =。 s End Sub 第 7章 過程 因為計算 5!和 10!都要用到階乘 n! (n!＝ 1 2 3 … n) 所以把計算 n!編成 Sub過程。 Private Sub Form_Load( ) Show Dim y As Long, s As Long Call Jc(5, y) s = y Call Jc(10, y) s = s + y Print 5! + 10! =。 s End Sub 程序運行結果： 5! + 10! ＝ 3628920 Private Sub Jc( n As Integer, t As Long ) Dim i As Integer t = 1 For i = 1 To n t = t * i Next i End Sub 注意參數(shù) n及 t的調用情況 例 計算 5! + 10! 第 7章 過程 過程有兩個重要作用：一是把一個復雜的任務分解為若干個小任務，可以用過程來表達，從而使任務更易理解，更易實現(xiàn)，將來更易維護；二是代碼重用，使同一段代碼多次復用。 過程的作用 第 7章 過程 過程調用示例 把相同的任務編成相對獨立的“子過程” 當 事件過程 需要執(zhí)行這個任務時，可使用調用語句 (如 Call)實行調用。子過程執(zhí)行完后，會返回 事件過程 中調用語句 Call的后續(xù)語句繼續(xù)執(zhí)行 調用過程 …… Call SubA …… Call SubA …… Call SubB …… 子過程 SubA 子過程 SubB 通用過程 第 7章 過程 例 Sub過程示例 Private Sub Form_Load() Show Call mysub1(30) Call mysub2 Call mysub2 Call mysub2 Call mysub1(30) End Sub 程序運行結果 Private Sub mysub1(n) Print String(n, *) End Sub Private Sub mysub2( ) Print *。 Tab(30)。 * End Sub Sub過程 參數(shù) n 無參數(shù) 第 7章 過程 Sub過程的定義 格式： [Static][Public|Private］ Sub 過程名 (參數(shù)表列 ) 語句塊 [Exit Sub］ 語句塊 End Sub 功能：定義一個以 子過程名 為名的 Sub過程。 (1) 在 VB中， Sub過程又稱為子過程。 (2)在子過程中如果沒有形參，調用時括號（）必須省略。 Call mysub2 或 mysub2 第 7章 過程 Sub過程的調用 格式： Call 過程名 (實參列表 ) 或 過程名 實參列表 說明： ① 實參的個數(shù)、類型、順序應與相應的形參保持一致，子過程中如果沒有形參，則調用中也無實參。 ② 第 2種調用方式與第 1種相比，結果一樣，只是去掉 Call和一對括號 ( )。 例如，調用名為 mysub1的過程： Call mysub1(30) mysub1 30 第 7章 過程 函數(shù)過程 [Static][Public|Private］ Function 函數(shù)過程名 ([參數(shù)列表 ]) [As 類型 ] 語句塊 函數(shù)名 = 返回值 [Exit Function] 語句塊 函數(shù)名 = 返回值 End Function 功能：定義一個以 函數(shù)名 為名的 Function過程 。 函數(shù)過程體 第 7章 過程 函數(shù)過程說明 1. As 類型： 返回值的類型 = 返回值 函數(shù)過程必須返回函數(shù)值，而函數(shù)名就代表了函數(shù)值，在函數(shù)體內至少對函數(shù)名賦值一次。若不賦值則默認返回值為 0或空串或空值。 函數(shù)名本身就是變量。 第 7章 過程 函數(shù)過程的調用 形式： 變量名 = 函數(shù)過程名（實參列表） 或 print 函數(shù)過程名 (實參列表 ) 功能：調用一個已定義的 Function過程。 jiechen(5) jiechen(6) jiechen(7) a = jiechen(5) b = jiechen(6) c = jiechen(7) Print jiechen(5) + jiechen(6) + jiechen(7) 第 7章 過程 將 n!的 Sub過程改為 Function過程。 Private Sub Form_Load( ) Show Dim s As Long s = Jc(5) + Jc(10) Print 5! + 10! =。 s End Sub Func