程序設(shè)計教程(第6章)

程序設(shè)計教程過程學(xué)習(xí)目標(biāo)：

熟悉過程的概念及其種類。掌握Sub過程的定義、建立和調(diào)用，掌握Function過程的定義、建立和調(diào)用。掌握形參與實參的概念及其參數(shù)的兩種傳遞方式

掌握過程的嵌套調(diào)用與遞歸調(diào)用掌握過程和變量的作用域掌握進(jìn)制轉(zhuǎn)換、素數(shù)等常用算法6.1VisualBasic的工程

應(yīng)用程序通常包括窗體文件(.frm)、模塊文件(.bas)和類模塊(.cls)，VB工程的組成一個VisualBasic工程至少包含一個窗體模塊，還可以根據(jù)需要包含若干個標(biāo)準(zhǔn)模塊和類模塊，本書將只討論窗體模塊和標(biāo)準(zhǔn)模塊的使用方法。通過圖可以清楚看出VisualBasic工程的模塊層次關(guān)系。

[Public|Private]Sub

子過程名([形式參數(shù)列表])…..

EndSub概念：過程（或變量）的作用域指的是過程（或變量）的有效范圍，即過程（或變量）的“可見性”。通用子過程和函數(shù)過程既可寫在窗體模塊中也可寫在標(biāo)準(zhǔn)模塊中，在定義時可選用關(guān)鍵字Private（局部）和Public（全局），來決定它們能被調(diào)用的范圍。6.2過程

過程有兩個重要作用：一是把一個復(fù)雜的任務(wù)分解為若干個小任務(wù)，可以用過程來表達(dá)，從而使任務(wù)更易理解，更易實現(xiàn)，將來更易維護(hù)；二是代碼重用，使同一段代碼多次復(fù)用。VB應(yīng)用程序是由過程組成的，過程是完成某種特殊功能的一組獨(dú)立的程序代碼。分為兩大類過程。事件過程是當(dāng)某個事件發(fā)生時，對該事件作出響應(yīng)的程序段，它是VB應(yīng)用程序的主體。通用過程是獨(dú)立于事件過程之外，可供其他過程調(diào)用的程序段。把相同的任務(wù)編成相對獨(dú)立的“子過程”。當(dāng)事件過程需要執(zhí)行這個任務(wù)時，可使用調(diào)用語句(如Call)實行調(diào)用。子過程執(zhí)行完后，會返回事件過程中調(diào)用語句Call的后續(xù)語句繼續(xù)執(zhí)行通用過程又分為Sub(子程序)過程和Function(函數(shù))過程。通用過程與事件過程不同，它不依附于某一個對象，也不是由對象的某一個事件驅(qū)動、或由系統(tǒng)自動調(diào)用，而是必須是被調(diào)用語句調(diào)用才起作用。過程調(diào)用如圖所示：

例6.1使用Sub過程的示例1

PrivateSubForm_Load()ShowCallmysub1(30)Callmysub2Callmysub2Callmysub2Callmysub1(30)EndSub

程序運(yùn)行結(jié)果

PrivateSubmysub1(n)PrintString(n,"*")EndSubPrivateSubmysub2()Print"*";Tab(30);"*"EndSub

6.2.1

Sub過程

Form_Load()事件過程Callmysub1(30)Callmysub2Callmysub2Callmysub2Callmysub2Callmysub1(30)Mysub1過程Mysub2過程調(diào)用過程

事件過程Form_Load()中，通過Call來分別調(diào)用兩個Sub過程

Sub過程mysub1(n)中，n為參數(shù)(也稱形參)，當(dāng)調(diào)用過程通過Callmysub1(30)(30稱為實參)調(diào)用時，就把30傳給n，這樣調(diào)用后就輸出30個“*”號過程mysub2()不帶參數(shù)，其功能是輸出左右兩邊的“*”號定義格式：

[Private｜Public｜Static]Sub過程名([參數(shù)表])

語句塊

[ExitSub]

EndSub

1.Sub過程的定義根據(jù)過程的作用范圍任選其一退出過程語句（2）子過程若需要接受參數(shù)，則可在過程名后的括號中定義接受參數(shù)的變量及變量的數(shù)據(jù)類型。接受參數(shù)的變量稱為形式參數(shù)。簡稱“形參”，僅表示形參的類型、個數(shù)、位置，定義時是無值的，只有在過程被調(diào)用時，虛實參結(jié)合后才獲得相應(yīng)的值。（3）過程可以無形式參數(shù)，但括號不能省。說明：（1）子過程名：命名規(guī)則與變量名規(guī)則相同。子過程名不返回值，而是通過形參與實參的傳遞得到結(jié)果，調(diào)用時可返回多個值。以字母或漢字、數(shù)字和下劃線組成的字符串。（4）參數(shù)的定義形式：[ByVal｜ByRef]變量名[()][As類型][,…]，ByVal表示當(dāng)該過程被調(diào)用時，參數(shù)是按值傳遞的；缺省或ByRef表示當(dāng)該過程被調(diào)用時，參數(shù)是按地址傳遞的。如：publicsubswap2(ByValXAsinteger,ByValyAsinteger)（5）Private、Public、Static的含義選用Private(局部)定義過程，表明只有該過程所在模塊（如窗體模塊）中的過程才能調(diào)用該模塊；如果選用Public(全局)定義過程，表明在應(yīng)用程序中任何地方都可以調(diào)用該模塊。如果選用Static，表明Sub過程中的局部變量是靜態(tài)的。2.Sub過程的建立Sub過程可以在窗體模塊(.frm)中建立，也可以在標(biāo)準(zhǔn)模塊(.bas)中建立。1、在窗體模塊(.frm)中建立可以在代碼窗口中完成。打開代碼窗口后，在對象框中選擇“通用”項，然后輸入Sub過程頭，例如SubMysub1(n),按下回車鍵，窗口顯示：

SubMysub1(n)……EndSub此時可在Sub和EndSub之間輸入程序代碼。2、在標(biāo)準(zhǔn)模塊(.Bas)中建立Sub過程，方法是：選擇“工程”菜單中的“添加模塊”命令，打開“添加模塊”對話框；再選擇“新建”或“現(xiàn)存”選項卡，，新建一個標(biāo)準(zhǔn)模塊獲打開一個已有的標(biāo)準(zhǔn)模塊。之后就可以在模塊代碼窗口中編輯Sub過程了。

3、通過創(chuàng)建Sub過程模板的方法建立Sub過程:

通過“工具”菜單中的“添加過程”命令，出現(xiàn)“添加過程”對話框（見圖5.1），選擇過程類型（子過程、函數(shù)、屬性、事件）及作用范圍（公有的Public、私有的Private），單擊確定后得到一個過程或函數(shù)定義的結(jié)構(gòu)框架（模板），如：PublicSubSort()

……EndSub1.函數(shù)過程（Function過程）的定義VisualBasic函數(shù)分為內(nèi)部函數(shù)和外部函數(shù)，外部函數(shù)是用戶根據(jù)需要用Function關(guān)鍵字定義的函數(shù)過程，與子過程不同的是函數(shù)過程將返回一個值。[Public|Private][Static]Function函數(shù)名([<參數(shù)列表>])[As<類型>]

<局部變量或常數(shù)定義><語句塊>[函數(shù)名=返回值]

[ExitFunction]<語句塊>[函數(shù)名=返回值]

EndFunction函數(shù)返回值的處理

6.2.2

Function過程函數(shù)體是指函數(shù)返回值的類型，如省略，返回值是變體型的。

與Sub過程相同

可以在“代碼窗口”中直接輸入來建立Function過程。也可以選擇“工具”菜單中的“添加過程”命令來建立Function過程(選擇“函數(shù)”類型)。

.Function過程的建立

把求兩個數(shù)中的大數(shù)編成Function過程，過程名為Max

本例采用InputBox函數(shù)輸入三個數(shù)，判斷出最大數(shù)后采用Print直接輸出在窗體上。程序代碼如下：PrivateSubForm_Load()ShowDimaAsSingle,bAsSingle,cAsSingleDimsAsSingle

a=Val(InputBox("輸入第一個數(shù)"))b=Val(InputBox("輸入第二個數(shù)"))c=Val(InputBox("輸入第三個數(shù)"))s=max(a,b)Print"最大數(shù)是:";max(s,c)EndSubFunctionmax(m,n)AsSingleIfm>nThenmax=mElsemax=nEndIfEndFunction

例6.2輸入三個數(shù)，求出它們的最大數(shù)查看當(dāng)前模塊中有哪些Sub過程和Function過程：在代碼窗口的對象框中選擇“通用”項，即可在過程框中列出所有過程。查看其他模塊中的過程：可選擇“視圖”菜單中的“對象瀏覽器”命令，在“對象瀏覽器”對話框中，從“庫”列表框中選擇工程，從“類”列表框中選擇模塊，此時在“成員”列表框中列出該模塊擁有的過程。

6.2.3查看過程

事件過程是通過事件驅(qū)動和由系統(tǒng)自動調(diào)用的，而Sub過程則必須通過調(diào)用語句實行調(diào)用1.Function過程的調(diào)用調(diào)用Sub過程有以下兩種方法：

(1)使用Call語句。格式：

Call過程名(［實參表］)(2)直接使用過程名，格式：

過程名［實參表］例如，調(diào)用名為SubCal的過程：

CallSubCal(10)

SubCal10

6.3.過程的調(diào)用對無參數(shù)過程調(diào)用，直接寫過程名就行了

因為計算5!和10!都要用到階乘n!(n!＝1×2×3×…×n)所以把計算n!編成Sub過程采用Print直接在窗體上輸出結(jié)果，程序代碼：PrivateSubForm_Load()ShowDimyAsLong,sAsLongCallJc(5,y)s=yCallJc(10,y)s=s+yPrint"5!+10!=";sEndSub程序運(yùn)行結(jié)果：

5!+10!＝3628920PrivateSubJc(nAsInteger,tAsLong)DimiAsIntegert=1Fori=1Tont=t*iNextiEndSub

注意參數(shù)n和t的不同，n是帶入?yún)?shù)，t是結(jié)果參數(shù)

例6.3

計算5!+10!

(1)直接調(diào)用

像使用VB內(nèi)部函數(shù)一樣，只需寫出函數(shù)名和相應(yīng)的參數(shù)即可。例如：

s=Max(a,b)

PrintMax(s,c)

(2)用Call語句調(diào)用

與調(diào)用Sub過程一樣來調(diào)用Function過程，例如：

CallMax(a,b)

當(dāng)用這種方法調(diào)用Function過程時，將會放棄返回值

2.Function過程的調(diào)用

參數(shù)傳遞可以實現(xiàn)調(diào)用過程和被調(diào)過程之間的信息交換

兩種方式：按值傳遞和按地址傳遞6.4.1形參與實參形式參數(shù)(簡稱形參)

指的是被調(diào)用過程中的參數(shù)。出現(xiàn)在Sub過程或Function過程中，形參可以是變量名和數(shù)據(jù)名，形參表中的各個變量之間用逗號分隔。

6.4參數(shù)傳遞

實際參數(shù)(簡稱實參)是調(diào)用過程中的參數(shù)。寫在子過程名或函數(shù)名后括號內(nèi)，其作用是將實參數(shù)據(jù)傳送給形參。實參可由常量、表達(dá)式、有效的變量名、數(shù)組名（后加左、右括號，如A()）組成，實參表中各參數(shù)用逗號分隔。形參表和實參表中的對應(yīng)變量名可以不同，但實參和形參的個數(shù)、順序以及數(shù)據(jù)類型必須相同

定義過程和調(diào)用過程的示例：調(diào)用過程：CallMysub(100,"計算機(jī)"，1.5)定義過程：SubMysub(tAsInteger,sAsString,yAsSingle)

“形實結(jié)合”是按照位置結(jié)合的，即第一個實參值(100)傳送給第一個形參t，第二個實參值(“計算機(jī)”)傳送給第二個形參s，第三個實參值(1.5)傳送給第三個形參y。

數(shù)組可以作為形參出現(xiàn)在過程的形參表中

輸入若干個(不超過100)個學(xué)生的成績，求出平均分、最高分及最低分本例采用InputBox函數(shù)來輸入成績，計算結(jié)果直接輸出到窗體上例6.4求出學(xué)生成績的平均分、最高分及最低分

PrivateSubForm_Load()

Dimjc(100)AsInteger,xAsInteger,nAsInteger,_sumAsLong,maxAsInteger,minAsIntegern=0DoWhileTruex=Val(InputBox("請輸入第"&n+1&_"個學(xué)生的成績(-1結(jié)束)"))Ifx=-1ThenExitDon=n+1jc(n)=xLoopIfn>0ThenCallCaljc(n,jc(),sum,max,min)ElseEndEndIfShowPrint"平均分：";Format(sum/n,"###.0")Print"最高分：";maxPrint"最低分：";min

EndSub

SubCaljc(kAsInteger,darray()AsInteger,_sAsLong,mAsInteger,nAsInteger)DimiAsIntegers=darray(1):m=darray(1):n=darray(1)Ifk=1ThenExitSub‘k是數(shù)組的下界

Fori=2Toks=s+darray(i)Ifm<darray(i)Thenm=darray(i)Ifn>darray(i)Thenn=darray(i)NextiEndSub

1.按地址傳遞

是VB默認(rèn)的參數(shù)傳遞方式按地址傳遞(關(guān)鍵字ByRef)：把實參變量的內(nèi)存地址傳遞給被調(diào)過程(如Sub過程)，即形參與實參使用相同的內(nèi)存地址單元。傳址：形參得到的是實參的地址，當(dāng)形參值的改變同時也改變實參的值。例7.2中，F(xiàn)orm_Load()事件過程是通過“CallJc(5,y)”和“CallJc(10,y)”來調(diào)用過程Jc(n,t)的，其中采用的第二個參數(shù)就是按地址來傳送數(shù)據(jù)的6.4.2

按地址傳遞和按值傳遞通過地址傳遞數(shù)據(jù)的執(zhí)行過程SubSwap2(x%,y%)DimTemp%Temp=x:x=y:y=TempEndSuba=10:b=20Swap2a,b'傳地址

Print"A2=";a,"B2=";b參數(shù)是按地址傳遞

按值傳遞(關(guān)鍵字ByVal)：通過常量傳遞實際參數(shù)，即傳遞參數(shù)值而不是傳遞它的地址，即將實參的值復(fù)制給形參。因為通用過程不能訪問實參的內(nèi)存地址，因而在通用過程中對形參的任何操作都不會影響實參。2.按值傳遞按值傳遞的執(zhí)行過程如下圖：SubSwap1(ByValx%,ByValy%)DimTemp%Temp=x:x=y:y=TempEndSuba%=10:b%=20Swap1a,bPrint"A1=";a,"B1=";b參數(shù)是按值傳遞

設(shè)置兩個通用過程Test1和Test2，分別按值傳遞和按地址傳遞PrivateSubForm_Load()DimxAsIntegerShowx=5Print"執(zhí)行test1前，x=";xCalltest1(x)Print"執(zhí)行test1后，test2前，x=";xCalltest2(x)Print"執(zhí)行test2后，x=";xEndSubSubtest1(ByValtAsInteger)t=t+5EndSubSubtest2(sAsInteger)s=s-5EndSub

運(yùn)行結(jié)果執(zhí)行Test1前，x=5執(zhí)行Test1后，Test2前，x=5執(zhí)行Test2后，x=0

例6.5參數(shù)傳遞方式示例

一個過程調(diào)用過程本身，就稱為過程的遞歸調(diào)用

采用遞歸方法來解決問題時，必須符合以下兩個條件：

(1)可以把要解的問題轉(zhuǎn)化為一個新的問題，而這個新的問題的解法仍與原來的解法相同；

(2)有一個明確的結(jié)束遞歸的條件(終止條件)，否則過程將永遠(yuǎn)“遞歸”下去

6.5過程的遞歸調(diào)用

可用下列的遞歸公式

1n=1n×(n-1)!n>1

本遞歸中，終止條件是n=1n!=例6.6

采用遞歸方法求n!(n>0)PrivateSubForm_Load()DimnAsInteger,mAsDoubleShown=Val(InputBox("輸入1～15之間的整數(shù)"))Ifn<1Orn>15ThenMsgBox"錯誤數(shù)據(jù)",0,"檢查數(shù)據(jù)"EndEndIfm=fac(n)Printn;"!=";mEndSubPrivateFunctionfac(n)AsDoubleIfn>1Thenfac=n*fac(n-1)'遞歸調(diào)用

Elsefac=1'n=1時，結(jié)束遞歸

EndIfEndFunction

說明：當(dāng)n>1時，在Fac過程中調(diào)用Fac過程，然后n減1，再次調(diào)用Fac過程，這種操作一直持續(xù)到n=1為止。例如，當(dāng)n=3時，求Fac(3)變成求3×Fac(2)，求Fac(2)變成求2×Fac(1)，而Fac(1)為1，遞歸結(jié)束。以后再逐層返回，遞推出Fac(2)及Fac(3)的值注意，在某次調(diào)用Fac過程時并不是立即得到Fac(n)的值，而是一次又一次地進(jìn)行遞歸調(diào)用，到Fac(1)時才有確定的值，然后通用過程逐層返回中依次算出Fac(2)、Fac(3)的值Form_Load過程m=Fac(3)Fac過程調(diào)用Fac(3)值為6參數(shù)n為3Fac=3*Fac(2)Fac過程調(diào)用Fac(2)值為2參數(shù)n為2Fac=2*Fac(1)Fac過程調(diào)用Fac(1)值為1參數(shù)n為1Fac=1

遞歸調(diào)用過程(n=3)

在VB中，由于可以在過程中和模塊中聲明變量，根據(jù)定義變量的位置和定義變量的語句不同，變量可以分為：局部變量（過程級變量）窗體/模塊級變量（私有的模塊級變量，能被本模塊的所有過程和函數(shù)使用）全局級變量（公有的模塊級變量）。6.6變量的作用范圍1、過程級變量——局部變量

局部變量：在過程內(nèi)聲明的變量，只能在本過程中使用。

在過程內(nèi)部使用Dim或者Static關(guān)鍵字來聲明的變量，只在聲明它們的過程中才能被訪問或改變該變量的值，別的過程不可訪問。所以可以在不同的過程中聲明相同名字的局部變量而互不影響。例：PrivateSubForm_Load()Dimn%n=10EndSubPrivateSubFrom_Click()Dimn%Print“n=“;nEndSub程序運(yùn)行后單擊窗體，其輸出結(jié)果是什么？N=02、窗體/模塊級變量

窗體/模塊級變量：在“通用聲明”段中用Dim語句或用Private語句聲明的變量，可被本窗體/模塊的任何過程訪問。但其他模塊卻不能訪問該變量。例如：在“通用聲明”段聲明如下變量:PrivatesAsStringDimaAsInteger

如果還允許其他窗體和模塊中引用本模塊的變量，就必須用Public來聲明變量，例如：

Publicaasinteger‘假設(shè)本窗體為Form1

這樣，在另外一個窗體（如form2)或模塊中可以用Form1.a來引用該變量。注意：不能把a(bǔ)誤認(rèn)為全局變量。因為全局變量在其他窗體和模塊中引用時只需寫a,不需要寫Form1.a2.模塊級變量

全局變量可以被應(yīng)用程序中任何一個窗體和模塊直接訪問。全局變量要在標(biāo)準(zhǔn)模塊文件(.bas)中的聲明部分用Global或Public語句來聲明。格式：

Global變量名As數(shù)據(jù)類型

Public變量名As數(shù)據(jù)類型3.全局變量3種變量聲明及使用規(guī)則如下表：1、窗體/模塊級過程：

在窗體模塊或標(biāo)準(zhǔn)模塊中加Private關(guān)鍵字定義的過程，只能被定義它的窗體模塊或標(biāo)準(zhǔn)模塊中的過程調(diào)用。2、全局級過程：

在窗體模塊或標(biāo)準(zhǔn)模塊中加Public關(guān)鍵字定義（或缺?。┑倪^程，可供該應(yīng)用程序的所有窗體模塊和所有標(biāo)準(zhǔn)模塊中的過程調(diào)用。按過程的作用范圍來劃分，過程可分為：

模塊級過程

全局級過程6.7過程的作用范圍總結(jié)歸納過程的定義及作用域如下表生存期，也即變量能夠保持其值的時間。根據(jù)變量的生存期，可將變量分為動態(tài)變量和靜態(tài)變量

1.動態(tài)變量動態(tài)變量是指程序運(yùn)行進(jìn)入變量所在的過程時，才分配給該變量的內(nèi)存單元，經(jīng)過處理退出該過程時，該變量占用的內(nèi)存單元自動釋放，其值消失。當(dāng)再次進(jìn)入該過程時，所有的動態(tài)變量將重新初始化。使用Dim關(guān)鍵字在過程中聲明的局部變量屬于動態(tài)變量（補(bǔ)充）變量的生存期

靜態(tài)變量是指程序運(yùn)行進(jìn)入該變量所在的過程時，修改變量的值后退出該過程時，其值依然保留，變量所占的內(nèi)存單元不被釋放。當(dāng)再次進(jìn)入該過程時，原來的變量值可繼續(xù)使用。使用Static關(guān)鍵字在過程中聲明的局部變量屬于靜態(tài)變量。聲明形式：

Static變量名[AS類型]StaticFunction函數(shù)過程名([參數(shù)列表])[As類型]StaticSub子過程名[(參數(shù)列表)]

注意：過程名前加Static，表示該過程內(nèi)的局部變量都是靜態(tài)變量。2.靜態(tài)變量

例6.7使用StaticSub語句的示例

StaticSubSubtest()DimtAsInteger't為靜態(tài)變量

t=2*t+1PrinttEndSubPrivateSubCommand1_Click()CallSubtest'調(diào)用子過程SubtestEndSub2.靜態(tài)變量

例：有一個人編了下面一段程序，想用變量n記錄單擊窗體的次數(shù)。PrivateSubForm_Click()DimnAsIntegern=n+1Print"已單擊次數(shù)：";n&"次"EndSub靜態(tài)變量分析程序運(yùn)行后多次單擊窗體的輸出結(jié)果：

要記錄單擊窗體次數(shù)，如何實現(xiàn)？并比較使用模塊變量和靜態(tài)變量的差別。PrivateSubForm_Click()saticnAsIntegern=n+1Print"已單擊次數(shù)：";n&"次"EndSub

運(yùn)行后，多次單擊命令按鈕Command1,執(zhí)行結(jié)果為：

137……

將StaticSub改為PrivateSub后，運(yùn)行過程中多次單擊命令按鈕Command1，執(zhí)行結(jié)果為：

111……

6.8shell調(diào)用

Shell就是一個打開應(yīng)用程序的函數(shù)，所帶的參數(shù)為樣式參數(shù)。功能：執(zhí)行一個可執(zhí)行文件，返回一個Variant(Double)，如果成功的話，代表這個程序的任務(wù)

ID,若不成功，則會返回0。

格式：Shell(PathName[，WindowStyle])PathName為必需參數(shù)。類型為String，它指出了要執(zhí)行的程序名，以及任何需要的參數(shù)或命令行變量，也可以包括路徑名。

WindowStyle為可選參數(shù)。Integer類型，指定在程序運(yùn)行時窗口的樣式。如果windowstyle省略，則程序是以具有焦點的最小化窗口來執(zhí)行的。WindowStyle的取值及其描述如下表所示。1．

打開記事本

PrivateSubCommand1_Click()

Shell"NotepadE:\VB練習(xí)\添加DTPicker控件.txt",vbNormalFocus

EndSub注：NotePad后有空格2．

打開QQ登陸界面

PrivateSubCommand2_Click()

Shell"D:\ProgramFiles\Tencent\QQ2009\Bin\qq.exe",vbNormalFocus

EndSub3．

打開Word文檔

PrivateSubCommand3_Click(IndexAsInteger)

DimstrDirAsString

strDir="E:\VB練習(xí)\Test.doc"

SelectCaseIndex

Case0

Shell"C:\ProgramFiles\MicrosoftOffice\OFFICE11\WINWORD.EXE"&strDir,vbHide

Case1

Shell"C:\ProgramFiles\MicrosoftOffice\OFFICE11\WINWORD.EXE"&strDir,vbNormalFocus

Case2

Shell"C:\ProgramFiles\MicrosoftOffice\OFFICE11\WINWORD.EXE"&strDir,vbMinimizedNoFocus

Case3

Shell"C:\ProgramFiles\MicrosoftOffice\OFFICE11\WINWORD.EXE"&strDir,vbNormalNoFocus

Case4

Shell"C:\ProgramFiles\MicrosoftOffice\OFFICE11\WINWORD.EXE"&strDir,vbMax