【正文】 mand1_Click() n=1 ? End Sub Private Sub Command2_Click() n=n+1 ? End Sub 如果用 Private或 Dim來聲明，則該變量只能在本窗體 (或本模塊 )中有效，在其他窗體或模塊中不能引用該變量。只能在本過程中有效。 窗體 /模塊級變量 ：在 窗體模塊 (.frm)和 標準模塊(.bas) “通用聲明 ”段中用 Dim語句或用 Private語句 聲明的變量 ,可被本窗體 /模塊的任何過程訪問。 過程 變量的作用域 作用域 ：變量、過程隨所處的位置不同，可被訪問的范圍。 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 程序中，采用了過程的嵌套調用方式。 m End Sub Sub max(m, n, t) If m n Then t = m Else t = n End If End Function 調用 調用 例 輸入三個數，求出它們的最大數 第 7章 過程 因為計算 5!和 10!都要用到階乘 n! (n!＝ 1 2 3 … n) 所以把計算 n!編成 Sub過程 ,采用 Print直接在窗體上輸出結果。 x Call test1(x) Print 執(zhí)行 test1后， test2前， x=。也叫 單向傳遞。 過程 定義過程和調用過程的示例： 調用過程： Call Mysub(100, 計算機 ， ) 定義過程： Sub Mysub(t As Integer,s As String,y As Single) “形實結合 ”是按照位置結合的，即第一個實參值 (100)傳送給第一個形參 t，第二個實參值 (“計算機” )傳送給第二個形參 s，第三個實參值 ()傳送給第三個形參 y。 過程 參數的傳遞 參數傳遞 ：指主調過程的實參傳遞給被調過程的形參。 過程 函數過程定義的方法 自定義函數過程有兩種方法： (1) 利用“工具”菜單下的“添加過程”命令定義，生成一個函數過程的框架。 過程 說明 ： （ 1）如果僅僅為實現一個動作，而無任何返回結果，只能用 Sub子過程 實現。 第 7章 過程 把求兩個數中的大數編成 Sub子過程，過程名為 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(輸入第一個數 )) b = Val(InputBox(輸入第二個數 )) c = Val(InputBox(輸入第三個數 )) Call max(a, b, s) Call max(s, c, m) Print 最大數是 :。 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! =。 過程 將 n!的 Sub過程改為 Function過程。 函數名本身就是變量。 過程 函數過程 [Static][Public|Private］ Function 函數過程名 ([參數列表 ]) [As 類型 ] 語句塊 函數名 = 返回值 [Exit Function] 語句塊 函數名 = 返回值 End Function 功能：定義一個以 函數名 為名的 Function過程 。 Call mysub2 或 mysub2 第 7章 * End Sub Sub過程 參數 n 無參數 第 7章 過程 過程調用示例 把相同的任務編成相對獨立的“子過程” 當 事件過程 需要執(zhí)行這個任務時，可使用調用語句 (如 Call)實行調用。 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! =。把每次計算得到的階乘值 t累加 Next j Print s 第 7章 計算 10個階乘 t = 1 39。 過程 引言 通用過程分為兩類： ? 函數過程：以 Function保留字開始的過程。過程 第七章 第 7章 （ 2）由用戶自定義過程 用戶根據實際應用的需要而自行設計的過程 ,這樣的過程稱為“ 通用過程 ” 第 7章 Dim s As Long, t As Long s = 0 For j = 1 To 10 39。連乘 j次 Next k s = s + t 39。 過程 因為計算 5!和 10!都要用到階乘 n! (n!＝ 1 2 3 … n) 所以把計算 n!編成 Sub過程。 過程的作用 第 7章 Tab(30)。 (2)在子過程中如果沒有形參，調用時括號（）必須省略。 例如，調用名為 mysub1的過程： Call mysub1(30) mysub1 30 第 7章 若不賦值則默認返回值為 0或空串或空值。 jiechen(5) jiechen(6) jiechen(7) a = jiechen(5) b = jiechen(6) c = jiechen(7) Print jiechen(5) + jiechen(6) + jiechen(7) 第 7章 過程 因為計算 5!和 10!都要用到階乘 n! (n!＝ 1 2 3 … n) 所以把計算 n!編成 Sub過程。 max(s, c) End Sub Function max(m!, n!) As Single If m n Then max = m Else max = n End If End Function 調用 調用 例 輸入三個數，求出它們的最大數 實參傳給形參( a→ m) 通過函數名 max帶回一個結果 第 7章 注意： Sub過程若要帶回結果，必須通過形參與實參的地址傳遞得到結果，調用時可得到多個參數值。 變量名 = 函數過程名（實參列表） 或 print 函數過程名 (實參列表 ) a = jiechen(5) b = jiechen(6) c = jiechen(7) Print jiechen(5) + jiechen(6) + jiechen(7) 第 7章