第6章 過程與函數(shù)

1、第第6章章 過程與函數(shù)過程與函數(shù)6.1過程概述過程概述在程序設(shè)計時，經(jīng)常要把一個大的任務(wù)劃分成若干個小的子任務(wù)，每個子任務(wù)完成一個相對獨立的功能。在Visual Basic中把這些子任務(wù)稱為過程。使用過程編程有如下優(yōu)點：（）采用“分而治之”的思想。（）引入“工程”的設(shè)計方法。 （）可以把設(shè)計好的模塊作為產(chǎn)品在Visual Basic中，模塊的具體體現(xiàn)為函數(shù)與過程。 6.1過程概述過程概述在Visual Basic中過程主要分為三種：子子過程過程、函數(shù)過程函數(shù)過程和屬性過程屬性過程，其中：子過程(Sub Procedure)：子過程是沒有返回值的函數(shù)。子過程一般用于接收或處理輸入數(shù)據(jù)、顯示輸出或

2、者設(shè)置屬性。 函數(shù)過程(Function Procedure)：函數(shù)過程用來完成特定的功能并返回相應(yīng)的結(jié)果。函數(shù)過程能夠接收參數(shù)，并且總是以該函數(shù)名返回一個值。6.1過程概述過程概述屬性過程(Property Procedure)：屬性過程用來創(chuàng)建和操作程序中用戶定義的屬性。它使能夠定制現(xiàn)有的Visual Basic控件，并通過創(chuàng)建新的對象、屬性和方法來擴展Visual Basic語言。 本章重點介紹Sub子過程和Function函數(shù)過程。6.2 Sub過程過程Sub過程可以放在標準模塊和窗體模塊中，Visual Basic的Sub過程分為事件過程和通用過程兩大類。（）事件過程是當(dāng)發(fā)生某個事件

3、時，對該事件做出響應(yīng)的程序段，它是Visual Basic應(yīng)用程序的主體。6.2 Sub過程過程（）通用過程有時多個不同的事件過程可能需要使用同一段程序代碼，為此，可將這段代碼獨立出來，編寫成一個共用的過程它獨立于事件過程之外，可供其他事件過程調(diào)用。6.2.1 事件過程事件過程通過前面的學(xué)習(xí)，我們知道Visual Basic采用事件驅(qū)動的編程機制事件驅(qū)動的編程機制（）事件事件是能被對象(窗體和控件)識別的動作。如對象的單擊(Click)事件、雙擊(DblClick)事件、內(nèi)容改變(Change)事件等等。（）事件過程事件過程是為一個事件所編寫的程序代碼。當(dāng)Visual Basic中的對象發(fā)生某

4、個事件時，便自動調(diào)用相應(yīng)的事件過程。6.2.1 事件過程事件過程根據(jù)對象的不同，事件過程又分為窗體事件過程和控件事件過程。1窗體事件過程窗體事件過程定義為“Form_事件名”，其格式為：Private Sub Form_ (參數(shù)表參數(shù)表)語句塊語句塊End Sub6.2.1 事件過程事件過程思考：下面代碼的功能？Private Sub Form_Click( )Me.BackColorVbRedEnd Sub6.2.1 事件過程事件過程2控件事件過程控件事件過程的定義是“控件名_事件名”，其格式為：Private Sub _ (參數(shù)表參數(shù)表)語句塊語句塊End Sub6.2.1 事件過程事件過

5、程思考：下面代碼的功能？Private Sub Command1_Click( )Text1.Text = Visual Basic程序設(shè)計End Sub6.2.1 事件過程事件過程3建立事件過程方法一：在設(shè)計窗體上雙擊窗體或控件，就打開了代碼編輯器窗口，并會出現(xiàn)該窗體或控件的默認過程代碼。例如：Private Sub Text1_Change()End Sub6.2.1 事件過程事件過程方法二：單擊工程資源管理器窗口的“查看代碼”按鈕，再從對象列表框中選擇一個對象，從過程列表框中選擇一個過程。6.2.2 通用過程通用過程事件過程只能針對某個具體的窗體或控件。而當(dāng)有多個窗體或控件的事件過程中需

6、要執(zhí)行某些相同的操作時，為了避免重復(fù)編寫代碼，可以把這些相同操作所對應(yīng)的代碼段拿出來定義一個通用過程。 通用過程通常完成指定的任務(wù)，通用過程不與任何特定的事件相聯(lián)系，只能由別的過程來調(diào)用，它可以存儲在窗體或標準模塊中。6.2.2 通用過程通用過程1通用過程的定義通用過程定義的語法格式為：Private|Public Static Sub (參數(shù)表參數(shù)表)語句塊語句塊1Exit Sub語句塊語句塊2End Sub6.2.2 通用過程通用過程說明：(3) 子過程名：命名規(guī)則與變量名規(guī)則相同。子過程名不返回值，而是通過形參與實參的傳遞得到結(jié)果，調(diào)用時可返回多個值。 (4) 參數(shù)的定義形式：參數(shù)的定義

7、形式：ByValByRef變量名變量名( )As 類型類型,，ByVal表示當(dāng)該過程被調(diào)用時，參數(shù)是按值傳遞的；缺省ByRef表示當(dāng)該過程被調(diào)用時，參數(shù)是按地址傳遞的。 6.2.2 通用過程通用過程例如，編寫全局Sub過程計算n!。Public Sub Fact(n As Integer, F As Double) Fact為過程名，參數(shù)F用于返回階乘值 Dim i As Integer F = 1 For i = 1 To n F = F * i Next iEnd Sub6.2.2 通用過程通用過程2通用Sub過程的建立建立通用過程有兩種方法：直接在代碼編輯窗口中輸入過程代碼或使用添加過程

8、對話框。方法一：通過添加過程對話框建立。 方法二：在代碼窗口的“對象”下拉列表中選擇“通用”，輸入過程名。 6.2.3 過程的調(diào)用過程的調(diào)用1通用事件過程的調(diào)用通用過程的調(diào)用有兩種方式：Call (參數(shù)表參數(shù)表)和 參數(shù)表參數(shù)表例如，調(diào)用上面定義的Fact子過程的形式：Call Fact(a,b) 和 Fact a，b參數(shù)表：在調(diào)用語句中的參數(shù)稱為實際參數(shù)(簡稱實參)，實參可以是變量、常數(shù)、數(shù)組和表達式。參數(shù)與參數(shù)之間要用逗號隔開。6.2.3 過程的調(diào)用過程的調(diào)用2事件過程的調(diào)用事件過程的調(diào)用一般是由事件觸發(fā)而引起，如單擊按鈕、窗體加載等，也可以通過像通用過程那樣通過Call或過程名直接調(diào)用。

9、6.2.3 過程的調(diào)用過程的調(diào)用例如，可以在窗體的雙擊事件過程內(nèi)部調(diào)用Text1的Change事件過程。Private Sub Form_Click() Call Text1_ChangeEnd Sub程序運行后，單擊窗體等同于執(zhí)行Text1的Change事件。子過程舉例，不帶參數(shù)子過程舉例，不帶參數(shù)例：例：單擊按鈕1，2，3，分別在窗體上打印3個*，5個#。方法方法1：使用我們已學(xué)過的方法：使用我們已學(xué)過的方法Private Sub Command1_Click() Print String(3, *) Print String(5, #)End SubPrivate Sub Command

10、2_Click()同上End Sub Private Sub Command3_Click()同上End Sub缺點缺點：多次輸入相同代多次輸入相同代碼，冗余大，效碼，冗余大，效率低率低改進改進：相同代碼只寫一相同代碼只寫一次，運行時多次次，運行時多次調(diào)用調(diào)用方法2：使用子過程實現(xiàn)Private Sub Command1_Click() Call prtEnd SubPrivate Sub Command2_Click()Call prtEnd SubPrivate Sub Command3_Click()Call prtEnd SubSub prt() Print String(3, *)

11、Print String(5, #)End Sub 添加子過程的方法：添加子過程的方法： 1.插入點在所有過程之外插入點在所有過程之外 2.工具工具-添加過程添加過程n例：單擊按鈕1，2，3，分別在窗體上打印 3個*,5個#；4個*,6個#；5個*,7個#.n方法： 使用帶參數(shù)子過程子過程舉例，帶參數(shù)子過程舉例，帶參數(shù)Private Sub Command1_Click() Call prt(3, 5)End SubPrivate Sub Command2_Click() Call prt(4, 6)End SubPrivate Sub Command3_Click() Call prt(5,

12、 7)End SubSub prt(x%, y%) Print String(x, *) Print String(y, #)End Sub實參形參子過程舉例，帶參數(shù)帶返回值子過程舉例，帶參數(shù)帶返回值n 利用子過程計算任意2個數(shù)的和，要求在主調(diào)過程中輸入2個數(shù)，在子過程中計算和并返回給主調(diào)函數(shù)。n代碼：Private Sub Command1_Click()Dim a!, b!, s!a = Val(InputBox(請輸入數(shù)a：)b = Val(InputBox(請輸入數(shù)b：)Call sum(a, b, s)Print a+b=; sEnd SubSub sum(x!, y!, z!) z

13、 = x + yEnd Sub6.2.3 過程的調(diào)用過程的調(diào)用【例6-1】求S=7!+8!+5!的值。圖6-2 計算階乘法結(jié)果6.2.3 過程的調(diào)用過程的調(diào)用【例6-2】編寫一個Sub過程，計算N個數(shù)的和，即1+2+N，并通過命令按鈕的單擊事件調(diào)用該過程計算S=1+(1+2)+(1+2+3)+(1+2+3+K)。圖6-3 例8-2程序運行界面6.3 Function過程過程與Sub過程不同的是，F(xiàn)unction過程可返回一個值到調(diào)用的過程。Function過程的格式為：Private | Public Static Function (參數(shù)表參數(shù)表) As 語句塊語句塊 函數(shù)名函數(shù)名=表達式表

14、達式 Exit Function 語句塊語句塊 函數(shù)名函數(shù)名=表達式表達式End Function6.3 Function過程過程(3) 函數(shù)過程通過函數(shù)過程名函數(shù)過程名返回其值，因此函數(shù)過程名是有類型的，其類型在Function語句中用As加以定義，可以定義為Integer、Long、Single、Double、 Boolean或String。若缺省了As語句，則函數(shù)過程名的類型為Variant。6.3 Function過程過程(4) 在函數(shù)過程結(jié)束前，函數(shù)過程名必須被賦予一個值作為函數(shù)的返回值，通過賦值語句=來實現(xiàn)，如果在函數(shù)體中沒有該賦值語句，函數(shù)過程將返回一個默認值：數(shù)值函數(shù)過程返回0

15、，字符串函數(shù)過程返回一個空串。6.3 Function過程過程例如：求N的階乘的算法用Function過程表示如下：Function Fact (N As Integer) As Long Dim i As Integer, T As Long T=1 For i=1 To N T=T*i Next i Fact=T 由函數(shù)過程名Fact返回階乘值End Function6.3.2 Function過程的調(diào)用過程的調(diào)用 調(diào)用函數(shù)Function過程的方法和調(diào)用Visual Basic內(nèi)部函數(shù)方法一樣，在語句中直接使用函數(shù)名，F(xiàn)unction過程可返回一個值到調(diào)用的過程。其語法格式為： 函數(shù)名函

16、數(shù)名(實參列表實參列表) 例如，下面的代碼調(diào)用了計算階乘的例如，下面的代碼調(diào)用了計算階乘的Function過程：過程：Text1.Text = Fact(7) 計算計算7的階乘的階乘例例6-36.4 過程中參數(shù)的傳遞6.4.1 形式參數(shù)和實際參數(shù)形式參數(shù)和實際參數(shù)1形式參數(shù)(形參) 在被調(diào)用過程中的參數(shù)稱為形式參數(shù)，簡稱為形參，出現(xiàn)在Sub過程和Function過程中。 例如：Private Sub Swap( x As Integer, y As Integer) 其中x，y即為形參。6.4.1 形式參數(shù)和實際參數(shù)形式參數(shù)和實際參數(shù)2實際參數(shù)(實參) 在主調(diào)過程中的參數(shù)稱為實際參數(shù)，簡稱為實

17、參，在過程調(diào)用時實參將數(shù)據(jù)傳遞給形參。 實參表可由常量、表達式、有效的變量名、數(shù)組名組成，實參表中各參數(shù)用逗號分隔。在調(diào)用過程時，實參和形參的數(shù)據(jù)類型、位置、個數(shù)必須一一對應(yīng)。 例如：Call Swap(a,b)6.4.1 形式參數(shù)和實際參數(shù)形式參數(shù)和實際參數(shù)定義過程：sub Swap( x As Integer, y As Integer)調(diào)用過程：Call Swap( a, b) 圖6-5 實參和形參的對應(yīng)關(guān)系6.4.2 參數(shù)的傳遞方式參數(shù)的傳遞方式 參數(shù)傳遞是指主調(diào)過程的實參(調(diào)用時已有確定值和內(nèi)存地址的參數(shù))傳遞給被調(diào)過程的形參。 參數(shù)的傳遞有兩種方式：按值傳遞和按地址傳遞。形參前加“

18、ByVal”關(guān)鍵字的是按值傳遞；缺省或加“ByRef”關(guān)鍵字的為按地址傳遞。 6.4.2 參數(shù)的傳遞方式參數(shù)的傳遞方式 按值傳遞參數(shù)時，Visual Basic給傳遞的形參分配一個臨時的內(nèi)存單元，將實參的值傳遞到這個臨時單元去。實參向形參傳遞是單向的，如果在被調(diào)用的過程中改變了形參值，則只是臨時單元的值變動，不會影響實參變量本身。 6.4.2 參數(shù)的傳遞方式參數(shù)的傳遞方式【例6-4】通過Swap1過程交換形參，要求交換的結(jié)果不能影響實參。圖6-6 按值傳遞運行界面6.4.2 參數(shù)的傳遞方式參數(shù)的傳遞方式2按地址傳遞參數(shù) 按地址傳遞參數(shù)，是指把形參變量的內(nèi)存地址傳遞給被調(diào)用過程，形參和實參具有相

19、同的地址，即形參、實參共享一段存儲單元。因此，在被調(diào)過程中改變形參的值，則相應(yīng)實參的值也被改變。 6.4.2 參數(shù)的傳遞方式參數(shù)的傳遞方式【例6-5】通過Swap2過程交換形參，要求實參與形參同步變化。圖6-8 按地址傳遞運行界面?zhèn)髦放c傳值傳址與傳值n傳值 與 傳址10ax10 x的改變與a無關(guān)10axx與a共享存儲單元，x變a也變實參與形參舉例：交換兩數(shù) 6.5.vbpn傳值法：Sub sw1(ByVal x%, ByVal y%) Dim t% t = x: x = y: y = tEnd Subn傳址法：Sub sw2(ByRef x%, ByRef y%) Dim t% t = x:

20、x = y: y = tEnd Sub主調(diào)過程：Sub Command1_Click() Dim a%, b% a = 10 b = 20 Print 原始值:a=; a;b=; b Call sw1(a, b) Print 1交換后:a=; a; b=; b Call sw2(a, b) Print 2交換后:a=; a; b=; bEnd Sub10a20bxy1020 xyab1020ByVal 傳值傳值ByRef 傳地址傳地址形參獲得實參的值形參獲得實參的值形參獲得實參的地址形參獲得實參的地址實參與形參舉例：交換兩數(shù)實參為ab，形參為xy6.4.3 數(shù)組參數(shù)的傳遞方式數(shù)組參數(shù)的傳遞方式

21、 Visual Basic允許在定義過程時，數(shù)組可以作為形參出現(xiàn)在過程的形參列表中。數(shù)組作參數(shù)是通過傳地址方式傳送。在傳送數(shù)組時，除遵守參數(shù)傳送的一般規(guī)則外，還應(yīng)注意以下幾點：6.4.3 數(shù)組參數(shù)的傳遞方式數(shù)組參數(shù)的傳遞方式(1) 為了把一個數(shù)組的全部元素傳送給一個過程，應(yīng)將數(shù)組名分別寫入形參表中，并略去數(shù)組的上下界，但括號不能省略。如：Private Sub Sort( a() As single) End Sub6.4.3 數(shù)組參數(shù)的傳遞方式數(shù)組參數(shù)的傳遞方式(3) 當(dāng)用數(shù)組作形參時，對應(yīng)的實參必須也是數(shù)組，且類型一致。(4) 實參和形參結(jié)合是按地址傳遞，即形參數(shù)組和實參數(shù)組共用一段內(nèi)存單

22、元。例如，定義了實參數(shù)組b(1 to 8)，給它們賦了值，調(diào)用Sort()函數(shù)過程的形式如下：Sort b() 或 Call Sort(b() ) 6.4.3 數(shù)組參數(shù)的傳遞方式數(shù)組參數(shù)的傳遞方式(5) 在被調(diào)用過程中不能用Dim語句對形參數(shù)組聲明，否則會產(chǎn)生“重復(fù)聲明”的編譯錯誤。但是在使用動態(tài)數(shù)組時，可以用Redim語句改變形參數(shù)組的維數(shù)，重新定義數(shù)組的大小。當(dāng)返回調(diào)用過程時，對應(yīng)的實參數(shù)組的維數(shù)也隨之發(fā)生變化。6.4.3 數(shù)組參數(shù)的傳遞方式數(shù)組參數(shù)的傳遞方式【例6-6】請定義一個通用過程，實現(xiàn)對數(shù)據(jù)的升序排序，采用冒泡法排序。求求數(shù)數(shù)組組的的最最大大值值6.5 過程的嵌套與遞歸過程的嵌套

23、與遞歸 在一個過程(Sub過程或Function過程)中調(diào)用另外一個過程，稱為過程的嵌套調(diào)嵌套調(diào)用用，而過程直接或間接地調(diào)用自身，則稱為過程的遞歸調(diào)用遞歸調(diào)用。6.5.1 過程的嵌套過程的嵌套 VB在定義過程時，不能嵌套定義過程，但可以嵌套地調(diào)用過程，即被主程序調(diào)用的過程還可以調(diào)用另外的過程，這種程序結(jié)構(gòu)稱為過程的嵌套。6.5.1 過程的嵌套過程的嵌套 圖6-14 程序運行界面)!( !mnmnCmn【例6-10】利用函數(shù)嵌套求C(m,n)的值。6.5.1 過程的嵌套過程的嵌套【例6-10】利用函數(shù)嵌套求C(m,n)的值。主程序 Command1 .調(diào)用 Comb .End Sub被 調(diào) 程

24、序 Comb.調(diào)用 Fact.End Sub被 調(diào) 程 序 Fact.End Sub6.5.2 過程的遞歸過程的遞歸 在Visual Basic中，一個過程可以直接或間接地調(diào)用自身，前者稱為直接遞歸調(diào)用，后者稱為間接遞歸調(diào)用。 遞歸必須有相應(yīng)的結(jié)束遞歸的條件，否則遞歸將不能結(jié)束，我們稱這種遞歸為有窮遞歸。6.5.2 過程的遞歸過程的遞歸1直接遞歸 直接遞歸就是在過程體內(nèi)出現(xiàn)直接調(diào)用自身的過程。如下面定義的Direct過程。 Function A(n As Integer) S = A(m) End Function6.5.2 過程的遞歸過程的遞歸Function S1(n As Integer

25、)x = S2(m)End FunctionFunction S2(m As Integer)y = S1(n)End Function2間接遞歸 間接遞歸就是在過程體內(nèi)出現(xiàn)間接調(diào)用自身的過程。如下面定義的S1和S2過程。6.5.2 過程的遞歸過程的遞歸【例6-11】利用遞歸調(diào)用計算N!。圖6-15 求n！運行界面6.6 .1 變量的作用范圍變量的作用范圍 變量的作用范圍是指程序所定義的變量能有效發(fā)揮其作用的范圍。根據(jù)定義變量的位置和定義變量的語句的不同，在Visual Basic中變量可以分為過程級變量、模塊級過程級變量、模塊級變量和全局變量。變量和全局變量。6.6 .1 變量的作用范圍變量

26、的作用范圍1過程級變量 在一個過程內(nèi)部使用Dim或Static關(guān)鍵字聲明變量時，只有該過程內(nèi)部的代碼才能只有該過程內(nèi)部的代碼才能訪問或改變該變量的值，因此被稱為過程訪問或改變該變量的值，因此被稱為過程級變量。級變量。過程級變量的作用范圍限制在該過程內(nèi)部，也稱為局部變量。例如： Dim a As Integer, x As Single Static sum As Single6.6 .1 變量的作用范圍變量的作用范圍 過程級變量根據(jù)其生存期的不同又分為動態(tài)變量和靜態(tài)變量。(1)動態(tài)變量的生存期為過程的一次調(diào)用期間。用Dim聲明的變量屬于動態(tài)變量。在過程內(nèi)未經(jīng)顯式聲明而直接使用的變量也是動態(tài)變量

27、。 6.6 .1 變量的作用范圍變量的作用范圍(2)靜態(tài)變量的生存期為整個應(yīng)用程序的執(zhí)行期間。用 Static 聲明的變量屬于靜態(tài)變量。靜態(tài)變量在應(yīng)用程序執(zhí)行期間占據(jù)固定的內(nèi)存單元，當(dāng)靜態(tài)變量所在的過程執(zhí)行結(jié)束后，該變量不釋放內(nèi)存空間，變量的值保持不變。若該過程又被調(diào)用時，接著使用上次的值。6.6 .1 變量的作用范圍變量的作用范圍【例6-13】測試在過程內(nèi)部使用Dim和Satic定義變量的不同。Private Sub Form_Click() Dim A1 As IntegerStatic A2 As Integer A1=A1+1 A2=A2+1 End Sub 6.6 .1 變量的作用范

28、圍變量的作用范圍2模塊級變量 模塊級變量是指在一個模塊內(nèi)所有的過程一個模塊內(nèi)所有的過程都可使用它都可使用它，但在其他的模塊內(nèi)則無法訪問或改變其值的變量?？稍诖绑w模塊和標準模塊頂部用Dim或Private關(guān)鍵字聲明模塊級變量，如圖6-18所示。6.6 .1 變量的作用范圍變量的作用范圍3全局變量 全局變量的作用范圍可以是應(yīng)用程序的所應(yīng)用程序的所有過程，也稱為公用變量有過程，也稱為公用變量。聲明的方法是在窗體或標準模塊的通用部分中使用Public關(guān)鍵字聲明變量。例如： Public a As Integer, b As Single6.6.2 過程的作用范圍過程的作用范圍 在Visual Basi

29、c中，過程的作用范圍分為模塊級(或稱文件級)和全局級(或稱工程級)。(1)模塊級過程模塊級過程 是在某個模塊內(nèi)定義的過程。如果在Sub或Function過程前加Private，則該過程只能被本模塊中定義的過程調(diào)用，即其作用范圍為本模塊。6.6.2 過程的作用范圍過程的作用范圍(2) 全局級過程全局級過程 是定義過程時，在Sub或Function前加關(guān)鍵字Public(系統(tǒng)默認為Public)。全局級過程可被整個應(yīng)用程序的所有模塊中定義的過程調(diào)用，即其作用范圍是整個應(yīng)用程序(工程)。 6.6.2 過程的作用范圍過程的作用范圍1. 調(diào)用窗體中的過程 所有窗體模塊的外部調(diào)用必須指向包含此過程的窗體模塊，其格式為： Call 窗體名窗體名.全局過程名全局過程名(實參表實參表)例如，在窗體Form2中定義一個全局過程Sub1，在窗體Form1中調(diào)用Form2中的Sub1過程的語句為： Call Form2.Sub1(實參表實參表)6.6.2 過程的作用范圍過程的作用范圍2調(diào)用標準模塊中的過程 如果過程名是唯一的，則不必在調(diào)用時加模塊名。如果有兩個以上的模塊包含同名的過程，則調(diào)用本模塊內(nèi)過程時不必加模塊名，