【正文】 ubA 子過程 SubB 通用過程 第 7章 s End Sub 程序運行結(jié)果： 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的調(diào)用情況 例 計算 5! + 10! 第 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! =。計算 1個階乘前，先賦初值 For k = 1 To j 39。 ? 子程序過程：以 Sub保留字開始的過程； 第 7章 過程 本章內(nèi)容 通用過程 參數(shù)傳遞 嵌套調(diào)用 過程、變量的作用域 程序舉例 多窗體與 Sub Main過程 Function過程 Sub過程 第 7章 過程 引言 在 VB中的兩種過程： （ 1）由系統(tǒng)提供過程 系統(tǒng)提供的 內(nèi)部函數(shù)過程 (如 sqr函數(shù) )和 事件過程（ click事件）。 過程 例 求解 s = 1! + 2! + 3! + … + 10!的值 采用兩種不同解法 （ 1）解法一：采用 兩重循環(huán) ，外循環(huán) 10次，每次循環(huán)計算一次階乘，把每次階乘值累加起來，即得求解結(jié)果。計算 j!，需要循環(huán) j次 t = t * k 39。 s End Sub 第 7章 過程 過程有兩個重要作用：一是把一個復(fù)雜的任務(wù)分解為若干個小任務(wù)，可以用過程來表達(dá)，從而使任務(wù)更易理解，更易實現(xiàn)，將來更易維護(hù)；二是代碼重用，使同一段代碼多次復(fù)用。 過程 例 Sub過程示例 Private Sub Form_Load() Show Call mysub1(30) Call mysub2 Call mysub2 Call mysub2 Call mysub1(30) End Sub 程序運行結(jié)果 Private Sub mysub1(n) Print String(n, *) End Sub Private Sub mysub2( ) Print *。 (1) 在 VB中， Sub過程又稱為子過程。 ② 第 2種調(diào)用方式與第 1種相比，結(jié)果一樣，只是去掉 Call和一對括號 ( )。 過程 函數(shù)過程說明 1. As 類型： 返回值的類型 = 返回值 函數(shù)過程必須返回函數(shù)值，而函數(shù)名就代表了函數(shù)值，在函數(shù)體內(nèi)至少對函數(shù)名賦值一次。 過程 函數(shù)過程的調(diào)用 形式： 變量名 = 函數(shù)過程名（實參列表） 或 print 函數(shù)過程名 (實參列表 ) 功能：調(diào)用一個已定義的 Function過程。 s End Sub Function Jc( n As Integer) As Long Dim i As Integer , t as Long t = 1 For i = 1 To n t = t * i Next i Jc = t End Function 例 計算 5! + 10! Function Jc( n %) As Long Dim i As Integer Jc = 1 For i = 1 To n Jc = Jc * i Next i End Function 第 7章 過程 把求兩個數(shù)中的大數(shù)編成 Function過程，過程名為 Max Private Sub Form_Load() Show Dim a As Single, b As Single, c As Single Dim s As Single a = Val(InputBox(輸入第一個數(shù) )) b = Val(InputBox(輸入第二個數(shù) )) c = Val(InputBox(輸入第三個數(shù) )) s = max(a, b) Print 最大數(shù)是 :。 過程 函數(shù)過程與 Sub過程的區(qū)別 (1)函數(shù)名 是一個變量，它有值，有類型，在函數(shù)體中至少賦值一次，并通過它可帶回一個結(jié)果；而 Sub過程名 ，它無值，無類型，在 Sub過程體內(nèi)不能賦值，不能通過它帶回結(jié)果。格式： Call 過程名 (實參列表 ) 或 過程名 實參列表 函數(shù)過程不能作為單獨的語句加以調(diào)用，必須參與表達(dá)式運算。 （ 3）如果需要返回多個結(jié)果，可用函數(shù)過程實現(xiàn)也可用子過程實現(xiàn)，同時必須結(jié)合其他的形式，如全局變量、傳地址（實參形參間的傳遞）等。 第 7章 實參 ：是調(diào)用過程中已組織好的準(zhǔn)備傳給形參的 常量、變量、表達(dá)式 或 數(shù)組控件對象 等。 過程 參數(shù)傳遞的方式 地址傳遞 ：缺省或加“ ByRef”，形參得到的是實參的地址，當(dāng)形參值改變時實參的值也改變，也叫雙向傳遞 。 第 7章 x End Sub Sub test1(ByVal t As Integer) t = t + 5 End Sub Sub test2(s As Integer) s = s 5 End Sub 運行結(jié)果 執(zhí)行 Test1前， x=5 執(zhí)行 Test1后， Test2前， x=5 執(zhí)行 Test2后， x=0 例 參數(shù)傳遞方式示例 按值傳遞 按地址傳遞 第 7章 s End Sub 程序運行結(jié)果： 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的調(diào)用情況 例 計算 5! + 10! 第 7章 例 輸入兩個數(shù) n、 m，求組合數(shù) Cnm 的值 Cnm = n! m!(nm)! 過程的嵌套調(diào)用 第 7章 調(diào) 用 調(diào) 用 第 7章 過程 通用過程 (Sub/Function)過程可以保存在兩種模塊中： 窗體模塊 (.frm)和 標(biāo)準(zhǔn)模塊 (.bas) (1) 在窗體模塊中創(chuàng)建通用過程： 可以在代碼窗口中直接鍵入來創(chuàng)建 Sub過程 選擇“工具”菜單中的“添加過程”命令 (2) 在標(biāo)準(zhǔn)模塊中創(chuàng)建通用過程： 選擇“工程”菜單中的“添加模塊”命令 保存為一個獨立的“ .bas” 文件 舉例： 把例 max(m,