《過程和函數(shù)》教學(xué)課件1

過程與函數(shù)

VisualBasic應(yīng)用程序是由過程組成的。過程是用來執(zhí)行特定任務(wù)的一段獨(dú)立的程序代碼。VisualBasic中的通用過程有：

Function過程(函數(shù)過程)Sub過程(子過程)Function過程VisualBasic系統(tǒng)提供的內(nèi)部函數(shù)大多數(shù)都是Function過程，我們可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用Function過程。

Function過程與Sub過程的功能類似，與Sub過程有一個(gè)重要的不同是Function過程可以向調(diào)用者返回一個(gè)值。

Function過程的定義[Private|Public][Static]Function過程名（[參數(shù)列表]）[As類型]

[語句塊] [過程名=表達(dá)式] [ExitFunction][語句塊]EndFunction

Function過程的定義“As

類型”是Function過程返回值的類型，可以是Integer、Long、Single、Double、String等，缺省是變體類型Variant。表達(dá)式的值是函數(shù)的返回值，如果在Function過程中省略“過程名=表達(dá)式”語句，那么該過程返回一個(gè)缺省值，數(shù)值過程返回0，字符過程返回空字符串。

Function過程的定義Function過程的定義過程有兩種方法：

使用“添加過程”對(duì)話框直接在代碼窗口中定義Function過程的調(diào)用與VisualBasic內(nèi)部函數(shù)的調(diào)用相同，一般格式為：變量=過程名([實(shí)參列表]）

Function過程的定義Function過程-例1用Function過程求3個(gè)數(shù)中的最大值。PrivateSubCommand1_Click()Dimx1!,x2!,x3!Dima!x1=Val(Text1.Text)x2=Val(Text2.Text)x3=Val(Text3.Text)

a=max(x1,x2,x3)Label4.Caption="最大值是"&aEndSubPrivateFunctionmax(xAsSingle,yAsSingle,zAsSingle)AsSingle

max=xIfy>maxThenmax=yIfz>maxThenmax=zEndFunction編寫求兩個(gè)數(shù)最大公約數(shù)的Function過程。程序界面中用兩個(gè)文本框輸入兩個(gè)數(shù)，在第三個(gè)文本框中顯示求得的兩個(gè)數(shù)的最大公約數(shù)。分析：求最大公約數(shù)用輾轉(zhuǎn)相除法，算法的思路是：兩個(gè)數(shù)x,y，y≠0，r為x,y兩數(shù)相除的余數(shù)

x←y，y←r，若y≠0，重復(fù)上面兩步，直到y(tǒng)=0為止

y=0，x即為最大公約數(shù)。Function過程-例2Sub過程的定義[Private|Public][Static]Sub過程名（[參數(shù)列表]）

[語句塊] [ExitSub][語句塊]EndSubSub過程的定義

通用Sub過程可放在標(biāo)準(zhǔn)模塊、窗體模塊和類模塊中。過程名的命名規(guī)則與變量的命名規(guī)則相同。參數(shù)列表指明在調(diào)用時(shí)傳送給過程的參數(shù)的個(gè)數(shù)和類型，含有在調(diào)用時(shí)傳給該過程的變量名或數(shù)組名，每個(gè)名字用逗號(hào)分隔，每個(gè)參數(shù)的格式為：

[ByVal|ByRef]變量名[()][As

數(shù)據(jù)類型]Sub過程的定義

使用“添加過程”對(duì)話框在窗體的代碼窗口或模塊的代碼窗口中，執(zhí)行“工具”/“添加過程”命令

直接在代碼窗口中定義

在代碼窗口中，把光標(biāo)定位在所有過程的外邊，或者選擇“對(duì)象”框中的“通用”，“過程”框中的“聲明”。

直接輸入過程的名稱，然后回車，代碼窗口中就會(huì)顯示過程模板。Sub過程的定義Sub過程的調(diào)用使用Call語句，其一般格式為：

Call

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

直接使用子過程名，其一般格式為：

過程名[實(shí)參列表]Sub過程的調(diào)用使用Call語句，其一般格式為：

Call

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

實(shí)參列表中的實(shí)際參數(shù)之間要用逗號(hào)分隔。使用Call語句調(diào)用過程時(shí)，如果過程本身沒有參數(shù)，括號(hào)可以省略。Sub過程的調(diào)用直接使用子過程名，其一般格式為：

過程名[實(shí)參列表]直接使用子過程名調(diào)用過程時(shí)，過程名后面不加括號(hào)，實(shí)參直接寫在過程名的后面，實(shí)參之間用逗號(hào)分隔。Sub過程-例1編寫Sub過程求3個(gè)數(shù)中的最大值分析：Sub過程max的功能是找出3個(gè)數(shù)中的最大值，然后在事件過程中調(diào)用該過程PrivateSubCommand1_Click()Dimx1AsSingle,x2AsSingle,x3AsSingleDimaAsSinglex1=Val(Text1.Text)x2=Val(Text2.Text)x3=Val(Text3.Text)Callmax(x1,x2,x3,a)Label4.Caption="最大值是"&aEndSubPrivateSubmax(xAsSingle,yAsSingle,zAsSingle,maxxAsSingle)maxx=xIfy>maxxThenmaxx=yIfz>maxxThenmaxx=zEndSubSub過程-例2編寫Sub過程，把當(dāng)前運(yùn)行的窗體移到屏幕的中央PrivateSubForm_Click()

CallcenterEndSubPrivateSubcenter()Form1.Top=(Screen.Height-Form1.Height)/2Form1.Left=(Screen.Width-Form1.Width)/2EndSubPrivateSubCommand1_Click()DimaAsInteger,bAsInteger

dimx1asinteger

a=Val(Text1.Text)b=Val(Text2.Text)

x1=gcd(a,b)Text3.Text=x1EndSubFunctiongcd(ByValxAsInteger,ByValyAsInteger)AsIntegerDimrAsIntegerDoWhiley<>0r=xModyx=yy=rLoop