【正文】 y(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,t)的，其中采用的第二個參數(shù)就是按地址來傳送數(shù)據(jù)的 按地址傳遞和按值傳遞 按值傳遞 (關(guān)鍵字 ByVal)：通過常量傳遞實際參數(shù)，即 傳遞參數(shù)值而不是傳遞它的地址 因為通用過程不能訪問實參的內(nèi)存地址，因而在通用過程中對形參的任何操作都不會影響實參 2. 按值傳遞 設(shè)置兩個通用過程 Test1和 Test2，分別按值傳遞和按地址傳遞 Private Sub Form_Load() Dim x As Integer Show x = 5 Print 執(zhí)行 test1前， x=。 Format(sum / n, .0) Print 最高分： 。 n + 1 amp。出現(xiàn)在 Sub過程和 Function過程中 形式參數(shù)可以是變量名和數(shù)組名 實際參數(shù) (簡稱實參 ) 在調(diào)用過程中的參數(shù)。 例 判斷輸入字符是不是英文字母 Private Sub Form_Load() Dim s As String Show s = InputBox(請輸入一個字符 ) 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過程和 Function過程 。 程序代碼： Private Sub Form_Load() Show Dim a As Single, b As Single, c As Single Dim s As Single a = Val(InputBox(輸入第一個數(shù) )) b = Val(InputBox(輸入第二個數(shù) )) c = Val(InputBox(輸入第三個數(shù) )) s = max(a, b) Print 最大數(shù)是 :。 通過參數(shù)表傳送參數(shù) Sub過程可以獲取調(diào)用過程傳送的參數(shù)，也能通過參數(shù)表的參數(shù)，把計算結(jié)果傳回給調(diào)用過程 1. Sub過程的定義 Sub過程可以保存在兩種模塊中： 窗體模塊 (.frm)和 標(biāo)準(zhǔn)模塊 (.bas) 可以在代碼窗口中直接鍵入來創(chuàng)建 Sub過程 選擇“工具”菜單中的“添加過程”命令 2. Sub過程的建立 事件過程是通過事件驅(qū)動和由 系統(tǒng)自動調(diào)用 的，而 Sub過程則 必須通過調(diào)用語句實行調(diào)用 調(diào)用 Sub過程有以下兩種方法： (1)使用 Call語句 Call 過程名 (［實參表］ ) (2)直接使用過程名 過程名［實參表］ 例如，調(diào)用名為 SubCal Call SubCal(10) SubCal 10 3. Sub過程的調(diào)用 Private Sub Form_Load() Show Print VB的基本特點是： Call Sub_Cont Print 面向?qū)ο蟮目梢暬幊? Call Sub_Cont Print 事件驅(qū)動的編程機(jī)制 Call Sub_Cont Print 結(jié)構(gòu)化的設(shè)計語言 End Sub 在事件過程 Form_Load()中，有三處調(diào)用 Sub過程 Sub_Cont() Private Sub Sub_Cont() Dim resp As String Do While True resp = InputBox(是否繼續(xù) (y/n) ? ) If UCase(resp) = N Then End If UCase(resp) = Y Then Exit Do Loop End Sub 例 使用 Sub過程示例 2 因為計算 5!和 10!都要用到階乘 n! (n!＝ 1 2 3 … n) 所以把計算 n!編成 Sub過程 采用 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! =。 局部 (Private)過程、全局 (公用 , Public)過程和靜態(tài) (Static)過程 Tab(30)。 事件過程 Sub過程 通用過程 Function過程 事件過程是當(dāng)某個事件發(fā)生時，對該事件作出響應(yīng)的程序段，它是 VB應(yīng)用程序的主體 通用過程是獨立于事件過程之外，可供其他過程調(diào)用的程序段 過程調(diào)用示例 把相同的任務(wù)編成相對獨立的“子過程” 當(dāng)事件過程需要執(zhí)行這個任務(wù)時，可使用調(diào)用語句 (如Call)實行調(diào)用。 本章主要內(nèi)容 Sub過程 /Function 多窗體與 Sub Main 第 7章 過 程 VB應(yīng)用程序是由過程組成的，過程是完成某種特殊功能的一組獨立的程序代碼。兩大類過程。子過程執(zhí)行完后，會返回事件過程中調(diào)用語句 Call的后續(xù)語句繼續(xù)執(zhí)行 通用過程又分為 Sub(子程序 )過程和 Function(函數(shù) )過程 調(diào)用過程 …… Call SubA …… Call SubA …… Call SubB …… 子過程 SubA 子過程 SubB 通用過程 例 使用 Sub過程的示例 1 Private Sub Form_Load() Show Call mysub1(30) Call mysub2 Call mysub2 Call mysub2 Call mysub1(30) End Sub 程序運行結(jié)果 Private Sub mysub1(n) Print String(n, *) End Sub Private Sub mysub2() Print *。 * End Sub Sub過程 Form_Load() 事件過程 Call mysub1(30) Call mysub2 Call mysub2 Call mysub2 Call mysub2 Call mysub1(30) Mysub1過程 Mysub2過程 調(diào)用過程 在上述事件過程 Form_Load()中，通過 Call來分別調(diào)用兩個 Sub過程 在 Sub過程 mysub1(n)中， n為參數(shù)