【文章內(nèi)容簡(jiǎn)介】 Call test2(x) Print 執(zhí)行 test2后， x=。 x End Sub Sub test1(ByVal t As Integer) t = t + 5 End Sub Sub test2(s As Integer) s = s 5 End Sub 運(yùn)行結(jié)果 執(zhí)行 Test1前， x=5 執(zhí)行 Test1后， Test2前， x=5 執(zhí)行 Test2后， x=0 例 參數(shù)傳遞方式示例 按值傳遞 按地址傳遞 第 7章 過(guò)程 傳遞方式示意圖 5 Form_Load( ) test1( ) x t 實(shí)參 形參 (a) 值傳遞 5 x s (b) 地址傳遞 實(shí)參和形參共享單元 0 Form_Load( ) test2( ) 5 10 第 7章 過(guò)程 因?yàn)橛?jì)算 5!和 10!都要用到階乘 n! (n!＝ 1 2 3 … n) 所以把計(jì)算 n!編成 Sub過(guò)程 ,采用 Print直接在窗體上輸出結(jié)果。 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 程序運(yùn)行結(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)用情況 例 計(jì)算 5! + 10! 第 7章 過(guò)程 把求兩個(gè)數(shù)中的大數(shù)編成 Sub子過(guò)程，過(guò)程名為 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(輸入第一個(gè)數(shù) )) b = Val(InputBox(輸入第二個(gè)數(shù) )) c = Val(InputBox(輸入第三個(gè)數(shù) )) Call max(a, b, s) Call max(s, c, m) Print 最大數(shù)是 :。 m End Sub Sub max(m, n, t) If m n Then t = m Else t = n End If End Function 調(diào)用 調(diào)用 例 輸入三個(gè)數(shù)，求出它們的最大數(shù) 第 7章 過(guò)程 在一個(gè)過(guò)程 (Sub過(guò)程和 Function過(guò)程 )中調(diào)用另外一個(gè)過(guò)程。 例 輸入兩個(gè)數(shù) n、 m，求組合數(shù) Cnm 的值 Cnm = n! m!(nm)! 過(guò)程的嵌套調(diào)用 第 7章 過(guò)程 Private Sub Form_Load() Show m = Val(InputBox(輸入 m的值 )) n = Val(InputBox(輸入 n的值 )) If m n Then MsgBox 輸入數(shù)據(jù)錯(cuò)誤 , 0, 檢查錯(cuò)誤 End End If Print 組合數(shù)是： 。 Calb(n, m) End Sub Private Function Calb(n, m) Calb = Jc(n) / (Jc(m) * Jc(n m)) End Function Private Function Jc(x) t = 1 For i = 1 To x t = t * i Next i Jc = t End Function 程序中，采用了過(guò)程的嵌套調(diào)用方式。在事件過(guò)程 Form_Load()中調(diào)用了Calb過(guò)程，而在 Calb過(guò)程中調(diào)用了三次 jc過(guò)程。 調(diào) 用 調(diào) 用 第 7章 過(guò)程 過(guò)程的嵌套調(diào)用 a=Calb(n,m) b=Jc(n) 事件過(guò)程 Form_Load Function過(guò)程 Calb(n,m) Function過(guò)程 Jc(x) 結(jié)束 開(kāi)始 第 7章 過(guò)程 變量的作用域 作用域 ：變量、過(guò)程隨所處的位置不同，可被訪問(wèn)的范圍。 應(yīng)用程序 (.vbp)文件 至少有一個(gè)或若干個(gè)窗體模塊 (.frm)文件 其它模塊如類模塊 (.cls)文件等 可以有一個(gè)或若干個(gè)標(biāo)準(zhǔn)模塊 (.bas)文件 事件過(guò)程 (sub) 子過(guò)程 (sub) 函數(shù)過(guò)程 (function) 子過(guò)程 (sub) 函數(shù)過(guò)程 (function) 自定義屬性過(guò)程 自定義方法過(guò)程 自定義事件過(guò)程 第 7章 過(guò)程 通用過(guò)程 (Sub/Function)過(guò)程可以保存在兩種模塊中： 窗體模塊 (.frm)和 標(biāo)準(zhǔn)模塊 (.bas) (1) 在窗體模塊中創(chuàng)建通用過(guò)程： 可以在代碼窗口中直接鍵入來(lái)創(chuàng)建 Sub過(guò)程 選擇“工具”菜單中的“添加過(guò)程”命令 (2) 在標(biāo)準(zhǔn)模塊中創(chuàng)建通用過(guò)程： 選擇“工程”菜單中的“添加模塊”命令 保存為一個(gè)獨(dú)立的“ .bas” 文件 舉例： 把例 max(m, n)存放在模塊文件中 創(chuàng)建通用過(guò)程的方法 第 7章 過(guò)程 變量的作用域 局部變量： 在 窗體模塊 (.frm)和 標(biāo)準(zhǔn)模塊 (.bas)的 過(guò)程內(nèi) 聲明的變量，只能在本過(guò)程中使用。 窗體 /模塊級(jí)變量 ：在 窗體模塊 (.frm)和 標(biāo)準(zhǔn)模塊(.bas) “通用聲明 ”段中用 Dim語(yǔ)句或用 Private語(yǔ)句 聲明的變量 ,可被本窗體 /模塊的任何過(guò)程訪問(wèn)。 全局變量 ：在 標(biāo)準(zhǔn)模塊 (.bas) “通用聲明”段中用 Public語(yǔ)句聲明的變量，可被本應(yīng)用程序的 各 窗體模塊 (.frm)和 標(biāo)準(zhǔn)模塊 (.bas)任何過(guò)程或函數(shù)訪問(wèn)。 第 7章 過(guò)程 1. 局部變量 在一個(gè) 過(guò)程內(nèi)部 用 Dim或 Static聲明的變量稱為局部變量。只能在本過(guò)程中有效。在一個(gè)窗體中，不同過(guò)程中定義的局部變量可以同名。例如，在一個(gè)窗體中定義 Private Sub Command1_Click() Dim Sum As Integer Sum = 1 . . . End Sub Private Sub Command2_Click() Dim Sum As Single Sum = . . . End Sub 這兩個(gè)同名變量 Sum沒(méi)有任何聯(lián)系 第 7章 過(guò)程 在窗體模塊的 “通用聲明” 段中聲明的變量稱為模塊級(jí)變量，可以在一個(gè)窗體的不同過(guò)程中使用。 Dim n As I