Visual Basic程序設(shè)計(jì)應(yīng)用教程課件第6章 過(guò)程

第6章過(guò)程

VisualBasic程序是由過(guò)程組成的，使用過(guò)程是實(shí)現(xiàn)結(jié)構(gòu)化程序設(shè)計(jì)思想的重要方法。

結(jié)構(gòu)化程序設(shè)計(jì)思想的要點(diǎn)之一就是把一個(gè)較大的程序劃分為若干個(gè)模塊，每個(gè)模塊只完成一個(gè)或若干個(gè)功能。這些模塊可通過(guò)執(zhí)行一系列的語(yǔ)句來(lái)完成一個(gè)特定的操作，即被實(shí)現(xiàn)為過(guò)程。

第6章過(guò)程6.1過(guò)程的概念及引例6.2Sub過(guò)程6.3函數(shù)過(guò)程6.4Sub過(guò)程與函數(shù)過(guò)程應(yīng)用舉例6.5參數(shù)的傳遞6.6過(guò)程的嵌套與遞歸6.7變量和過(guò)程的作用域6.1過(guò)程的概念及引例6.1.1過(guò)程的概念6.1.2過(guò)程引例返回6.1.1過(guò)程的概念過(guò)程是為了完成一個(gè)特定的任務(wù)，由一組獨(dú)立的程序代碼組成。VisualBasic中根據(jù)是否有返回值，將過(guò)程分為：子過(guò)程(Sub過(guò)程),Sub過(guò)程又分為:事件過(guò)程是當(dāng)某個(gè)事件發(fā)生時(shí)，對(duì)該事件做出響應(yīng)的程序代碼段，它是應(yīng)用程序的主體。事件過(guò)程名及參數(shù)是由系統(tǒng)預(yù)先定義的，用戶只需編寫事件過(guò)程的內(nèi)容。通用過(guò)程是由用戶自定義的過(guò)程。如果多個(gè)不同的事件過(guò)程需要執(zhí)行一段相同的程序代碼，完成相同或相似的任務(wù)，為了避免程序代碼的重復(fù)以及方便程序的修改，可以把這一段代碼獨(dú)立出來(lái)，作為一個(gè)過(guò)程，這樣的過(guò)程稱為通用過(guò)程。函數(shù)過(guò)程(Function過(guò)程)。返回6.1.2過(guò)程引例【例6-1】Sub過(guò)程示例。編寫程序?qū)崿F(xiàn)計(jì)算5和8的階乘，界面如圖6-1所示。返回圖6-1過(guò)程引例6.2Sub過(guò)程6.2.1Sub過(guò)程的聲明及建立6.2.2Sub過(guò)程的調(diào)用返回6.2.1Sub過(guò)程的聲明及建立1.聲明格式如下：[Private|Public][Static]Sub<過(guò)程名>([參數(shù)表])過(guò)程體[ExitSub]EndSub說(shuō)明：(1)Private和Public用于限定過(guò)程的作用范圍，詳細(xì)見(jiàn)6.7節(jié)。如未指明，則默認(rèn)為Public。(2)Static表示該過(guò)程中的所有局部變量都是靜態(tài)變量。(3)過(guò)程名的命名規(guī)則與變量相同，注意過(guò)程名必須唯一。(4)參數(shù)表用于指明調(diào)用該Sub過(guò)程時(shí)需要傳遞給該過(guò)程的參數(shù)及類型。參數(shù)表內(nèi)的參數(shù)又稱為形式參數(shù)(簡(jiǎn)稱形參)。Sub過(guò)程可以定義零個(gè)或多個(gè)形參。沒(méi)有形參時(shí)小括號(hào)不能省略。有多個(gè)形參時(shí)，形參之間用逗號(hào)隔開(kāi)。Sub過(guò)程形參的語(yǔ)法格式如下：(形參數(shù)名1[As類型],形參數(shù)名2[As類型],…)形參的命名規(guī)則與變量相同。“As類型”用于指定形參的數(shù)據(jù)類型，如果省略則默認(rèn)為Variant型。(5)ExitSub用于在過(guò)程體中提前退出過(guò)程。6.2.1Sub過(guò)程的聲明及建立2.Sub過(guò)程的建立在模塊的通用段，根據(jù)Sub過(guò)程的語(yǔ)法規(guī)則聲明過(guò)程，并在過(guò)程體內(nèi)編寫過(guò)程需要完成任務(wù)的代碼。通過(guò)菜單命令“工具”->“添加過(guò)程”命令加入。

注意:在過(guò)程內(nèi)部，不能定義新的過(guò)程，只能調(diào)用過(guò)程。返回6.2.2Sub過(guò)程的調(diào)用1.使用Call語(yǔ)句格式：Call<過(guò)程名>(<實(shí)參表>])說(shuō)明：(1)當(dāng)用Call語(yǔ)句調(diào)用過(guò)程時(shí)，必須使用小括號(hào)把所有的實(shí)際參數(shù)(簡(jiǎn)稱實(shí)參)括起來(lái)。如果聲明Sub過(guò)程時(shí)沒(méi)有形參，則調(diào)用時(shí)括號(hào)內(nèi)無(wú)需實(shí)參，此時(shí)可把括號(hào)省略。(2)實(shí)參個(gè)數(shù)與形參個(gè)數(shù)必須相等，實(shí)參與對(duì)應(yīng)形參的數(shù)據(jù)類型應(yīng)該相容。6.2.2Sub過(guò)程的調(diào)用2.直接使用過(guò)程名格式：<過(guò)程名>[<實(shí)參表>]說(shuō)明：這種調(diào)用方式相當(dāng)于把過(guò)程名作為一個(gè)語(yǔ)句來(lái)使用。Sub過(guò)程舉例【例6-2】編寫一個(gè)Sub過(guò)程用于在窗體指定位置輸出符號(hào)“*”，并調(diào)用過(guò)程在鼠標(biāo)單擊位置輸出“*”。返回6.3函數(shù)過(guò)程

函數(shù)(Function)過(guò)程也是由獨(dú)立的程序段代碼組成，與Sub過(guò)程不同在于，函數(shù)過(guò)程具有返回值。聲明函數(shù)之后，便可以像調(diào)用VB內(nèi)部函數(shù)一樣調(diào)用，并可參與表達(dá)式運(yùn)算。

6.3.1函數(shù)過(guò)程的聲明及建立6.3.2函數(shù)過(guò)程的調(diào)用

返回6.3.1函數(shù)過(guò)程的聲明及建立函數(shù)過(guò)程的聲明格式如下:[Private|Public][Static]Function函數(shù)名([參數(shù)表])[As類型][函數(shù)體][<函數(shù)名>=<表達(dá)式>][ExitFunction]EndFunction注意：(1)聲明函數(shù)過(guò)程要指明數(shù)據(jù)類型，即返回值的數(shù)據(jù)類型，默認(rèn)為Variant型。(2)[<函數(shù)名>=<表達(dá)式>]中，<表達(dá)式>的值是函數(shù)返回的結(jié)果，通過(guò)賦值語(yǔ)句將值賦給<函數(shù)名>，該值就是函數(shù)過(guò)程的返回值。如果在函數(shù)過(guò)程中省略“[<函數(shù)名>=<表達(dá)式>]”，則該過(guò)程返回一個(gè)默認(rèn)值，其默認(rèn)值和函數(shù)聲明的數(shù)據(jù)類型相關(guān)，若為數(shù)值型函數(shù)過(guò)程返回0，若為字符串函數(shù)過(guò)程返回空字符串。返回6.3.2函數(shù)過(guò)程的調(diào)用1.直接使用函數(shù)名直接使用函數(shù)名的調(diào)用方法有兩種形式：(1)如果要獲得函數(shù)的返回值，一般按如下形式調(diào)用：被賦值對(duì)象=函數(shù)名(實(shí)際參數(shù)1，實(shí)際參數(shù)2，…)(2)如果放棄函數(shù)的返回值，一般按如下形式調(diào)用：函數(shù)名實(shí)際參數(shù)1，實(shí)際參數(shù)2，…6.3.2函數(shù)過(guò)程的調(diào)用2.使用Call語(yǔ)句調(diào)用格式如下，這種方法放棄了函數(shù)的返回值：Call函數(shù)名(參數(shù)1，參數(shù)2，…)舉例【例6-3】驗(yàn)證哥德巴赫猜想：任意一個(gè)大于2的偶數(shù)都可以表示成兩個(gè)素?cái)?shù)之和。編程將6~100之間的所有偶數(shù)表示為兩個(gè)素?cái)?shù)之和，結(jié)果顯示在列表框中。返回6.4Sub過(guò)程與函數(shù)過(guò)程應(yīng)用舉例6.4.1過(guò)程聲明注意事項(xiàng)6.4.2過(guò)程應(yīng)用舉例返回6.4.1過(guò)程聲明注意事項(xiàng)Sub過(guò)程和函數(shù)過(guò)程最根本的區(qū)別在于其是否具有返回值。由此決定了它們?cè)诙x和調(diào)用時(shí)有如下不同：

(1)定義時(shí)，函數(shù)過(guò)程具有返回值，因此定義時(shí)需要用As語(yǔ)句說(shuō)明函數(shù)過(guò)程的返回值類型，以及在代碼段中給函數(shù)名賦值。當(dāng)然VB也允許不說(shuō)明函數(shù)過(guò)程的返回值類型，此時(shí)函數(shù)過(guò)程返回值的類型變?yōu)槟J(rèn)的Variant，如果代碼段中沒(méi)有給變量名賦值的語(yǔ)句，則調(diào)用函數(shù)過(guò)程時(shí)的值為默認(rèn)值。而Sub過(guò)程由于無(wú)返回值，則定義時(shí)無(wú)需考慮這些問(wèn)題。

(2)在調(diào)用時(shí)，由于函數(shù)過(guò)程具有返回值，因此可以像變量一樣參與表達(dá)式運(yùn)算，但是Sub過(guò)程卻不可以。在定義過(guò)程時(shí)有如下問(wèn)題需要考慮：(1)如何確定選擇Sub過(guò)程還是函數(shù)過(guò)程實(shí)際上Sub過(guò)程和函數(shù)過(guò)程是可以互換的，但是通常為了簡(jiǎn)便，對(duì)于過(guò)程的程序段代碼有多個(gè)返回值(此處的返回值是指返回到調(diào)用此過(guò)程的主程序的值，相當(dāng)于程序段的輸出結(jié)果)，或者無(wú)返回值時(shí)定義為Sub過(guò)程，如果只有一個(gè)返回值時(shí)則定義為函數(shù)過(guò)程。(2)過(guò)程參數(shù)的確定過(guò)程是一個(gè)獨(dú)立的程序代碼，因此有輸入和輸出。而過(guò)程的參數(shù)則是由輸入和輸出決定的。聲明過(guò)程的參數(shù)時(shí)，根據(jù)過(guò)程實(shí)現(xiàn)的程序段決定需要幾個(gè)輸入值，幾個(gè)輸出值，根據(jù)其類型將這些值作為參數(shù)定義在過(guò)程頭即可，由于函數(shù)本身具有返回值，因此在聲明函數(shù)頭時(shí)，將其中一個(gè)輸出作為函數(shù)的返回值，其余作為參數(shù)。返回6.4.2過(guò)程應(yīng)用舉例【例6-4】五彩星空的模擬。編寫一個(gè)過(guò)程在窗體的隨機(jī)位置輸出n個(gè)隨機(jī)顏色的五角星，調(diào)用此過(guò)程實(shí)現(xiàn)靜態(tài)五彩天空以及閃爍五彩天空的模擬。圖6-4五彩天空模擬運(yùn)行結(jié)果6.4.2過(guò)程應(yīng)用舉例【例6-5】編寫一個(gè)計(jì)算n！的過(guò)程，并調(diào)用此過(guò)程計(jì)算2！+4！+6！+…+20!。圖6-5求階乘之和的運(yùn)行結(jié)果6.4.2過(guò)程應(yīng)用舉例【例6-6】編寫一個(gè)過(guò)程，判斷給出的三邊是否構(gòu)成三角形，如果構(gòu)成三角形則計(jì)算出三角形的面積。調(diào)用編寫的過(guò)程根據(jù)用戶輸入三邊計(jì)算三角形的面積，如果不構(gòu)成三角形，則給出提示。圖6-6求三角形面積的運(yùn)行結(jié)果返回6.5參數(shù)的傳遞6.5.1實(shí)參與形參6.5.2按值傳遞參數(shù)6.5.3按地址傳遞參數(shù)6.5.4參數(shù)傳遞應(yīng)用舉例6.5.5數(shù)組作為參數(shù)傳遞返回6.5.1實(shí)參與形參形式參數(shù)簡(jiǎn)稱形參，是指定義過(guò)程時(shí)在過(guò)程名后圓括號(hào)中出現(xiàn)的變量名，多個(gè)形參之間用逗號(hào)分割。實(shí)際參數(shù)簡(jiǎn)稱實(shí)參，是指在主程序中調(diào)用過(guò)程時(shí)在過(guò)程名后的參數(shù)，其作用是將它們的數(shù)據(jù)(值或地址)傳給被調(diào)用過(guò)程對(duì)應(yīng)的形參變量。實(shí)參可以是常量、變量、表達(dá)式、數(shù)組，各實(shí)參之間用逗號(hào)分隔。6.5.1實(shí)參與形參實(shí)參和形參的傳遞可以實(shí)現(xiàn)調(diào)用過(guò)程(主程序)和被調(diào)用過(guò)程(子程序)之間的信息交換。參數(shù)傳遞時(shí)是按位置傳遞，和參數(shù)名無(wú)關(guān)，要求參數(shù)個(gè)數(shù)相等、對(duì)應(yīng)位置參數(shù)數(shù)據(jù)類型相容。

調(diào)用過(guò)程：Area(3,4,5,sjx,mj)定義過(guò)程：Area(aAsSingle,bAsSingle,cAsSingle,flagAsBoolean,sAsSingle)實(shí)參表形參表返回6.5.2按值傳遞參數(shù)按值傳遞參數(shù)是指在過(guò)程被調(diào)用時(shí)，傳遞給形參的內(nèi)容是對(duì)應(yīng)實(shí)參的值。形參與實(shí)參各占用不同位置的存儲(chǔ)空間，被調(diào)用過(guò)程在執(zhí)行過(guò)程中，對(duì)形參變量值的改變不會(huì)影響調(diào)用過(guò)程對(duì)應(yīng)實(shí)參的值。通常為了保護(hù)實(shí)參不受被調(diào)用過(guò)程的影響，則選用按值傳遞參數(shù)方式。如果在聲明過(guò)程時(shí)，形式參數(shù)名前加上關(guān)鍵字“ByVal”，表示在調(diào)用該過(guò)程時(shí)，該參數(shù)是按值傳遞的。例如：

SubprintA(ByValaAsString)

……EndSub6.5.2按值傳遞參數(shù)【例6-7】閱讀下列程序，思考程序運(yùn)行后，單擊窗體，窗體上顯示什么內(nèi)容。體會(huì)按值傳遞參數(shù)時(shí)，形參值的改變不會(huì)影響實(shí)參。PrivateSubForm_Click()Dimx%x=10Print"調(diào)用add過(guò)程前x的值為："&xCalladd(x)Print"調(diào)用add過(guò)程后x的值為："&xEndSubSubadd(ByValn%)n=n+10 Print"在過(guò)程add中n的值為:"&nEndSub返回6.5.3按地址傳遞參數(shù)按地址傳遞參數(shù)是指在過(guò)程被調(diào)用時(shí)傳遞給形參的是對(duì)應(yīng)實(shí)參的內(nèi)存地址，即形參與實(shí)參使用相同地址的內(nèi)存單元。因此當(dāng)在被調(diào)用過(guò)程中對(duì)形參值的修改就等于修改了實(shí)參的值。按地址傳遞參數(shù)時(shí)實(shí)參傳遞給形參的是地址，由于不同類型數(shù)據(jù)占用的內(nèi)存單元字節(jié)數(shù)是不同的，因此實(shí)參與形參的數(shù)據(jù)類型應(yīng)相匹配。如果在聲明過(guò)程時(shí)，形式參數(shù)名前加上關(guān)鍵字“ByRef”，或者什么都不加，則表示在調(diào)用該過(guò)程時(shí)，該參數(shù)是按地址傳遞的。例如：

SubFac(ByRefnAsInteger，fAsDouble)

…… EndSub注意：并不是所有被關(guān)鍵字ByRef修飾的形參在過(guò)程被調(diào)用時(shí)一定是按地址傳遞參數(shù)，只有當(dāng)實(shí)參是變量或數(shù)組時(shí)才能按地址傳遞。如果實(shí)參是常量或表達(dá)式時(shí)，實(shí)際上是按值傳遞。6.5.3按地址傳遞參數(shù)【例6-8】閱讀下列程序，思考程序運(yùn)行后單擊窗體，窗體上顯示什么內(nèi)容。體會(huì)按地址傳遞參數(shù)時(shí)形參值的改變會(huì)影響實(shí)參的值。PrivateSubForm_Click()Dimx%x=10Print"調(diào)用add過(guò)程前x的值為："&xCalladd(x) Print"調(diào)用add過(guò)程后x的值為："&xEndSubSubadd(ByRefn%)n=n+10Print"在過(guò)程add中n的值為:"&nEndSub返回6.5.4參數(shù)傳遞應(yīng)用舉例【例6-9】編寫一個(gè)過(guò)程求一個(gè)字符串中“最長(zhǎng)的子串”和“最長(zhǎng)子串的長(zhǎng)度”。返回6.5.5數(shù)組作為參數(shù)傳遞在形參表中以數(shù)組名加圓括號(hào)表示，不要給出維數(shù)上界。多維數(shù)組，每維以逗號(hào)分隔。在過(guò)程中通過(guò)Ubound函數(shù)確定每維的上界。在實(shí)參表中給出數(shù)組名(可以省略圓括號(hào))。注意：數(shù)組作為參數(shù)傳遞時(shí)，傳遞方式是按地址傳遞，系統(tǒng)將實(shí)參數(shù)組的起始地址傳給過(guò)程，使形參數(shù)組也具有與實(shí)參數(shù)組相同的起始地址，因此數(shù)組作參數(shù)時(shí)是按地址傳遞參數(shù)的，不能使用關(guān)鍵字“ByVal”修飾形參。6.5.5數(shù)組作為參數(shù)傳遞【例6-10】編寫程序要求產(chǎn)生n個(gè)兩位隨機(jī)整數(shù)，并按指定方式排序。要求分別編寫一個(gè)產(chǎn)生n個(gè)兩位隨機(jī)整數(shù)和對(duì)n個(gè)數(shù)按指定方式進(jìn)行排序的過(guò)程。返回6.6過(guò)程的嵌套與遞歸6.6.1過(guò)程的嵌套6.6.2過(guò)程的遞歸

返回6.6.1過(guò)程的嵌套在一個(gè)過(guò)程中再調(diào)用另外一個(gè)過(guò)程，稱為過(guò)程的嵌套調(diào)用。在VisualBasic中允許過(guò)程的嵌套調(diào)用，但是不允許嵌套定義，即在一個(gè)過(guò)程里面不能定義另外一個(gè)過(guò)程。對(duì)于過(guò)程的嵌套調(diào)用首先要能理解其執(zhí)行過(guò)程。

圖6-12過(guò)程嵌套調(diào)用執(zhí)行流程舉例PrivateSubForm_Click()……CallsA…………EndSubSubsA()……CallsB…………EndSubSubsB()……CallsC…………EndSubSubsC()……………………EndSub⑴⑵⑶⑷⑸⑹⑺⑻⑼⑽⑾⑿⒀6.6.1過(guò)程的嵌套【例6-11】編寫程序求輸入整數(shù)m的所有組合數(shù)之和，即求

其中6.6.2過(guò)程的遞歸一個(gè)過(guò)程調(diào)用過(guò)程自身稱為過(guò)程的遞歸調(diào)用。若是直接地調(diào)用自身稱為直接遞歸調(diào)用，若是間接地調(diào)用自身稱為間接遞歸調(diào)用。過(guò)程的遞歸實(shí)際是一種特殊的過(guò)程嵌套。對(duì)于一些遞歸的定義，如下面階乘的定義，比較適合用遞歸調(diào)用的方法解決。返回6.6.2過(guò)程的遞歸【例6-12】用遞歸的方法求解n！。

Functionfac(n%)AsInteger Ifn>1Then

fac=n*fac(n-1) ElseIfn=1Then

fac=1 EndIfEndFunctionPrivateSubForm_Click() Dimf% Print"4!="&fac(4)EndSubn=4,fac(4)=4*fac(3) n=3,fac(3)=3*fac(2)n=2,fac(3)=2*fac(1)n=1,fac=1主程序fac(3)fac(2)fac(1)遞推回歸形參和局部變量返回地址圖6-14過(guò)程遞歸調(diào)用執(zhí)行流程演示6.6.2過(guò)程的遞歸【例6-13】用遞歸調(diào)用的方法求x2-a=0的解，要求精度為10-5，計(jì)算公式為：返回6.7變量和過(guò)程的作用域6.7.1VisualBasic應(yīng)用程序的組成及模塊6.7.2過(guò)程的作用域6.7.3變量作用域6.7.4變量生命周期與靜態(tài)變量返回6.7.1VisualBasic應(yīng)用程序組成及模塊應(yīng)用程序工程文件(.vbp)窗體模塊文件(.frm)類模塊文件(.cls)標(biāo)準(zhǔn)模塊文件(.bas)聲明部分事件過(guò)程函數(shù)過(guò)程Sub過(guò)程聲明部分SubMain過(guò)程函數(shù)過(guò)程Sub過(guò)程類的定義返回6.7.2過(guò)程的作用域作用域是指變量和過(guò)程的作用范圍。根據(jù)過(guò)程的作用域可：窗體/模塊級(jí)：在過(guò)程聲明前加Private關(guān)鍵字的過(guò)程，只能被定義的窗體或模塊中的過(guò)程調(diào)用。全局級(jí)：在過(guò)程聲明加Public關(guān)鍵字或缺省(什么都不加)的過(guò)程，可供該應(yīng)用程序的所有窗體和所有標(biāo)準(zhǔn)模塊中的過(guò)程調(diào)用。6.7.2過(guò)程的作用域作用范圍模塊級(jí)全局級(jí)窗體模塊標(biāo)準(zhǔn)模塊窗體模塊標(biāo)準(zhǔn)模塊聲明方式過(guò)程前加Private，例：PrivateSubM1(形參表)過(guò)程名前加Public或者缺省，例：PublicSubM2(形參表)是否能被本模塊的其它過(guò)程調(diào)用能能能能是否能被本應(yīng)用程序的其它模塊中的過(guò)程調(diào)用不能不能能，但必須在過(guò)程明前加窗體名，例：Call窗體名.M2(實(shí)參表)能，但在所有標(biāo)準(zhǔn)模塊中過(guò)程名必須唯一，否則要加標(biāo)準(zhǔn)模塊名，例：Call標(biāo)準(zhǔn)模塊名.M2(實(shí)參表)6.7.2過(guò)程的作用域【例6-14】過(guò)程作用域舉例。返回6.7.3變量作用域根據(jù)變量的作用范圍可分為：局部變量：在過(guò)程內(nèi)聲明的變量，只能在本過(guò)程中使用。窗體/模塊級(jí)變量：在“通用聲明”段中用Dim語(yǔ)句或用Private語(yǔ)句聲明的變量，可被本窗體/模塊的任何過(guò)程訪問(wèn)。全局變量：在“通用聲明”段中用Public語(yǔ)句聲明的變量，可被本應(yīng)用程序的任何過(guò)程訪問(wèn)。

6.7.3變量作用域作用范圍局部變量窗體/模塊級(jí)變量全局變量窗體標(biāo)準(zhǔn)模塊聲明位置過(guò)程內(nèi)部窗體/模塊“通用聲明”段窗體/模塊“通用聲明”段聲明方式Dim或StaticDim或PrivatePublic能否被本模塊的其它過(guò)程訪問(wèn)不能能能能否被其它模塊中的過(guò)程訪問(wèn)不能不能能，但要在變量明前加窗體名能6.7.3變量作用域【例6-15】變量作用域舉例。返回6.7.4變量生命周期與靜態(tài)變量變量的生命周期是指變量的作用時(shí)間，即為變量分配內(nèi)存空間到回收其內(nèi)存空間的這段時(shí)間。在