《過程和函數》教學課件1

過程與函數

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

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

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

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

[語句塊] [過程名=表達式] [ExitFunction][語句塊]EndFunction

Function過程的定義“As

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

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

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

Function過程的定義Function過程-例1用Function過程求3個數中的最大值。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編寫求兩個數最大公約數的Function過程。程序界面中用兩個文本框輸入兩個數，在第三個文本框中顯示求得的兩個數的最大公約數。分析：求最大公約數用輾轉相除法，算法的思路是：兩個數x,y，y≠0，r為x,y兩數相除的余數

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

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

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

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

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

數據類型]Sub過程的定義

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

直接在代碼窗口中定義

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

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

Call

過程名([實參列表])

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

過程名[實參列表]Sub過程的調用使用Call語句，其一般格式為：

Call

過程名([實參列表])

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

過程名[實參列表]直接使用子過程名調用過程時，過程名后面不加括號，實參直接寫在過程名的后面，實參之間用逗號分隔。Sub過程-例1編寫Sub過程求3個數中的最大值分析：Sub過程max的功能是找出3個數中的最大值，然后在事件過程中調用該過程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過程，把當前運行的窗體移到屏幕的中央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