【正文】 K = Int(Sqr(n)): I = 2 Do While I = K If n Mod I 0 Then I = I + 1 39。 第八章 過 程 25 【例 87】編寫判斷一個(gè)數(shù)是否為素?cái)?shù)的函數(shù)過程，利用該函數(shù)過程驗(yàn)證哥德巴赫猜想：一個(gè)不小于 6的偶數(shù)可以表示為兩個(gè)素?cái)?shù)之和。 將余數(shù) r作為除數(shù) n r = m Mod n 39。 當(dāng)余數(shù)不為 0時(shí)進(jìn)入循環(huán) m = n 39。 設(shè)計(jì)界面： Text1 Label2 Text2 Command1 Text3 第八章 過 程 23 Function gcd(m As Integer, n As Integer) _ As Integer Dim r As Integer r = m Mod n 39。 Str(A(i)) Next i End Sub 3）在“生成數(shù)據(jù)”按鈕 Command1的Click事件過程中編寫代碼，生成 10個(gè) [1,5]區(qū)間的隨機(jī)整數(shù)，保存到數(shù)組 A中，同時(shí)顯示在文本框 Text1中 : 第八章 過 程 21 4）編寫“求和”按鈕 Command2的 Click事件過程，調(diào)用函數(shù)過程 Sum求數(shù)組各元素的和，并將和值顯示在標(biāo)簽 Label1中。 設(shè)計(jì)界面： Text1 Label1 Command1 Command2 第八章 過 程 18 1）在代碼窗口的通用聲明段聲明數(shù)組 A為具有 10個(gè)元素的一維整型數(shù)組，使 A成為模塊級(jí)數(shù)組。 2. 調(diào)用格式 函數(shù)過程名 ([實(shí)參表 ]) 其中， ?―實(shí)參表”可以是 常量、變量、表達(dá)式、數(shù)組名 () ?―實(shí)參表”各參數(shù)之間用逗號(hào)分隔 ?實(shí)參表的個(gè)數(shù)、順序、類型要與形參一致 第八章 過 程 14 【例 84】 輸入 m和 n的值，調(diào)用例 82的函數(shù)過程 Fact求組合數(shù)。 代碼 ： Function Sum(X() As Integer) As Long S = 0 For I = LBound(X) To UBound(X) S = S + X(I) Next I Sum = S 39。函數(shù)過程的功能就是求數(shù)組 X的所有元素之和，保存到函數(shù)名 Sum中。 給函數(shù)過程名 Fact賦值 End Function 第八章 過 程 12 分析： 假設(shè)函數(shù)過程名為 Sum。 代碼 ： Function Fact(N As Integer) As Long Dim I As Integer, F As Long F = 1 39。求 N！只需給函數(shù)過程設(shè)置一個(gè)參數(shù) N。 |zyx| 333 ??【例 81】 編寫一個(gè)計(jì)算 以下表達(dá)式值的函數(shù)過程。求表達(dá)式 的值需要已知 x、 y、 z的值，因此應(yīng)給函數(shù)過程設(shè)置三個(gè)參數(shù) x、 y、 z。 第八章 過 程 9 2. Function過程的建立 ?建立位置：模塊的通用聲明段 ?窗體模塊 ?標(biāo)準(zhǔn)模塊 ?類模塊 ?建立方法 ?直接在代碼窗口中輸入 ?使用菜單命令： 工具 |添加過程 先切換到代碼窗口，才可以使用該菜單命令。 如果省略該語句，則數(shù)值函數(shù)過程返回 0，字符串函數(shù)過程返回空串。 多個(gè)參數(shù)之間用逗號(hào)隔開 。 ?函數(shù)過程名 : 應(yīng)遵循變量的命名規(guī)則 。 ?Private:使用 Private時(shí)表示只有本模塊中的其他過程才可以調(diào)用該 Function過程 。 第八章 過 程 7 說明 : ?Public:缺省值 。 第八章 過 程 5 Function過程 (函數(shù)過程 ) 當(dāng)在程序中要重復(fù)處理某一函數(shù)關(guān)系，而又沒有現(xiàn)成的內(nèi)部函數(shù)可以使用時(shí)，程序員可以自己定義函數(shù)，并采用與調(diào)用內(nèi)部函數(shù)相同的方法來調(diào)用自定義函數(shù)。 ? 調(diào)用過程 ：調(diào)用其他過程的程序，又稱主過程、主程序。計(jì)算機(jī)程序設(shè)計(jì)基礎(chǔ) 1 第 8章 過 程 本章要點(diǎn) : ?Function過程 ?Sub過程 ?參數(shù)的傳遞 ?過程的嵌套調(diào)用 ?過程的遞歸調(diào)用 ?Vb工程結(jié)構(gòu)及過程的作用域 ?變量的作用域與生存期 第八章 過 程 2 ? 什么是過程 ? 過程 是一段程序，能 完成一種相對(duì)獨(dú)立的功能，可供其他程序使用 (調(diào)用 )。 使完成同類操作的代碼不重復(fù) ?過程的引入： ? 被調(diào)用過程： 被其他程序使用的過程，又稱為子過程、子程序。 ?概念： 第八章 過 程 3 調(diào)用過程 : 子過程 : Sprg1 子過程 : Sprg2 調(diào)用 Sprg1 調(diào)用 Sprg1 調(diào)用 Sprg2 … … … … ?過程的執(zhí)行： 第八章 過 程 4 Sub過程 Function過程 （函數(shù)過程） 事件過程 自定義 Sub過程 內(nèi)部函數(shù) 自定義函數(shù)過程 ?常用過程 的 分類 : 本章主要介紹自定義 函數(shù) 過程和自定義Sub過程，統(tǒng)稱為“ 通用過程 ”。 第八章 過 程 6 [語句組 ] 函數(shù)過程名 = 表達(dá)式 [Exit Function] [語句組 ] 函數(shù)過程體 1. Function過程的格式 [Public|Private][Static] Function 函數(shù)過程名 ([形參表 ]) [As 類型 ] End Function Function過程的定義 注意 :Function過程的定義 不能嵌套 。 使用 Public時(shí)表示各模塊的所有其他過程都可以調(diào)用該過程 。 ?Static:使用 Static時(shí)表示將過程中的所有局部變量說明為靜態(tài)變量 。 ?形參表 : Function過程的參數(shù)列表 。 可以是： [ByVal |ByRef |Optional |ParamArray] 參數(shù)名 [( )] [As 類型 ] 第八章 過 程 8 ? As 類型 ： 定義函數(shù)過程的返回值的數(shù)據(jù)類型 ， ? Function過程通過賦值語句 : 函數(shù)過程名 =表達(dá)式 將函數(shù)的返回值賦給 “ 函數(shù)過程名 ”。 ? Exit Function語句 : 從 Function過程中退出。 第八章 過 程 10 分析： 假設(shè)函數(shù)過程名稱為 F。在過程體中需要給 F賦值，以便通過函數(shù)過程名 F返回函數(shù)值。 代碼 ： Function F(X As Single, Y As Single, _ Z As Single) As Single F = Sqr(Abs(X ^ 3 + Y ^ 3 + Z ^ 3)) End Function 第八章 過 程 11 分析： 假設(shè)函數(shù)過程名稱為 Fact。函數(shù)過程體的功能就是求 Fact=N！ 【例 82】編寫一個(gè)計(jì)算 N！的函數(shù)過程。 F用于保存階乘值 For I = 1 To N F = F * I Next I Fact = F 39。本例需要用數(shù)組作參數(shù)，設(shè)數(shù)組參數(shù)名為 X，則要在 X之后加一對(duì)空?qǐng)A括號(hào)。 【例 83】 編寫一個(gè)求一維數(shù)組各元素和的函數(shù)過程。 給函數(shù)過程名賦值 End Function 第八章 過 程 13 Function過程的調(diào)用 1. 調(diào)用位置 直接在表達(dá)式中調(diào)用。求組合數(shù)公式如下： Text2 Text1 Text3 Command1 設(shè)計(jì)界面： )!nm(!n!mC nm??第八章 過 程 15 Function Fact(N As Integer) As Long End Function 1）在模塊的通用聲明段編寫 例 82的 函數(shù)過程： Dim I As Integer, F As Long F = 1 For I = 1 To N F = F * I Next I Fact = F 代碼設(shè)計(jì)： 第八章 過 程 16 Private Sub Command1_Click() Dim m As Integer, n As Integer, _ c As Double n = Val() m = Val() c = Fact(m) / (Fact(n) * (Fact(m n))) = c End Sub 2） 編寫調(diào)用程序 第八章 過 程 17 【 例 85】 生成 10個(gè)包含 [1， 5]之間的隨機(jī)整數(shù)的一維數(shù)組，調(diào)用例 83的函數(shù)過程求該數(shù)組的所有元素之和。 代碼設(shè)計(jì)： Dim A(1 To 10) As Integer 第八章 過 程 19 Function Sum(x() As Integer) As Long End Function 2）編寫例 83的函數(shù)過程 Sum: S = 0 For i = LBound(X) To UBound(X) S = S + X(i) Next i Sum = S 第八章 過 程 20 Private Sub Command1_Click() Randomize = For i = 1 To 10 A(i) = Int(Rnd * 5 + 1) = amp。 Private Sub Command2_Click() = Sum(A()) End Sub 第八章 過 程 22 【例 86】編寫函數(shù)過程求兩個(gè)數(shù)的最大公約數(shù)，通過調(diào)用該函數(shù)過程求三個(gè)數(shù)的最大公約數(shù)。 求 m除以 n的余數(shù) r Do While r 0 39。 將除數(shù) n作為被除數(shù) m n = r 39。 求 m除以 n的余數(shù) r Loop gcd = n End Function 代碼設(shè)計(jì)： 1）定義求兩個(gè)數(shù)的最大公約數(shù)的函數(shù)過程 : 第八章 過 程 24 Private Sub Command1_Click() Dim A As Integer, B As Integer, _ C As Integer Dim X As Integer, Y As Integer A = Val() B = Val() C = Val() X = gcd(A, B) Y = gcd(X, C) = Y End Sub 2） 在 Command1的 Click事件過程中調(diào)用函數(shù)過程 gcd求三個(gè)數(shù)的最大公約數(shù)。例如 6=3+3 8=3+5 10=3+7。 不能整除， I值累加 1 Else Exit Do 39。編寫窗體的 Click事件過程，調(diào)用該函數(shù)過程，實(shí)現(xiàn)在窗體上按指定的行數(shù)輸出如 下所示