第六章 過 程教材

1第六章過程

6.1函數(shù)過程的定義與調(diào)用6.2子過程的定義與調(diào)用6.3參數(shù)傳遞6.4遞歸6.5綜合應(yīng)用

本章目錄2過程的引入:

使同類的操作不重復(fù)編寫，寫一次多次用把一項(xiàng)復(fù)雜的工作分成簡(jiǎn)單的功能塊,分而治之過程:完成一段獨(dú)立功能，可供其他過程使用(調(diào)用)。調(diào)用過程:調(diào)用其他過程的過程調(diào)用過程:調(diào)用Sprg1調(diào)用Sprg1調(diào)用Sprg2子過程:Sprg1子過程:Sprg23常用過程分類:Sub過程Function過程事件過程自定義子過程

內(nèi)部函數(shù)(標(biāo)準(zhǔn)函數(shù)）自定義函數(shù)過程1）過程是一段程序代碼，是相對(duì)獨(dú)立的邏輯模塊。2）一個(gè)完整的VB應(yīng)用程序由若干過程和模塊組成。本節(jié)主要介紹用戶自定義的Sub子過程：完成一定的操作和功能，無返回值。Function函數(shù)過程：完成一定的操作和功能，并且可將數(shù)據(jù)處理的結(jié)果返回。46.1函數(shù)過程的定義和調(diào)用6.1.1引例6.1已知多邊形各條邊的長度，計(jì)算多邊形的面積。計(jì)算多邊形面積，可將多邊形分解成若干個(gè)三角形。計(jì)算三角形面積的公式如下：本章目錄56.1.1引例定義函數(shù)過程areaFunctionarea(x!,y!,z!)AsSingleDimc!c=1/2*(x+y+z)area=Sqrt(c*(c-x)*(c-y)*(c-z))EndFunctionSubcommand1_click()

…輸入若干個(gè)三角形邊長

S=area(a,b,c)+area(c,d,e)+area(e,f,g)msgbox(“面積=”&S)EndSub調(diào)用函數(shù)過程本章目錄66.1.2函數(shù)過程的定義

在窗體、模塊等的代碼窗口把插入點(diǎn)放在所有現(xiàn)有過程之外，直接輸入函數(shù)過程。定義函數(shù)過程的形式如下：[Public|Private]

Function函數(shù)過程(形參)[As類型]

變量聲明語句塊

Return表達(dá)式或函數(shù)名=表達(dá)式EndFunction本章目錄7Public全局函數(shù)過程，可被程序任何模塊調(diào)用Private僅供本模塊中的其它過程調(diào)用形參(或稱啞元)只能是變量或數(shù)組名(),僅表示參數(shù)的個(gè)數(shù)、類型，無值。例6.2編一求最大公約數(shù)的函數(shù)過程

Functiongcd(m%,n%)AsIntegerDimr%Ifm<nThent=m:m=n:n=tr=mmodnDowhiler<>0m=n：n=r:r=mModn

Loopgcd=nEndFunction本章目錄86.1.3函數(shù)過程的調(diào)用調(diào)用形式：函數(shù)過程名([參數(shù)列表])參數(shù)列表(稱為實(shí)參或?qū)嵲?：必須與形參個(gè)數(shù)相同，位置與類型一一對(duì)應(yīng)。可以是同類型的常量、變量、表達(dá)式。

SubForm1_Click(……)HandlesMyBase.ClickDimx%,y%,z%x=124:y=24z=gcd(x,y)MsgBox("最大公約數(shù)是"&z)EndSub

程序運(yùn)行流程

SubForm1_Click(……)HandlesMyBase.ClickDimx%,y%,z%x=124:y=24z=gcd(x,y)

Functiongcd(m%,n%)AsIntegerDimr%Ifm<nThent=m:m=n:n=tr=mmodnDowhiler<>0m=n：n=r:r=mModnLoopgcd=nEndFunctionMsgBox("最大公約數(shù)是"&z)EndSub本章目錄調(diào)用演示9函數(shù)過程的調(diào)用例6.3編一函數(shù)，統(tǒng)計(jì)字符串中漢字的個(gè)數(shù)。分析：在VB.NET中，字符以Unicode碼存放，每個(gè)漢字和英文是一個(gè)字符、占有兩個(gè)字節(jié)，區(qū)別是漢字的機(jī)內(nèi)碼最高位為1，若利用Asc函數(shù)求其碼值為小于0（以補(bǔ)碼表示），而西文字符的最高位為0，Asc函數(shù)求其碼值為大于0本章目錄代碼說明106.2子過程的定義與調(diào)用6.2.1引例以下情況使用函數(shù)過程存在不便：不是為了獲得某個(gè)函數(shù)值，而是為了某種功能的處理。要獲得多個(gè)結(jié)果。VB.NET中提供了使用更靈活的子過程。例6.4編一過程，對(duì)Label1控件進(jìn)行移動(dòng)，通過參數(shù)Tag的值（1或-1）決定移動(dòng)方向。該過程不是為了計(jì)算獲得某個(gè)結(jié)果，而是進(jìn)行對(duì)控件移動(dòng)的處理。本章目錄代碼說明116.2.2子過程的定義子過程定義的方法同函數(shù)過程，形式如下：Sub子過程名[(參數(shù)列表)]

局部變量或常數(shù)定義語句

[ExitSub]

語句EndSub子過程名、形參同函數(shù)過程中對(duì)應(yīng)項(xiàng)的規(guī)定，當(dāng)無形參時(shí)不要括號(hào)。本章目錄12子過程與函數(shù)過程的區(qū)別

把某功能定義為函數(shù)過程還是子過程，沒有嚴(yán)格的規(guī)定。一般若程序有一個(gè)返回值時(shí)，函數(shù)過程直觀；當(dāng)有多個(gè)返回值時(shí)，習(xí)慣用子過程。函數(shù)過程必須有返回值，函數(shù)名有類型。子過程名沒有值，過程名沒有類型，不能在子過程體內(nèi)對(duì)子過程名賦值。

本章目錄13參數(shù)問題形參是過程與主調(diào)程序交互的接口，從主調(diào)程序獲得初值，或?qū)⒂?jì)算結(jié)果返回給主調(diào)程序。不要將過程中所有使用過的變量均作為形參。例6.5找定冠詞的ＰrocThe子過程形參沒有具體的值，只代表了參數(shù)的個(gè)數(shù)、位置、類型；只能是簡(jiǎn)單變量、數(shù)組名，不能是常量、數(shù)組元素、表達(dá)式。

本章目錄14子過程的調(diào)用是一句獨(dú)立的調(diào)用語句，有兩種形式：

Call子過程名[(實(shí)參列表)]

子過程名

([實(shí)參列表])用Call關(guān)鍵字時(shí)，若有實(shí)參，則實(shí)參必須用圓括號(hào)括起，無實(shí)參圓括號(hào)省略注意：若實(shí)參要獲得子過程的返回值，則實(shí)參只能是變量(與形參同類型的簡(jiǎn)單變量、數(shù)組名、結(jié)構(gòu)類型)，不能是常量、表達(dá)式，也不能是控件名。

6.2.3子過程調(diào)用本章目錄15例6.5分別編一統(tǒng)計(jì)字符串S中定冠詞The出現(xiàn)個(gè)數(shù)的子過程和函數(shù)過程，并分別調(diào)用。處理方法：利用InStr函數(shù)反復(fù)在字符串S找The子串。6.2.3子過程調(diào)用本章目錄代碼說明Ifyoucan'tfindtheanswersyouneedintheproductist16例6.5分別編一統(tǒng)計(jì)字符串S中定冠詞The出現(xiàn)個(gè)數(shù)的子過程和函數(shù)過程，并分別調(diào)用。處理方法：利用InStr函數(shù)反復(fù)在字符串St找The子串。分析：6.2.3子過程調(diào)用本章目錄Ifyoucan'tfindtheanswersyouneedintheproductiSt17例6.5分別編一統(tǒng)計(jì)字符串S中定冠詞The出現(xiàn)個(gè)數(shù)的子過程和函數(shù)過程，并分別調(diào)用。處理方法：利用InStr函數(shù)反復(fù)在字符串S找The子串。對(duì)同一問題定義兩種過程時(shí)，只要抓住函數(shù)過程和子過程的區(qū)別，即函數(shù)名有一個(gè)值、子過程名無值的特點(diǎn)。當(dāng)定義好函數(shù)過程后，要改為子過程，只要將函數(shù)過程的返回結(jié)果作為子過程的形參，即在子過程中增加一個(gè)參數(shù)；反之也然。

6.2.3子過程調(diào)用本章目錄代碼說明18兩種過程使用的區(qū)別:

函數(shù)名有一個(gè)值、子過程名無值要將函數(shù)過程改為子過程:

將函數(shù)過程的返回結(jié)果作為子過程的一個(gè)形參本章目錄196.3參數(shù)傳遞6.3.1形參與實(shí)參在參數(shù)傳遞中，一般是按位置傳送，按實(shí)參的位置次序與形參的位置次序?qū)?yīng)傳送，與參數(shù)名沒有關(guān)系。按位置傳送是最常用的參數(shù)傳遞方法，如在調(diào)用標(biāo)準(zhǔn)函數(shù)時(shí)，用戶根本不知道形參名，只要關(guān)心形參的個(gè)數(shù)、類型、位置，例如Mid函數(shù)形式：

Mid(字符串$，起始位%，取幾位%)調(diào)用語句：s=Mid("ThisisVB.NET"，9，2)則s中的結(jié)果為“VB”。若:s=Mid(9,“ThisisVB.NET”，2)則錯(cuò)誤本章目錄206.3.2傳址與傳值實(shí)參與形參的結(jié)合有傳址(ByRef,默認(rèn))和傳值(ByVal)兩種方法。傳址方式參數(shù)結(jié)合過程當(dāng)調(diào)用一個(gè)過程時(shí)，它將實(shí)參的地址傳遞給形參。因此在被調(diào)過程體中對(duì)形參的任何操作都變成了對(duì)相應(yīng)實(shí)參的操作，實(shí)參的值就會(huì)隨過程體內(nèi)對(duì)形參的改變而改變。傳值方式參數(shù)結(jié)合過程當(dāng)調(diào)用一個(gè)過程時(shí)，系統(tǒng)將實(shí)參的值復(fù)制給形參，實(shí)參與形參斷開了聯(lián)系。在過程體內(nèi)對(duì)形參的任何操作不會(huì)影響到實(shí)參。本章目錄21例6.7傳址與傳值本章目錄形參獲得實(shí)參的值形參獲得實(shí)參的地址22傳址與傳值選用傳值還是傳地址一般進(jìn)行如下考慮：要將被調(diào)過程中的結(jié)果返回給主調(diào)程序，則形參必須是傳址方式。這時(shí)實(shí)參必須是同類型的變量名(包括簡(jiǎn)單變量、數(shù)組名、結(jié)構(gòu)類型等)，不能是常量、表達(dá)式。不希望過程修改實(shí)參的值，則應(yīng)選用傳值方式，減少各過程間的關(guān)聯(lián)。因?yàn)樵谶^程體內(nèi)對(duì)形參的改變不會(huì)影響實(shí)參。形參是數(shù)組都是地址傳遞(可表示值傳遞或地址傳遞)。本章目錄23例6.8如下sum子過程求數(shù)組a各元素和、并改變數(shù)組各元素值：Functionsum%(ByValx()As

Integer)Dimi%sum=0Fori=0ToUBound(x)sum+=x(i)：x(i)=2*x(i)NextiEnd

Function6.3.3數(shù)組參數(shù)的傳遞本章目錄24形參是數(shù)組要以數(shù)組名加圓括號(hào)表示，不要給出維數(shù)上界；多維數(shù)組，每維以逗號(hào)分隔。在過程中通過Ubound函數(shù)確定每維的上界。實(shí)參是數(shù)組要給出數(shù)組名(不需要圓括號(hào))。當(dāng)數(shù)組作為參數(shù)傳遞時(shí)，系統(tǒng)將實(shí)參數(shù)組的起始地址傳給過程，使形參數(shù)組也具有與實(shí)參數(shù)組相同的起始地址。

數(shù)組參數(shù)的傳遞13579形參數(shù)組實(shí)參數(shù)組本章目錄256.3.4變量的作用域塊變量

在控制結(jié)構(gòu)塊中聲明的變量，只能在 本塊內(nèi)有效過程級(jí)變量

在一個(gè)過程內(nèi)用Dim或Static語句 聲明的變量，只能在本過程中使用模塊級(jí)變量

在模塊內(nèi)、任何過程外用Dim、Private語句聲明的變量，可被本模塊的任何過程訪問全局變量

在模塊級(jí)用Public語句聲明的變量，可被應(yīng)用程序的任何過程或函數(shù)訪問

本章目錄26變量的作用域例如在下面一個(gè)標(biāo)準(zhǔn)模塊文件中不同級(jí)的變量聲明：

PublicPaAsinteger '全局變量

PrivateMbAsstring*10'窗體/模塊級(jí)變量

SubF1()DimFaAsinteger ‘過程級(jí)變量

…EndSubSubF2()DimFbAsSingle ‘過程級(jí)變量

Fori=1to10Dimk% ‘塊變量

…NextiEndSub本章目錄27SubButton1_Click(……)HandlesButton1.ClickDimi%，isum%Fori=1To5isum=sum(i)TextBox1.Text&="isum="&isum&vbCrLfNextiEndSubFunctionsum(ByValnAsInteger)

StaticjAsInteger

j=j+nsum=jEndFunction6.3.5靜態(tài)變量靜態(tài)變量程序運(yùn)行過程中可保留變量的值聲明形式：Static變量名

[AS類型]用Dim聲明的變量，每次調(diào)用過程時(shí)重新初始化例6.10比較Dim和Static兩者的區(qū)別。本章目錄28遞歸過程在自身定義的內(nèi)部調(diào)用自己。例6.12編fac(n)=n!的遞歸函數(shù)Functionfac(nAsInteger)AsIntegerIfn=1Then fac=1Else fac=n*fac(n-1)EndIfEndFunction6.4遞歸用自身的結(jié)構(gòu)來描述自身就稱為遞歸。最典型的例子是階乘運(yùn)算,作如下的定義：

本章目錄29遞推回歸遞推過程：每調(diào)用自身，當(dāng)前參數(shù)壓棧，直到達(dá)到遞歸結(jié)束條件?；貧w過程：不斷從棧中彈出當(dāng)前的參數(shù)，直到棧空。遞歸算法設(shè)計(jì)簡(jiǎn)單，但消耗的機(jī)時(shí)和占據(jù)的內(nèi)存空間比非遞歸大由此可見構(gòu)成遞歸的結(jié)構(gòu)如下：

遞歸結(jié)束條件及結(jié)束時(shí)的值；能用遞歸形式表示，并且遞歸向終止條件發(fā)展。fac(2)=2*fac(1)fac(1)=1fac(4)=4*6fac(3)=3*2fac(2)=2*1fac(3)=3*fac(2)fac(4)=4*fac(3)本章目錄遞歸結(jié)構(gòu)306.5綜合應(yīng)用1數(shù)制轉(zhuǎn)換不同進(jìn)制數(shù)之間的轉(zhuǎn)換，可通過編程來實(shí)現(xiàn)；也可通過VB提供的內(nèi)部函數(shù)：十進(jìn)制轉(zhuǎn)換為八進(jìn)制函數(shù)（Oct）、轉(zhuǎn)換為十六進(jìn)制函數(shù)（Hex）來實(shí)現(xiàn)。例6.11編一函數(shù)，實(shí)現(xiàn)一個(gè)十進(jìn)制整數(shù)轉(zhuǎn)換成二至十六任意進(jìn)制的字符。分析：十進(jìn)制正整數(shù)m轉(zhuǎn)換成r進(jìn)制數(shù)，將m不斷除r取余數(shù)(若余數(shù)超過9，還要進(jìn)行相應(yīng)的轉(zhuǎn)換，例如10變成A，11變成B等)，直到商為零，以反序得到結(jié)果，即最后得到的余數(shù)在最高位。本章目錄演示31綜合應(yīng)用-加密2.加密和解密信息加密是信息安全性的措施之一。信息加密有各種方法，最簡(jiǎn)單的加密方法是將每個(gè)字母平移一個(gè)位置(稱為