【文章內(nèi)容簡(jiǎn)介】 過(guò)程的 嵌套 調(diào)用 a=Calb(n,m) b=Jc(n) 事件過(guò)程 Form_Load Function過(guò)程 Calb(n,m) Function過(guò)程 Jc(x) 主頁(yè) 一個(gè)過(guò)程調(diào)用過(guò)程本身，就稱(chēng)為過(guò)程的遞歸調(diào)用 采用遞歸方法來(lái)解決問(wèn)題時(shí)，必須符合以下兩個(gè) (1) 可以把要解的問(wèn)題轉(zhuǎn)化為一個(gè)新的問(wèn)題，而這個(gè)新的問(wèn)題的解法仍與原來(lái)的解法相同； (2) 有一個(gè)明確的結(jié)束遞歸的條件 (終止條件 )，否則過(guò)程將永遠(yuǎn)“遞歸”下去 過(guò)程的遞歸調(diào)用 主頁(yè) 可用下列的遞歸公式 1 n=1 n (n1)! n1 本遞歸中，終止條件是 n=1 n! = 例 采用遞歸方法求 n! (n0) 例 主頁(yè) 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 錯(cuò)誤數(shù)據(jù) , 0, 檢查數(shù)據(jù) End End If m= fac(n) Print n。 != 。 m End Sub Private Function fac(n) As Double If n 1 Then fac = n * fac(n 1) 39。遞歸調(diào)用 Else fac = 1 39。n=1時(shí)，結(jié)束遞歸 End If End Function 主頁(yè) 說(shuō)明： 當(dāng) n1時(shí)，在 Fac過(guò)程中調(diào)用 Fac過(guò)程，然后 n減 1，再次調(diào)用 Fac過(guò)程，這種操作一直持續(xù)到 n=1為止。例如，當(dāng) n=3時(shí)，求 Fac(3)變成求3 Fac(2)，求 Fac(2)變成求 2 Fac(1)，而 Fac(1)為 1，遞歸結(jié)束。以后再逐層返回，遞推出 Fac(2)及 Fac(3)的值 注意，在某次調(diào)用 Fac過(guò)程時(shí)并不是立即得到 Fac(n)的值，而是一次又一次地進(jìn)行遞歸調(diào)用，到 Fac(1)時(shí)才有確定的值，然后通用過(guò)程逐層返回中依次算出 Fac(2)、 Fac(3)的值 Form_Load過(guò)程 m=Fac(3) Fac過(guò)程 調(diào)用 Fac(3)值 為 6 參數(shù) n為 3 Fac=3*Fac(2) Fac過(guò)程 調(diào)用 Fac(2)值 為 2 參數(shù) n為 2 Fac=2*Fac(1) Fac過(guò)程 調(diào)用 Fac(1)值 為 1 參數(shù) n為 1 Fac=1 遞歸調(diào)用過(guò)程 (n=3) 主頁(yè) 求兩個(gè)正整數(shù) n和 m的最大公約數(shù)，解題方法見(jiàn)例 也可采用遞歸調(diào)用方法來(lái)求解， 遞歸終止條件是余數(shù)為 0 Private Sub Form_Load() Show m = Val(InputBox(輸入 m的值 )) n = Val(InputBox(輸入 n的值 )) Print m。 和 。 n。 的最大公約數(shù)是： 。 gys(n, m) End Sub Private Function gys(n, m) p = n Mod m If p = 0 Then 39。終止條件 gys = m Else gys = gys(m, p) 39。m→n,p→m, 再調(diào)用 End If End Function 例 用遞歸方法求兩個(gè)正整數(shù) n和 m的最大公約數(shù) 例 主頁(yè) 變量的作用域 (空間 )和生存期 (時(shí)間 ) 代碼模塊的概念 應(yīng)用程序包括 窗體文件 (.frm)、模塊文件 (.bas)和類(lèi)模塊 (.cls) 應(yīng)用程序 工程文件 (.vbp) 窗體模塊 文件 (.frm) Sub 過(guò)程 Function 過(guò)程 事件 過(guò)程 聲明 部分 類(lèi)模塊 文件 (.cls) 標(biāo)準(zhǔn)模塊 文件 (.bas) Sub 過(guò)程 Function 過(guò)程 聲明 部分 Sub Main 過(guò)程 變量的作用范圍 主頁(yè) 局部變量、模塊級(jí)變量和全局變量 1. 在一個(gè)過(guò)程內(nèi)部用 Dim或 Static聲明的變量稱(chēng)為局部變量。只能在本過(guò)程中有效。在一個(gè)窗體中，不同過(guò)程中定義的局部變量可 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)系 變量的作用域 它們互不相識(shí) 主頁(yè) 模塊級(jí)變量可以在一個(gè)窗體的不同過(guò)程中使用 在窗體模塊的聲明部分中聲明該變量 Dim n As Integer Private Sub Command1_Click() n=1 ? End Sub Private Sub Command2_Click() n=n+1 ? End Sub 如果用 Private或 Dim來(lái)聲明，則該變量只能在本窗體 (或本模塊 ) 以 Public聲明的變量，允許在其他窗體和模塊中引用 2. 模塊級(jí)變量 主頁(yè) 全局變量可以被應(yīng)用程序中任何一個(gè)窗體和模塊直接訪問(wèn)。 全局變量要在標(biāo)準(zhǔn)模塊文件 (.bas)中的聲明部分用 Global或Public語(yǔ)句來(lái)聲明。 格式： Global 變量名 As Public 變量名 As 數(shù)據(jù)類(lèi)型 3. 全局變量 主