vb過程絕對有用

第六章過程6.1函數(shù)過程的定義與調(diào)用6.2子過程的定義與調(diào)用6.3參數(shù)傳遞6.4遞歸6.5綜合應(yīng)用12例:已知的值。47，求Cm!(n-m)!n!Cmn=k1=1:k2=1:k3=1n=7:m=4Fori=1Tonk1=k1*iNextiFori=1Tomk2=k2*iNextiFori=1Ton-mk3=k3*iNextis=k1/k2/k3本章目錄3調(diào)用過程:調(diào)用Sprg1調(diào)用Sprg1調(diào)用Sprg2子過程:Sprg1子過程:Sprg2過程的引入:

使同類的操作不重復(fù)編寫，寫一次多次用把一項(xiàng)復(fù)雜的工作分成簡單的功能塊，分而治之過程:完成一段獨(dú)立功能，可供其他過程使用。本章目錄4Sub過程事件過程自定義子過程Function過程

內(nèi)部函數(shù)(標(biāo)準(zhǔn)函數(shù)）自定義函數(shù)過程1）過程是一段程序代碼，是相對獨(dú)立的邏輯模塊。2）一個(gè)完整的VB應(yīng)用程序由若干過程和模塊組成。Sub子過程：完成一定的操作和功能，無返回值。Function函數(shù)過程：完成一定的操作和功能，并且可將數(shù)據(jù)處理的結(jié)果返回。常用過程分類:本章目錄6.1函數(shù)過程的定義和調(diào)用5例6.1：已知多邊形各條邊的長度，計(jì)算多邊形的面積。計(jì)算多邊形面積，可將多邊形分解成若干個(gè)三角形。計(jì)算三角形面積的公式如下：本章目錄6定義函數(shù)過程area：Functionarea(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)EndSub6.1函數(shù)過程的定義和調(diào)用調(diào)用函數(shù)過程本章目錄6.1.1函數(shù)過程的定義7

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

變量聲明語句塊函數(shù)名=表達(dá)式EndFunction6.1函數(shù)過程的定義和調(diào)用本章目錄8Public全局函數(shù)過程，可被程序任何模塊調(diào)用Private僅供本模塊中的其它過程調(diào)用形參(或稱啞元)只能是變量或數(shù)組名()，僅表示參數(shù)的個(gè)數(shù)和類型，無值。例6.2

編寫一個(gè)求最大公約數(shù)的函數(shù)過程。

Functiongcd(m%,n%)AsIntegerIfm<nThent=m:m=n:n=tDowhilen<>0r=mModn：m=n：n=rLoopgcd=m

EndFunction6.1函數(shù)過程的定義和調(diào)用本章目錄6.1.2函數(shù)過程的調(diào)用9調(diào)用形式：函數(shù)過程名([參數(shù)列表])

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

Sub

Form_Click()Dimx%,y%,z%x=124:y=24z=gcd(x,y)MsgBox("最大公約數(shù)是"&z)EndSub

程序運(yùn)行流程Functiongcd(m%,n%)AsIntegerIfm<nThent=m:m=n:n=tDowhilen<>0r=mModn：m=n：n=rLoopgcd=mEndFunction10本章目錄11例6.3

編一函數(shù)，統(tǒng)計(jì)字符串中漢字的個(gè)數(shù)。分析：在VB中，字符以Unicode碼存放，每個(gè)漢字和英文是一個(gè)字符、占有兩個(gè)字節(jié)，區(qū)別是漢字的機(jī)內(nèi)碼最高位為1，若利用Asc函數(shù)求其碼值為小于0（以補(bǔ)碼表示），而西文字符的最高位為0，Asc函數(shù)求其碼值為大于0。

6.1函數(shù)過程的定義和調(diào)用本章目錄6.2子過程的定義與調(diào)用126.2.1引例以下情況使用函數(shù)過程存在不便：不是為了獲得某個(gè)函數(shù)值，而是為了某種功能的處理。要獲得多個(gè)結(jié)果。VB中提供了使用更靈活的子過程。例6.4編一過程，對Label1控件進(jìn)行移動(dòng)，通過參數(shù)Tag的值（1或-1）決定移動(dòng)方向。該過程不是為了計(jì)算獲得某個(gè)結(jié)果，而是進(jìn)行對控件移動(dòng)的處理。本章目錄6.2.2子過程的定義13子過程定義的方法類似函數(shù)過程，形式如下：[Public|Private]Sub

子過程名([參數(shù)列表])

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

語句

[ExitSub]

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

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

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

SubProcThe(ByVals$,ByRefCount%)……EndSub……CallProcThe(Text1.Text,n)……16本章目錄6.2.3子過程調(diào)用17子過程的調(diào)用是一句獨(dú)立的調(diào)用語句，有兩種形式：

Call

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

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

分別編一個(gè)統(tǒng)計(jì)字符串S中定冠詞The出現(xiàn)個(gè)數(shù)的子過程和函數(shù)過程，并分別調(diào)用。處理方法：利用InStr函數(shù)反復(fù)在字符串S找The子串。分析：當(dāng)定義好函數(shù)過程后，要改為子過程，只要將函數(shù)過程的返回結(jié)果作為子過程的形參，即在子過程中增加一個(gè)參數(shù)。6.2子過程的定義與調(diào)用本章目錄6.3參數(shù)傳遞196.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"，9，2)則s中的結(jié)果為“VB”。本章目錄6.3.2傳地址與傳值20實(shí)參與形參的結(jié)合有傳地址(ByRef)和傳值(ByVal)兩種方法。傳地址方式當(dāng)調(diào)用一個(gè)過程時(shí)，它將實(shí)參的地址傳遞給形參。因此在被調(diào)過程體中對形參的任何操作都變成了對相應(yīng)實(shí)參的操作，實(shí)參的值就會(huì)隨過程體內(nèi)對形參的改變而改變。傳值方式當(dāng)調(diào)用一個(gè)過程時(shí)，系統(tǒng)將實(shí)參的值復(fù)制給形參，實(shí)參與形參斷開了聯(lián)系。在過程體內(nèi)對形參的任何操作不會(huì)影響到實(shí)參。缺省關(guān)鍵字6.3參數(shù)傳遞本章目錄例6.7

編寫交換兩個(gè)數(shù)的過程，Swap1用傳值方式，Swap2用傳地址方式。21形參獲得實(shí)參的值形參獲得實(shí)參的地址6.3參數(shù)傳遞本章目錄22選用傳值還是傳地址一般進(jìn)行如下考慮：要將被調(diào)過程中的結(jié)果返回給主調(diào)程序，則形參必須是傳址方式。這時(shí)實(shí)參必須是同類型的變量，不能是常量、表達(dá)式；不希望過程修改實(shí)參的值，則應(yīng)選用傳值方式，減少各過程間的關(guān)聯(lián)。因?yàn)樵谶^程體內(nèi)對形參的改變不會(huì)影響實(shí)參；形參是數(shù)組都是地址傳遞。6.3參數(shù)傳遞本章目錄6.3.3數(shù)組參數(shù)的傳遞23例6.8

如下sum子過程求數(shù)組a各元素和、并改變數(shù)組各元素值：Functionsum%(ByRefx()AsInteger)Dimi%sum=0Fori=0ToUBound(x)

sum=sum+x(i):x(i)=2*x(i)NextiEndFunction6.3參數(shù)傳遞本章目錄24形參是數(shù)組要以數(shù)組名加圓括號表示，不要給出維數(shù)上界；多維數(shù)組，每維以逗號分隔。在過程中通過Ubound函數(shù)確定每維的上界。實(shí)參是數(shù)組要給出數(shù)組名(不需要圓括號)。當(dāng)數(shù)組作為參數(shù)傳遞時(shí)，系統(tǒng)將實(shí)參數(shù)組的起始地址傳給過程，使形參數(shù)組也具有與實(shí)參數(shù)組相同的起始地址。13579形參數(shù)組實(shí)參數(shù)組6.3參數(shù)傳遞本章目錄6.4遞歸25用自身的結(jié)構(gòu)來描述自身就稱為遞歸。最典型的例子是階乘運(yùn)算，作如下的定義：遞歸過程在自身定義的內(nèi)部調(diào)用自己。本章目錄26例6.9編fac(n)=n!的遞歸函數(shù)。Functionfac(nAsInteger)AsIntegerIfn=1Then fac=1Else fac=n*fac(n-1)EndIfEndFunction6.4遞歸本章目錄27遞推過程：每調(diào)用自身，當(dāng)前參數(shù)壓棧，直到達(dá)到遞歸結(jié)束條件?；貧w過程：不斷從棧中彈出當(dāng)前的參數(shù)，直到?？铡＿f歸算法設(shè)計(jì)簡單，但消耗的機(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)6.4遞歸本章目錄28例6.10用遞歸求最大公約數(shù)。PublicFunctiongcd(mAsInteger,nAsInteger)AsIntegerIf(mModn)=0Thengcd=nElsegcd=gcd(n,mModn)EndIfEndFunction6.4遞歸本章目錄6.5變量的作用域29過程級變量在一個(gè)過程內(nèi)用Dim或Static語句聲明的變量，只能在本過程中使用；模塊級變量在模塊內(nèi)、任何過程外用Dim、Private語句聲明的變量，可被本模塊的任何過程訪問；全局變量在模塊級用Public語句聲明的變量，可被應(yīng)用程序的任何過程或函數(shù)訪問。本章目錄6.5.1變量的作用域30例如，在下面一個(gè)標(biāo)準(zhǔn)模塊文件中不同級的變量聲明：

PublicPaAsinteger '全局變量

PrivateMbAsstring*10'窗體/模塊級變量

SubF1()DimFaAsinteger '過程級變量

…EndSubSubF2()DimFbAsSingle '過程級變量

EndSub6.5變量的作用域6.5.2靜態(tài)變量31靜態(tài)變量程序運(yùn)行過程中可保留變量的值。聲明形式：Static變量名[AS類型]用Dim聲明的變量，每次調(diào)用過程時(shí)重新初始化。6.5變量的作用域本章目錄32例6.11

編寫程序，利用變量count統(tǒng)計(jì)單擊窗體的次數(shù)。PrivateSubForm_Click()Staticcount%count=count+1Print"已單擊窗體";count;"次"EndSubPrivateSubForm_Click()Dimcount%count=count+1Print"已單擊窗體";count;"次"EndSub6.5變量的作用域本章目錄6.6綜合應(yīng)用331.數(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)。本章目錄34例6.12

編一函數(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ù)在最高位。6.6綜合應(yīng)用本章目錄352.加密和解密信息加密是信息安全性的措施之一。信息加密有各種方法，最簡單的加密方法是將每個(gè)字母平移一個(gè)位置(稱為密鑰)。例如，后移5個(gè)位置，這時(shí)，A→F，B→G…