【正文】 在的過程時，才分配給該變量的內(nèi)存單元，經(jīng)過處理退出該過程時，該變量占用的內(nèi)存單元自動釋放，其值消失。在一個窗體中，不同過程中定義的局部變量 Private Sub Command1_Click() Dim Count As Integer Dim Sum As Integer . . . End Sub Private Sub Command2_Click() Dim Sum As Integer . . . End Sub 這兩個同名變量 Sum沒有任何聯(lián)系 變量的作用域 模塊級變量可以在一個窗體的不同過程中使用 在窗體模塊的聲明部分中聲明該變量 如果用 Private或 Dim來聲明，則該變量只能在本窗體 (或本模塊 ) 以 Public聲明的變量，允許在其他窗體和模塊中引用 2. 模塊級變量 全局變量可以被應(yīng)用程序中任何一個窗體和模塊直接訪問。m→n,p→m, 再調(diào)用 End If End Function 例 用遞歸方法求兩個正整數(shù) n和 m的最大公約數(shù) 變量的作用域 (空間 )和生存期 (時間 ) 代碼模塊的概念 應(yīng)用程序通常包括 窗體文件 (.frm)、模塊文件 (.bas)和類模塊 (.cls) 應(yīng)用程序 工程文件 (.vbp) 窗體模塊 文件 (.frm) Sub 過程 Function 過程 事件 過程 聲明 部分 類模塊 文件 (.cls) 標(biāo)準(zhǔn)模塊 文件 (.bas) Sub 過程 Function 過程 聲明 部分 Sub Main 過程 變量的作用范圍 變量根據(jù)所處的位置或被定義不同，其作用范圍也不同 局部變量、模塊級變量和全局變量 1. 局部變量 在一個過程內(nèi)部用 Dim或 Static聲明的變量稱為局部變量。 gys(n, m) End Sub Private Function gys(n, m) p = n Mod m If p = 0 Then 39。 n。以后再逐層返回，遞推出 Fac(2)及 Fac(3)的值 注意，在某次調(diào)用 Fac過程時并不是立即得到 Fac(n)的值，而是一次又一次地進(jìn)行遞歸調(diào)用，到 Fac(1)時才有確定的值，然后通用過程逐層返回中依次算出 Fac(2)、 Fac(3)的值 Form_Load過程 m=Fac(3) Fac過程 調(diào)用 Fac(3)值 為 6 參數(shù) n為 3 Fac=3*Fac(2) Fac過程 調(diào)用 Fac(2)值 為 2 參數(shù) n為 2 Fac=2*Fac(1) Fac過程 調(diào)用 Fac(1)值 為 1 參數(shù) n為 1 Fac=1 遞歸調(diào)用過程 (n=3) 求兩個正整數(shù) n和 m的最大公約數(shù)，解題方法見例 也可采用遞歸調(diào)用方法來求解， 遞歸終止條件是余數(shù)為 0 Private Sub Form_Load() Show m = Val(InputBox(輸入 m的值 )) n = Val(InputBox(輸入 n的值 )) Print m。n=1時，結(jié)束遞歸 End If End Function 說明： 當(dāng) n1時，在 Fac過程中調(diào)用 Fac過程，然后 n減 1，再次調(diào)用 Fac過程，這種操作一直持續(xù)到 n=1為止。 m End Sub Private Function fac(n) As Double If n 1 Then fac = n * fac(n 1) 39。 一個過程調(diào)用過程本身，就稱為過程的遞歸調(diào)用 采用遞歸方法來解決問題時，必須符合以下兩個 (1)可以把要解的問題轉(zhuǎn)化為一個新的問題，而這個新的問題的解法仍與原來的解法相同； (2)有一個明確的結(jié)束遞歸的條件 (終止條件 )，否則過程將永遠(yuǎn)“遞歸”下去 過程的遞歸調(diào)用 可用下列的遞歸公式 1 n=1 n (n1)! n1 本遞歸中，終止條件是 n=1 n! = 例 采用遞歸方法求 n! (n0) Private Sub Form_Load() Dim n As Integer, m As Double Show n = Val(InputBox(輸入 1～ 15之間的整數(shù) )) If n 1 Or n 15 Then MsgBox 錯誤數(shù)據(jù) , 0, 檢查數(shù)據(jù) End End If m= fac(n) Print n。 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 程序中，采用了過程的嵌套調(diào)用方式。 x Call test2(x) Print 執(zhí)行 test2后， x=。 min End Sub Sub Caljc(k As Integer, darray() As Integer, _ s As Long, m As Integer, n As Integer) Dim i As Integer s = darray(1) : m = darray(1) : n = darray(1) If k = 1 Then Exit Sub For i = 2 To k s = s + darray(i) If m darray(i) Then m = darray(i) If n darray(i) Then n = darray(i) Next i End Sub 1. 按地址傳遞 VB默認(rèn)的數(shù)據(jù)傳遞方式 按地址傳遞 (關(guān)鍵字 ByRef)：把實參變量的內(nèi)存地址傳遞給被調(diào)過程 (如 Sub過程 )，即 形參與實參使用相同的內(nèi)存地址單元 ，這樣通過過程就可以改變變量本身的值 例 ， Form_Load()事件過程是通過“ Call Jc(5,y)”和“ Call Jc(10,y)”來調(diào)用過程 Jc(n,