VB程序設(shè)計(jì)子程序課件

第四章過程與函數(shù)對(duì)于某些多次反復(fù)執(zhí)行的程序段，我們可以將它定義成子程序。子程序分為過程和函數(shù)。定義在代碼窗口中直接定義

子過程形式如下：[Public/Private]sub子程序名[(參數(shù)列表)]

語句

[ExitSub]

語句

EndSub函數(shù)過程形式如下：[Public/Private]Function函數(shù)名([參數(shù)列表])[As類型]

語句

函數(shù)名=返回值

[ExitFunction]

語句

函數(shù)名=返回值

EndFunction調(diào)用子程序名[參數(shù)列表]

/Call子程序名[(參數(shù)列表)]變量名=函數(shù)名（[參數(shù)列表]）例：過程調(diào)用

callexchange(a,b)或exchange(a,b)例：函數(shù)調(diào)用Printmaxnum(a,b)X=maxnum(a,b)例5.1編一交換兩個(gè)數(shù)的過程。PrivateSubjiaohuan(xAsInteger,yAsInteger)

DimtAsIntegert=xx=yy=tEndSub形參：x,y數(shù)據(jù)傳遞方式:地址傳遞參數(shù)傳遞PrivateSubForm_Click()DimaAsInteger,bAsIntegera=10:b=20Print"原值：";"a1=";a,"b1=";bcalljiaohuan(a,b)Print"交換后:";"a1=";a,"b1=";bEndSub過程的作用域(1)窗體中的過程private子程序只能在本窗體中調(diào)用public子程序可以在其它窗體中應(yīng)用，但調(diào)用方式為窗體名.過程名(2)標(biāo)準(zhǔn)模塊中的過程

public可以在任意窗體和模塊中使用遞歸

用自身的結(jié)構(gòu)來描述自身稱為“遞歸”。遞歸總有一個(gè)“結(jié)束條件”，此結(jié)束條件稱為“邊界條件”。例1：五個(gè)人論歲數(shù)，第一個(gè)人說比第二個(gè)人大2歲，第二個(gè)人說比第三個(gè)人大2歲，第三個(gè)人說比第四個(gè)人大2歲，第四個(gè)人說比第五個(gè)人大2歲，第五個(gè)說他10歲，問每人多大歲數(shù)？遞歸

s(5)=s(4)+2 s(5)=18 s(4)=s(3)+2 s(4)=16 s(3)=s(2)+2 s(3)=14 s(2)=s(1)+2s(2)=12s(1)=10遞推回推代碼如下：PrivateFunctionfac(nasinteger)

ifn=1then

fac=1

else

fac=n*fac(n-1)

endifEndFunction菲波那契數(shù)列前兩項(xiàng)為1，從第三項(xiàng)開始，其值為它前面兩項(xiàng)的和。PrivateFunctionfibo(nAsInteger)Ifn=1Orn=2Thenfibo=1Elsefibo=fibo(n-1)+fibo(n-2)EndIfEndFunction代碼如下：PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,kAsIntegerPicture1.clsn=Val(Text1.Text)Fori=1TonPicture1.Printfibo(i);"";k=k+1Ifk=5Thenk=0Picture1.PrintEndIfNextIEndSub要判斷一個(gè)數(shù)x是否是素?cái)?shù)，需要判斷x是否能

被2至x-1內(nèi)的某一個(gè)自然數(shù)整除。若都不能

整除，則x是素?cái)?shù)。（所以，判斷一個(gè)數(shù)是否為素?cái)?shù)，只要看在2到它的平方根之間有沒有約數(shù)。

例題：素?cái)?shù)123466912183636的所有約數(shù)：分布在6兩側(cè)第一次從未排好序的數(shù)組中