VB60基礎(chǔ)教程-之-第9章-過(guò)-程課件

第9章過(guò)程9.1函數(shù)過(guò)程的定義和調(diào)用9.2子過(guò)程的定義與調(diào)用9.3參數(shù)傳遞9.4變量與過(guò)程的作用域9.5遞歸9.6常用算法9.1函數(shù)過(guò)程的定義和調(diào)用1.引例：已知多邊形的各條邊的長(zhǎng)度，要計(jì)算多邊形的面積。計(jì)算多邊形面積，可將多邊形分解成若干個(gè)三角形。計(jì)算三角形面積的公式如下：定義函數(shù)過(guò)程areaPublicFunctionarea(x!,y!,z!)AsSingleDimc!c=1/2*(x+y+z)area=Sqr(c*(c-x)*(c-y)*(c-z))EndFunction調(diào)用函數(shù)過(guò)程:Subcommand1_click()…輸入若干個(gè)三角形邊長(zhǎng)

S=area(a,b,c)+area(c,d,e)S=S+area(e,f,g)PrintSEndSub函數(shù)過(guò)程的定義自定義函數(shù)過(guò)程有兩種方法：(1)利用工具|添加過(guò)程命令定義，生成一個(gè)函數(shù)的框架。(2)利用代碼窗口直接定義。函數(shù)過(guò)程形式:Function函數(shù)過(guò)程名([參數(shù)列表])[As類型]

局部變量或常數(shù)定義語(yǔ)句塊函數(shù)名=返回值函數(shù)過(guò)程體

[ExitFunction]

語(yǔ)句塊

函數(shù)名=返回值EndFunction函數(shù)過(guò)程的定義函數(shù)過(guò)程名：命名規(guī)則同變量名

參數(shù)列表形式:[ByVal]變量名[()][As類型]

稱為形參或啞元，僅表示參數(shù)的個(gè)數(shù)、類型，無(wú)值。函數(shù)名=返回值在函數(shù)體內(nèi)至少對(duì)函數(shù)名賦值一次[ExitFunction]：表示退出函數(shù)過(guò)程例：編一求最大公約數(shù)的函數(shù)過(guò)程Functiongcd(m%,n%)AsIntegerIfm<nThent=m:m=n:n=tDowhilen<>0r=mModn：m=n：n=rLoopgcd=mEndFunctionPrivateSubCommand1_Click()s=“VB程序設(shè)計(jì)教程5.0版”

PrintMyReplace(s,"5.0","6.0")EndSubFunctionMyReplace$(s$,OldS$,NewS$)Dimi%,lenOldS%lenOldS=Len(OldS) i=InStr(s,OldS) DoWhilei>0 s=Left(s,i-1)+NewS+Mid(s,i+lenOldS)i=InStr(s,OldS) LoopMyReplace=s EndFunction函數(shù)過(guò)程的調(diào)用函數(shù)過(guò)程調(diào)用形式：函數(shù)過(guò)程名([參數(shù)列表])

參數(shù)列表：稱為實(shí)參或?qū)嵲?，它必須與形參個(gè)數(shù)相同，位置與類型一一對(duì)應(yīng)?？梢允峭愋偷某Ａ?、變量、表達(dá)式。EndSubPrivateSubCommand1_Click()s=“VB程序設(shè)計(jì)教程5.0版”

PrintMyReplace(s,"5.0","6.0")S”5.0””6.0”MyReplace$(s$,OldS$,NewS$)程序運(yùn)行流程

9.2子過(guò)程的定義與調(diào)用以下情況使用函數(shù)過(guò)程存在不足：不是為了獲得某個(gè)函數(shù)值，而是為了某種功能的處理。要獲得多個(gè)結(jié)果。VB中提供了使用更靈活的子過(guò)程。子過(guò)程定義的方法同函數(shù)過(guò)程，形式如下：Sub子過(guò)程名[(參數(shù)列表)]

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

[ExitSub]

語(yǔ)句EndSub子過(guò)程名、形參同函數(shù)過(guò)程中對(duì)應(yīng)項(xiàng)的規(guī)定，當(dāng)無(wú)形參時(shí)不要括號(hào)。子過(guò)程與函數(shù)過(guò)程的區(qū)別(1)函數(shù)過(guò)程有返回值，過(guò)程名就有類型；同時(shí)在函數(shù)過(guò)程體內(nèi)必須對(duì)函數(shù)過(guò)程名賦值。子過(guò)程名沒有值，過(guò)程名也就沒有類型，同樣不能在子過(guò)程體內(nèi)對(duì)子過(guò)程名賦值。(2)把某功能定義為函數(shù)過(guò)程還是子過(guò)程，沒有嚴(yán)格的規(guī)定。一般若程序有一個(gè)返回值時(shí)，函數(shù)過(guò)程直觀；當(dāng)有多個(gè)返回值時(shí)，習(xí)慣用子過(guò)程。(3)形參個(gè)數(shù)的確定。形參是過(guò)程與主調(diào)程序交互的接口，從主調(diào)程序獲得初值，或?qū)⒂?jì)算結(jié)果返回給主調(diào)程序。不要將過(guò)程中所有使用過(guò)的變量均作為形參。(4)形參沒有具體的值，只代表了參數(shù)的個(gè)數(shù)、位置、類型；只能是簡(jiǎn)單變量、數(shù)組名、自定義類型，不能是常量、數(shù)組元素、表達(dá)式。

子過(guò)程的調(diào)用是一句獨(dú)立的調(diào)用語(yǔ)句，有兩種形式：

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

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

子過(guò)程調(diào)用9.3參數(shù)傳遞傳址的結(jié)合過(guò)程是：當(dāng)調(diào)用一個(gè)過(guò)程時(shí)，它將實(shí)參的地址傳遞給形參。因此在被調(diào)過(guò)程體中對(duì)形參的任何操作都變成了對(duì)相應(yīng)實(shí)參的操作，實(shí)參的值就會(huì)隨過(guò)程體內(nèi)對(duì)形參的改變而改變。在調(diào)用過(guò)程時(shí)，一般主調(diào)過(guò)程與被調(diào)過(guò)程之間有數(shù)據(jù)傳遞，即將主調(diào)過(guò)程的實(shí)參傳遞給被調(diào)過(guò)程的形參，完成實(shí)參與形參的結(jié)合，然后執(zhí)行被調(diào)過(guò)程體。在VB中，實(shí)參與形參的結(jié)合有兩種方式，即傳址(ByRef)和傳值(ByVal)，其中傳址又稱為引用，是默認(rèn)的方法。區(qū)分兩種結(jié)合的方法是在要使用傳值的形參前加“ByVal”關(guān)鍵字。傳址與傳值過(guò)程定義形參前加ByVal關(guān)鍵字表示傳值，否則傳址。傳值的結(jié)合過(guò)程：當(dāng)調(diào)用一個(gè)過(guò)程時(shí)，系統(tǒng)將實(shí)參的值復(fù)制給形參，實(shí)參與形參斷開了聯(lián)系。被調(diào)過(guò)程中的操作是在形參自己的存儲(chǔ)單元中進(jìn)行，當(dāng)過(guò)程調(diào)用結(jié)束時(shí)，這些形參所占用的存儲(chǔ)單元也同時(shí)被釋放。因此在過(guò)程體內(nèi)對(duì)形參的任何操作不會(huì)影響到實(shí)參。傳址的結(jié)合過(guò)程：當(dāng)調(diào)用一個(gè)過(guò)程時(shí)，它將實(shí)參的地址傳遞給形參。因此在被調(diào)過(guò)程體中對(duì)形參的任何操作都變成了對(duì)相應(yīng)實(shí)參的操作，實(shí)參的值就會(huì)隨過(guò)程體內(nèi)對(duì)形參的改變而改變。傳址與傳值傳值與傳址的選用規(guī)則：(1)形參是數(shù)組、自定義類型只能用傳址方式；(2)若要將過(guò)程中的結(jié)果返回給主調(diào)程序，則形參必須是傳址方式。這時(shí)實(shí)參必須是同類型的變量名(包括簡(jiǎn)單變量、數(shù)組名、自定義類型等)，不能是常量、表達(dá)式。(3)若形參不是前兩種情況，一般應(yīng)選用傳值方式。這樣可增加程序的可靠性和便于調(diào)試，減少各過(guò)程間的關(guān)聯(lián)。例：編寫交換兩個(gè)數(shù)的過(guò)程，Swap1用傳值傳遞，Swap2用傳址傳遞。例：編一子函數(shù)過(guò)程，求任意一維數(shù)組中各元素之積，主調(diào)程序調(diào)用該函數(shù)，分別求：數(shù)組參數(shù)的傳遞在VB中允許參數(shù)是數(shù)組，數(shù)組只能通過(guò)傳址方式進(jìn)行傳遞。在傳遞數(shù)組時(shí)還要注意以下事項(xiàng)：(1)在實(shí)參列表和形參列表中放入數(shù)組名，忽略維數(shù)的定義，但數(shù)組的圓括號(hào)不能省。(2)如果被調(diào)過(guò)程不知道實(shí)參數(shù)組的上下界，可用LBound和UBound函數(shù)確定實(shí)參數(shù)組的下界和上界。例：編兩個(gè)子過(guò)程：子過(guò)程一求數(shù)組中最大值和最小值；子過(guò)程二以每行5列顯示數(shù)組結(jié)果。主調(diào)程序有10個(gè)元素，分別調(diào)用兩個(gè)子過(guò)程。

9.4過(guò)程與變量的作用域VB的應(yīng)用程序由若干個(gè)過(guò)程組成，這些過(guò)程一般保存在窗體文件(.frm)或標(biāo)準(zhǔn)模塊文件(.bas)中。變量在過(guò)程中是必不可少的。一個(gè)變量、過(guò)程隨所處的位置不同，可被訪問(wèn)的范圍不同，變量、過(guò)程可被訪問(wèn)的范圍稱為變量、過(guò)程的作用域。

9.4.1過(guò)程的作用域1.窗體/模塊級(jí)所定義的子過(guò)程或函數(shù)過(guò)程前加Private關(guān)鍵字，過(guò)程只能被本窗體(在本窗體內(nèi)定義)或本標(biāo)準(zhǔn)模塊(在本標(biāo)準(zhǔn)模塊內(nèi)定義)中的過(guò)程調(diào)用。2.全局級(jí)

加Public關(guān)鍵字（缺?。┑倪^(guò)程，可供該應(yīng)用程序的所有窗體和所有標(biāo)準(zhǔn)模塊中的過(guò)程調(diào)用。(1)在窗體定義的過(guò)程，外部過(guò)程要調(diào)用時(shí)，必須在過(guò)程名前加該過(guò)程所處的窗體名。(2)在標(biāo)準(zhǔn)模塊定義的過(guò)程，外部過(guò)程均可調(diào)用，但過(guò)程名必須惟一，否則要加標(biāo)準(zhǔn)模塊名。

9.4.2變量的作用域1.局部變量在過(guò)程內(nèi)用Dim語(yǔ)句聲明的變量(或不加聲明直接使用的變量)，只能在本過(guò)程中使用的變量，別的過(guò)程不可訪問(wèn)。一旦該過(guò)程體結(jié)束，變量的內(nèi)容自動(dòng)消失，占用的存儲(chǔ)單元釋放。不同的過(guò)程中可有相同名稱的變量，彼此互不相干。2.窗體/模塊級(jí)變量在通用聲明段中用Dim語(yǔ)句或用Private語(yǔ)句聲明的變量，可被本窗體/模塊的任何過(guò)程訪問(wèn)。3.全局變量在通用聲明段中用Public語(yǔ)句聲明的變量，可被應(yīng)用程序的任何過(guò)程或函數(shù)訪問(wèn)。只有當(dāng)整個(gè)應(yīng)用程序執(zhí)行結(jié)束時(shí)，全局變量的值才會(huì)消失。變量的作用域例如在下面一個(gè)標(biāo)準(zhǔn)模塊文件中不同級(jí)的變量聲明：

PublicPaAsinteger '全局變量

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

SubF1() DimFaAsinteger '局部變量

… EndSub SubF2() DimFbAsSingle '局部變量

… EndSubPrivateFunctionsum(nAsInteger)

StaticjAsInteger

j=j+nsum=jEndFunction9.4.3靜態(tài)變量聲明形式：Static變量名[AS類型]StaticFunction函數(shù)過(guò)程名([參數(shù)列表])[As類型]StaticSub子過(guò)程名[(參數(shù)列表)]過(guò)程名前加Static，表示該過(guò)程內(nèi)的局部變量都是靜態(tài)變量。靜態(tài)變量在程序運(yùn)行過(guò)程中可保留變量原來(lái)的值。而用Dim說(shuō)明的變量，每次調(diào)用過(guò)程時(shí)，重新初始化。例6.10比較Dim和Static兩者說(shuō)明了變量的區(qū)別。

PrivateSubForm_Click()Dimi%，isum%Fori=1To5 isum=sum(i) PrintisumNextiEndSub遞歸過(guò)程在自身定義的內(nèi)部調(diào)用自己。例6.12編fac(n)=n!的遞歸函數(shù)Functionfac(nAsInteger)AsIntegerIfn=1Then fac=1Else fac=n*fac(n-1)EndIfEndFunction9.5遞歸用自身的結(jié)構(gòu)來(lái)描述自身就稱為遞歸。最典型的例子是對(duì)階乘運(yùn)算作如下的定義：

遞推回歸遞推過(guò)程：每調(diào)用自身，當(dāng)前參數(shù)壓棧，直到達(dá)到遞歸結(jié)束條件?；貧w過(guò)程：不斷從棧中彈出當(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)9.6常用算法1.

數(shù)制轉(zhuǎn)換不同進(jìn)制數(shù)之間的轉(zhuǎn)換，可通過(guò)編程來(lái)實(shí)現(xiàn)；也可通過(guò)VB提供的內(nèi)部函數(shù)：十進(jìn)制轉(zhuǎn)換為八進(jìn)制函數(shù)（Oct）、轉(zhuǎn)換為十六進(jìn)制函數(shù)（Hex）來(lái)實(shí)現(xiàn)。例：編一函數(shù)，實(shí)現(xiàn)一個(gè)十進(jìn)制整數(shù)轉(zhuǎn)換成二至十六任意進(jìn)制的字符。一個(gè)十進(jìn)制正整數(shù)m轉(zhuǎn)換成r進(jìn)制數(shù)的思路是:將m不