【文章內容簡介】 J = 1 To N S = S + J Next J End Sub 第九章 過 程 27 Private Sub Command1_Click() Dim K As Integer, S1 As Integer, I As Integer K = Val() For I = 1 To K 39。 調用過程 A1求 1+2+…+ I， 和值返回到 S1中 Call A1(I, S1) Sum = Sum + S1 Next I = Sum End Sub 第九章 過 程 28 【例 912】編寫一個 Sub過程，實現將三個數由大到小排序。程序運行時單擊“排序前”按鈕產生 [0，99]之間的三個隨機整數，并將文本框 Text2的內容清空，單擊“排序后”按鈕，調用該 Sub過程完成排序。 分析 : 在 Sub過程中引入三個參數 A、 B、 C用于接收數據，在過程中對它們進行排序，執(zhí)行完過程后還通過 A、 B、 C返回排序后的結果。 Text1 Text2 第九章 過 程 29 Dim X As Integer, Y As Integer, Z As Integer 39。 定義排序過程 Sort3 Public Sub Sort3(A As Integer, B As Integer, C As Integer) Dim T As Integer If A B Then T = A: A = B: B = T If A C Then T = A: A = C: C = T If B C Then T = B: B = C: C = T End Sub 39。 單擊 Command1按鈕產生并顯示三個隨機數 Private Sub Command1_Click() Randomize X= Int(100 * Rnd) Y = Int(100 * Rnd) Z = Int(100 * Rnd) 第九章 過 程 30 = Str(X) amp。 Str(Y) amp。 Str(Z) = End Sub 39。 單擊 Command2按鈕調用 Sort3過程進行排序， 39。 并顯示排序結果 Private Sub Command2_Click() Sort3 X, Y, Z = Str(X) amp。 Str(Y) amp。 Str(Z) End Sub 第九章 過 程 31 過程的嵌套 在一個過程執(zhí)行期間又調用另一個過程，稱為過程的嵌套調用。 調用過程 子過程 S1 子過程 S2 ┇ 調用 S1 ┇ ┇ 調用 S2 ┇ ┇ 第九章 過 程 32 【 例 913】 用 Function過程求 1!+2!+3!+… +20! Private Sub Command1_Click() Dim n As Integer n = Val(InputBox(n=)) Print Sigma(n) 39。 調用 Sigma過程 End Sub Function Sigma(n As Integer) As Double Dim i As Integer, sum As Double sum = 0 For i = 1 To n sum = sum + Fact(i) 39。 調用 Fact過程 Next i Sigma = sum End Function 第九章 過 程 33 Function Fact(n As Integer) As Double Dim i As Integer, f As Double f = 1 For i = 1 To n f = f * i Next i Fact = f End Function 第九章 過 程 34 參數的傳遞 調用過程與被調用過程之間的一種數據通訊方法。 數據的傳遞可以是單向的，也可以是雙向的。 形參和實參 形參 : 出現在 Sub或 Function語句中。 實參 : 出現在調用程序中。 例如，定義如下一個過程 : Sub SubTest(n As Integer,Sum As Single) … End Sub 調用語句 : Call SubTest( a , s) 形參 實參 第九章 過 程 35 說明 : ? 在傳遞參數時，形參表與實參表中對應參數個數、類型、位置順序必須一一對應。 ? 形參表中的參數可以是 : 除固定長度字符串之外的合法變量名、數組名 () ? 實參表中的參數可以是 : 常量、變量、表達式、 數組名 () ? 形參與實參的結合有兩種方式 : 按值傳遞和按地址傳遞。 第九章 過 程 36 按值傳遞和按地址傳遞 1. 按值傳遞 實參把其值傳遞給形參而不傳遞實參的地址。 數據的傳遞是單向的。 (1) 當實參為常量或表達式時，數據傳遞總是單向的。 例如 : Call SubTest(10, 1+2) Sub SubTest( n As Integer,Sum As Single) 第九章 過 程 37 (2) 實參是變量時 ， 要實現按值傳遞需要在形參之前通過關鍵字 ByVal來實現。 例如 : Sub SS(ByVal X, ByVal Y, ByVal Z) X = X + 1: Y = Y + 1: Z = Z + 1 End Sub Private Sub Command1_Click() A = 1: B = 2: C = 3 Call SS(A, B, C) Print A, B, C End Sub 運行時，單擊命令按鈕在窗體上打印 : 1 2 3 第九章 過 程 38 2. 按地址傳遞