【正文】 tion Jc( n As Integer) As Long Dim i As Integer , t as Long t = 1 For i = 1 To n t = t * i Next i Jc = t End Function 例 計(jì)算 5! + 10! Function Jc( n %) As Long Dim i As Integer Jc = 1 For i = 1 To n Jc = Jc * i Next i End Function 第 7章 過(guò)程 因?yàn)橛?jì)算 5!和 10!都要用到階乘 n! (n!＝ 1 2 3 … n) 所以把計(jì)算 n!編成 Sub過(guò)程。 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 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 例 計(jì)算 5! + 10! 第 7章 過(guò)程 把求兩個(gè)數(shù)中的大數(shù)編成 Function過(guò)程，過(guò)程名為 Max Private Sub Form_Load() Show Dim a As Single, b As Single, c As Single Dim s As Single a = Val(InputBox(輸入第一個(gè)數(shù) )) b = Val(InputBox(輸入第二個(gè)數(shù) )) c = Val(InputBox(輸入第三個(gè)數(shù) )) s = max(a, b) Print 最大數(shù)是 :。 max(s, c) End Sub Function max(m!, n!) As Single If m n Then max = m Else max = n End If End Function 調(diào)用 調(diào)用 例 輸入三個(gè)數(shù)，求出它們的最大數(shù) 實(shí)參傳給形參( a→ m) 通過(guò)函數(shù)名 max帶回一個(gè)結(jié)果 第 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 例 輸入三個(gè)數(shù)，求出它們的最大數(shù) 第 7章 過(guò)程 函數(shù)過(guò)程與 Sub過(guò)程的區(qū)別 (1)函數(shù)名 是一個(gè)變量，它有值，有類型，在函數(shù)體中至少賦值一次，并通過(guò)它可帶回一個(gè)結(jié)果；而 Sub過(guò)程名 ，它無(wú)值，無(wú)類型，在 Sub過(guò)程體內(nèi)不能賦值，不能通過(guò)它帶回結(jié)果。 注意： Sub過(guò)程若要帶回結(jié)果，必須通過(guò)形參與實(shí)參的地址傳遞得到結(jié)果，調(diào)用時(shí)可得到多個(gè)參數(shù)值。 第 7章 過(guò)程 函數(shù)過(guò)程與 Sub過(guò)程的區(qū)別 (2)調(diào)用時(shí)，子過(guò)程調(diào)用是一句獨(dú)立的語(yǔ)句。格式： Call 過(guò)程名 (實(shí)參列表 ) 或 過(guò)程名 實(shí)參列表 函數(shù)過(guò)程不能作為單獨(dú)的語(yǔ)句加以調(diào)用，必須參與表達(dá)式運(yùn)算。 變量名 = 函數(shù)過(guò)程名（實(shí)參列表） 或 print 函數(shù)過(guò)程名 (實(shí)參列表 ) a = jiechen(5) b = jiechen(6) c = jiechen(7) Print jiechen(5) + jiechen(6) + jiechen(7) 第 7章 過(guò)程 說(shuō)明 ： （ 1）如果僅僅為實(shí)現(xiàn)一個(gè)動(dòng)作，而無(wú)任何返回結(jié)果，只能用 Sub子過(guò)程 實(shí)現(xiàn)。 （ 2）如果需要返回一個(gè)結(jié)果，既可用函數(shù)過(guò)程實(shí)現(xiàn)也可用子過(guò)程實(shí)現(xiàn)。 （ 3）如果需要返回多個(gè)結(jié)果，可用函數(shù)過(guò)程實(shí)現(xiàn)也可用子過(guò)程實(shí)現(xiàn)，同時(shí)必須結(jié)合其他的形式，如全局變量、傳地址（實(shí)參形參間的傳遞）等。 函數(shù)過(guò)程與 Sub過(guò)程 第 7章 過(guò)程 函數(shù)過(guò)程定義的方法 自定義函數(shù)過(guò)程有兩種方法： (1) 利用“工具”菜單下的“添加過(guò)程”命令定義，生成一個(gè)函數(shù)過(guò)程的框架。 (2) 利用代碼窗口手工輸入代碼的方式建立函數(shù)過(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ò)程 參數(shù)的傳遞 參數(shù)傳遞 ：指主調(diào)過(guò)程的實(shí)參傳遞給被調(diào)過(guò)程的形參。 形參 ：是指在定義過(guò)程時(shí)出現(xiàn)在參數(shù)列表中的 變量名或數(shù)組名 ，這些變量名只能在過(guò)程內(nèi)部使用，形式參數(shù)不能是常量。 實(shí)參 ：是調(diào)用過(guò)程中已組織好的準(zhǔn)備傳給形參的 常量、變量、表達(dá)式 或 數(shù)組控件對(duì)象 等。 s = max(a, b) …… Function max(m, n) As Single …… End Function 實(shí)參 形參 第 7章 過(guò)程 定義過(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。 第 7章 過(guò)程 參數(shù)傳遞的方式 地址傳遞 ：缺省或加“ ByRef”，形參得到的是實(shí)參的地址，當(dāng)形參值改變時(shí)實(shí)參的值也改變，也叫雙向傳遞 。 值傳遞 ：在形參前加“ ByVal”，形參得到的是實(shí)參的值，形參值的改變不會(huì)影響實(shí)參的值。也叫 單向傳遞。 注意 ：無(wú)論哪種傳遞，實(shí)際參數(shù)必須與定義過(guò)程時(shí)的形式參數(shù)在個(gè)數(shù)、類型、順序上保持一一對(duì)應(yīng)。 第 7章 過(guò)程 設(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