【正文】 , c) (2)用 Call語(yǔ)句調(diào)用 與調(diào)用 Sub過(guò)程一樣來(lái)調(diào)用 Function Call Max(a, b) 當(dāng)用這種方法調(diào)用 Function過(guò)程時(shí)，將會(huì)放棄返回值 3. Function過(guò)程的調(diào)用 分析： 英文字母有大小寫之分，只要將該字符轉(zhuǎn)換為大寫，再判斷是不是處于‘ A?～‘ Z?范圍內(nèi)，若是，則是英文字母，否則不是 本例采用 InputBox函數(shù)來(lái)輸入字符，判斷后結(jié)果直接輸出在窗體上。 例 判斷輸入字符是不是英文字母 Private Sub Form_Load() Dim s As String Show s = InputBox(請(qǐng)輸入一個(gè)字符 ) If Checha(s) Then Print ***輸入的字符是英文字母 *** Else Print ***輸入的字符不是英文字母 *** End If End Sub Function Checha(inp As String) As Boolean Dim upalp As String upalp = UCase(inp) If A = upalp And upalp = Z Then Checha = True Else Checha = False End If End Function 查看當(dāng)前模塊中有哪些 Sub過(guò)程和 Function過(guò)程 。 要查看的是其他模塊中的過(guò)程 4. 查看過(guò)程 參數(shù)傳遞可以實(shí)現(xiàn)調(diào)用過(guò)程和被調(diào)過(guò)程之間的信息交換 兩種方式： 按值傳遞和按地址傳遞 形參與實(shí)參 形式參數(shù) (簡(jiǎn)稱形參 ) 在被調(diào)過(guò)程中的參數(shù)。出現(xiàn)在 Sub過(guò)程和 Function過(guò)程中 形式參數(shù)可以是變量名和數(shù)組名 實(shí)際參數(shù) (簡(jiǎn)稱實(shí)參 ) 在調(diào)用過(guò)程中的參數(shù)。過(guò)程調(diào)用時(shí)實(shí)參數(shù)據(jù)會(huì)傳遞給形參 形參表和實(shí)參表中的對(duì)應(yīng)變量名可以不同，但實(shí)參和形參的個(gè)數(shù)、順序以及數(shù)據(jù)類型必須相同 參數(shù)傳遞 定義過(guò)程和調(diào)用過(guò)程的示例： 調(diào)用過(guò)程： Call Mysub(100, 計(jì)算機(jī) ， ) 定義過(guò)程： Sub Mysub(t As Integer,s As String,y As Single) “形實(shí)結(jié)合 ”是按照位置結(jié)合的，即第一個(gè)實(shí)參值 (100)傳送給第一個(gè)形參 t，第二個(gè)實(shí)參值 (“計(jì)算機(jī)” )傳送給第二個(gè)形參 s，第三個(gè)實(shí)參值 ()傳送給第三個(gè)形參 y 數(shù)組可以作為形參出現(xiàn)在過(guò)程的形參表中 輸入若干個(gè) (不超過(guò) 100)個(gè)學(xué)生的成績(jī)，求出平均分、最高分及最低分 本例采用 InputBox函數(shù)來(lái)輸入成績(jī)，計(jì)算結(jié)果直接輸出到窗體上 例 求出學(xué)生成績(jī)的平均分、最高分及最低分 Private Sub Form_Load() Dim jc(100) As Integer, x As Integer,n As Integer, _ sum As Long, max As Integer, min As Integer n = 0 Do While True x = Val(InputBox(請(qǐng)輸入第 amp。 n + 1 amp。 _ 個(gè)學(xué)生的成績(jī) (1結(jié)束 ))) If x = 1 Then Exit Do n = n + 1 jc(n) = x Loop If n 0 Then Call Caljc(n, jc(), sum, max, min) Else End End If Show Print 平均分： 。 Format(sum / n, .0) Print 最高分： 。 max Print 最低分： 。 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)：把實(shí)參變量的內(nèi)存地址傳遞給被調(diào)過(guò)程 (如 Sub過(guò)程 )，即 形參與實(shí)參使用相同的內(nèi)存地址單元 ，這樣通過(guò)過(guò)程就可以改變變量本身的值 例 ， Form_Load()事件過(guò)程是通過(guò)“ Call Jc(5,y)”和“ Call Jc(10,y)”來(lái)調(diào)用過(guò)程 Jc(n,t)的，其中采用的第二個(gè)參數(shù)就是按地址來(lái)傳送數(shù)據(jù)的 按地址傳遞和按值傳遞 按值傳遞 (關(guān)鍵字 ByVal)：通過(guò)常量傳遞實(shí)際參數(shù)，即 傳遞參數(shù)值而不是傳遞它的地址 因?yàn)橥ㄓ眠^(guò)程不能訪問(wèn)實(shí)參的內(nèi)存地址，因而在通用過(guò)程中對(duì)形參的任何操作都不會(huì)影響實(shí)參 2. 按值傳遞 設(shè)置兩個(gè)通用過(guò)程 Test1和 Test2，分別按值傳遞和按地址傳遞 Private Sub Form_Load() Dim x As Integer Show x = 5 Print 執(zhí)行 test1前， x=。 x Call test1(x) Print 執(zhí)行 test1后， test2前， x=。 x 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ù)傳遞方式示例 過(guò)程的嵌套調(diào)用 在一個(gè)過(guò)程 (Sub過(guò)程和 Function過(guò)程 )中調(diào)用另外一個(gè)過(guò)程 例 輸入兩個(gè)數(shù) n、 m，求組合數(shù) Cnm 的值 Cnm = n! m!(nm)! 過(guò)程的嵌套與遞歸調(diào)用 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ò)程。 一個(gè)過(guò)程調(diào)用過(guò)程本身，就稱為過(guò)程的遞歸調(diào)用 采用遞歸方法來(lái)解決問(wèn)題時(shí)，必須符合以下兩個(gè) (1)可以把要解的問(wèn)題轉(zhuǎn)化為一個(gè)新的問(wèn)題，而這個(gè)新的問(wèn)題的解法仍與原來(lái)的解法相同；