【正文】 Print 5! + 10! =。 過程 因?yàn)橛?jì)算 5!和 10!都要用到階乘 n! (n!＝ 1 2 3 … n) 所以把計(jì)算 n!編成 Sub過程。 s End Sub 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 例 計(jì)算 5! + 10! 第 7章 max(s, c) End Sub Function max(m!, n!) As Single If m n Then max = m Else max = n End If End Function 調(diào)用 調(diào)用 例 輸入三個數(shù)，求出它們的最大數(shù) 實(shí)參傳給形參( a→ m) 通過函數(shù)名 max帶回一個結(jié)果 第 7章 m End Sub Sub max(m!, n!, t!) If m n Then t = m Else t = n End If End Function 例 輸入三個數(shù)，求出它們的最大數(shù) 第 7章 注意： Sub過程若要帶回結(jié)果，必須通過形參與實(shí)參的地址傳遞得到結(jié)果，調(diào)用時可得到多個參數(shù)值。 過程 函數(shù)過程與 Sub過程的區(qū)別 (2)調(diào)用時，子過程調(diào)用是一句獨(dú)立的語句。 變量名 = 函數(shù)過程名（實(shí)參列表） 或 print 函數(shù)過程名 (實(shí)參列表 ) a = jiechen(5) b = jiechen(6) c = jiechen(7) Print jiechen(5) + jiechen(6) + jiechen(7) 第 7章 （ 2）如果需要返回一個結(jié)果，既可用函數(shù)過程實(shí)現(xiàn)也可用子過程實(shí)現(xiàn)。 函數(shù)過程與 Sub過程 第 7章 (2) 利用代碼窗口手工輸入代碼的方式建立函數(shù)過程。 過程 通用過程 (Sub/Function)過程可以保存在兩種模塊中： 窗體模塊 (.frm)和 標(biāo)準(zhǔn)模塊 (.bas) (1) 在窗體模塊中創(chuàng)建通用過程： 可以在代碼窗口中直接鍵入來創(chuàng)建 Sub過程 選擇“工具”菜單中的“添加過程”命令 (2) 在標(biāo)準(zhǔn)模塊中創(chuàng)建通用過程： 選擇“工程”菜單中的“添加模塊”命令 保存為一個獨(dú)立的“ .bas” 文件 舉例： 把例 max(m, n)存放在模塊文件中 創(chuàng)建通用過程的方法 第 7章 形參 ：是指在定義過程時出現(xiàn)在參數(shù)列表中的 變量名或數(shù)組名 ，這些變量名只能在過程內(nèi)部使用，形式參數(shù)不能是常量。 s = max(a, b) …… Function max(m, n) As Single …… End Function 實(shí)參 形參 第 7章 第 7章 值傳遞 ：在形參前加“ ByVal”，形參得到的是實(shí)參的值，形參值的改變不會影響實(shí)參的值。 注意 ：無論哪種傳遞，實(shí)際參數(shù)必須與定義過程時的形式參數(shù)在個數(shù)、類型、順序上保持一一對應(yīng)。 過程 設(shè)置兩個通用過程 Test1和 Test2，分別按值傳遞和按地址傳遞 Private Sub Form_Load() Dim x As Integer Show x = 5 Print 執(zhí)行 test1前， x=。 x Call test2(x) Print 執(zhí)行 test2后， x=。 過程 傳遞方式示意圖 5 Form_Load( ) test1( ) x t 實(shí)參 形參 (a) 值傳遞 5 x s (b) 地址傳遞 實(shí)參和形參共享單元 0 Form_Load( ) test2( ) 5 10 第 7章 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! =。 過程 把求兩個數(shù)中的大數(shù)編成 Sub子過程，過程名為 Max Private Sub Form_Load() Show Dim a As Single, b As Single, c As Single Dim s As Single, m As Single a = Val(InputBox(輸入第一個數(shù) )) b = Val(InputBox(輸入第二個數(shù) )) c = Val(InputBox(輸入第三個數(shù) )) Call max(a, b, s) Call max(s, c, m) Print 最大數(shù)是 :。 過程 在一個過程 (Sub過程和 Function過程 )中調(diào)用另外一個過程。 過程 Private Sub Form_Load() Show m = Val(InputBox(輸入 m的值 )) n = Val(InputBox(輸入 n的值 )) If m n Then MsgBox 輸入數(shù)據(jù)錯誤 , 0, 檢查錯誤 End End If Print 組合數(shù)是： 。在事件過程 Form_Load()中調(diào)用了Calb過程，而在 Calb過程中調(diào)用了三次 jc過程。 過程 過程的嵌套調(diào)用 a=Calb(n,m) b=Jc(n) 事件過程 Form_Load Function過程 Calb(n,m) Function過程 Jc(x) 結(jié)束 開始 第 7章 應(yīng)用程序 (.vbp)文件 至少有一個或若干個窗體模塊 (.frm)文件 其它模塊如類模塊 (.cls)文件等 可以有一個或若干個標(biāo)準(zhǔn)模塊 (.bas)文件 事件過程 (sub) 子過程 (sub) 函數(shù)過程 (function) 子過程 (sub) 函數(shù)過程 (function) 自定義屬性過程 自定義方法過程 自定義事件過程 第 7章 過程 變量的作用域 局部變量： 在 窗體模塊 (.frm)和 標(biāo)準(zhǔn)模塊 (.bas)的 過程內(nèi) 聲明的變量，只能在本過程中使用。 全局變量 ：在 標(biāo)準(zhǔn)模塊 (.bas) “通用聲明”段中用 Public語句聲明的變量，可被本應(yīng)用程序的 各 窗體模塊 (.frm)和 標(biāo)準(zhǔn)模塊 (.bas)任何過程或函數(shù)訪問。 過程 1. 局部變量 在一個 過程內(nèi)部 用 Dim或 Static聲明的變量稱為局部變量。在一個窗體中，不同過程中定義的局部變量可以同名。 過程 在窗體模塊的 “通用聲明” 段中聲明的變量稱為模塊級變量，可以在一個窗體的不同過程中使用。 以 Public聲明的變量，允許在其他窗體和模塊中引用， 2. 模塊級變量 第 7章 全局變量可以被應(yīng)用程序中任何一個窗體和模塊直接訪問。 過程 生存期，即變量能夠保持其值的時間 ，分為 動態(tài)變量 和 靜態(tài)變量 1. 動態(tài)變量 程序運(yùn)行進(jìn)入變量所在的過程時，才為變量分配內(nèi)存單元，退出過程時，該變量占用的內(nèi)存單元自動釋放，其值消失。 使用 Dim關(guān)鍵字 在過程中聲明的