VB过程和参数传递.ppt

VB程序设计教程,沈美莉 马银晓 陈孟建 编著,1,第七章 过程,一、Sub过程二、Function过程三、参数的传递四、可变参数与对象参数,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,2,第一节 Sub过程,过程实际上就是其他语言中的子程序，子程序是一个相对独立的应用程序，它可以被其他程序所调用，当然，它也能够调用其他的子程序。在Visual Basic语言中提供了两类过程，一类是子程序过程，又称为Sub过程，另一类是函数过程，又称为Function过程。一、创建Sub过程1定义Sub过程格式：staticprivatepublic sub 过程名（参数表列）Exit subEnd sub,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,3,第一节 Sub过程,2注意事项（1）sub过程以sub开始，以End sub结束。（2）参数static指的是在过程中的变量为static型。（3）private指的是过程是私有过程，只能被本模块中的其他过程访问。（4）public指的是过程是公有过程，可以在程序的任何地方调用它。（5）过程名指的是过程的一个名称，是一个长度不超过255字符的变量名。（6）参数表列指的是，调用时传递给过程的参数的类型和个数，每个参数的格式为：By Val 变量名（）As 数据类型（7）Sub过程不能嵌套，也就是说，在sub过程内，不能定义sub过程或function过程；也不能用gosub、goto或return语句进入或退出一个sub过程，只能通过调用执行sub过程。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,4,第一节 Sub过程,3建立sub过程的方法（1）方法一 双击窗体打开代码设计窗口，或利用“添加模块”功能，打开模块代码窗口。单击“工具”模块下的“添加过程”功能，系统弹出如下图所示的“添加过程”对话框。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,5,第一节 Sub过程,在图中的名称文本框中输入过程名称为：ppa。在“类型”选项中选择“子程序”单选框。在“范围”选项中选择“公有的”单选框。单击“确定”按钮即可建立一个Sub过程，用户可以在Sub ppa与End Sub之间增添程序代码了。（2）方法二 单击“工程”模块下的“添加模块”功能。打开模块代码窗口，并键入过程的名字。例如：键入：sub ppa(),并按回车键，即可建立一个Sub过程，如下图所示。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,6,第一节 Sub过程,二、调用sub过程调用Sub过程有两种方法，一种方法是使用Call调用过程语句来调用过程，另一种方法是将过程名作为一个语句来使用。1用call调用语句（1）格式Call 过程名（）（2）功能Call语句把程序控制传递到一个Visual Basic语言的Sub过程。Call语句调用一个过程时，如果过程本身没有参数，则和括号可以省略；否则，应给出相应的实际参数，并把参数放在括号中。实际参数是传递给sub过程的变量或常数的。例如：Call ppa(a,b),VB程序设计教程,沈美莉 马银晓 陈孟建 编著,7,第一节 Sub过程,2把过程作为一个语句来使用在调用sub过程时，如果省略关键字Call，就成为调用sub过程的第二种方式。其格式为：过程名 与第一种方式相比，它有两点不同：（1）去掉了关键字Call（2）去掉了中的括号。例如：ppa a,b【例题5.15】编写一个计算圆面积的sub 过程，然后，调用该过程计算圆面积。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,8,第一节 Sub过程,Private Sub Command1_Click()Dim a,ba=Val(InputBox(请输入圆半径,输入数据,1)circul aEnd SubPrivate Sub circul(r)Dim areaarea=3.1415926*r*rPrint 圆的面积为;areaMsgBox(圆面积为&area)End Sub以上程序创建一个计算圆面积的子程序，即Sub circul(r)过程，该过程的实参表为r，调用过程的方法是将过程作为一个语句，即，circul a。,返回本章首页,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,9,第二节 Function过程,一、Function过程的定义1.格式staticprivatepublic Function（）As=Exit FunctionEnd Function2.功能定义一个Function过程。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,10,第二节 Function过程,3.注意事项（1）定义Function过程时，必须以Function开始，以End Function结束。在其之间是描述过程操作的语句组，可以是一个语句，也可以是若干个语句，中的语句也称为“函数体”。（2）调用Sub过程相当于执行一个语句，不返回值，可以作为独立的基本语句调用，而调用Function过程要返回一个值，因此，可以象内部函数一样在表达式中使用。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,11,第二节 Function过程,二、调用Function过程Function过程的调用比较简单，可以象一个函数一样调用，其调用格式为：=（）【例题5.16】编写一个求最大公约数（GCD）的函数过程，并调用该函数。【程序代码】（1）创建GCD函数Function gcd(ByVal x As Integer,ByVal y As Integer)As IntegerDim reminder As IntegerDo While y 0reminder=x Mod yx=yy=reminderLoopgcd=xEnd Function,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,12,第二节 Function过程,（2）调用GCD函数：Private Sub Command1_Click()Dim a As Integer,b As Integera=Val(InputBox(输入第一个整数,输入数据,0)b=Val(InputBox(输入第二个整数,输入数据,0)x=gcd(a,b)Print a=;a,b=;bPrint 最大公约数CD=;xEnd Sub,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,13,第二节 Function过程,【例题5.17】输入三个整数，求出其中最大值。【程序代码】（1）主程序段Private Sub Command1_Click()Dim a,b,c,q As Integera=Val(InputBox(请输入第一个数据,输入数据,0)b=Val(InputBox(请输入第二个数据,输入数据,0)c=Val(InputBox(请输入第三个数据,输入数据,0)q=max(a,b)第一次调用max函数，求出a、b中最大值q=max(q,c)第二次调用max函数，求出 a、b、c中最大值Print 最大值为：;qEnd Sub,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,14,第二节 Function过程,（2）Function函数段Function max(x,y)As Integer 函数max其功能是求出两个数中的最大值Dim z As Integer If(x y)Then z=y Else z=xEnd Ifmax=z End Function 运行该程序后，即可比较三个数中的最大值，在主程序中共调用二次max()函数，调用第一次时比较a和b两个数的大小，将大的数赋值给q变量，再调用一次时，将比较q和c两个数的大小，返回时得到三个数中的最大值。如果需要对四个数比较，可以增加一次调用max()的函数，若再增加数的个数，只需要增加调用函数的次数即可。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,15,第二节 Function过程,【例题5.18】（1）主程序段Private Sub Command1_Click()Dim m,n,k,l,q,w As Singlem=Val(InputBox(请输入m数据,输入数据,0)n=Val(InputBox(请输入n据,输入数据,0)k=fac(m)第一次调用fac函数 l=fac(n)第二次调用fac函数q=fac(m-n)第三次调用fac函数w=k/(l*q)Print 组合数C“;m;n;”的值是：;wEnd Sub,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,16,第二节 Function过程,（2）fac函数段Function fac(x)Dim fa As SingleDim i As Integerfa=1For i=1 To xfa=fa*ifac=faNext iEnd Function运行该程序后，显示结果如下图所示。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,17,第二节 Function过程,返回本章首页,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,18,第三节 参数的传递,一、形参与实参形参是在Sub和 Function过程的定义中出现的变量名，实参则是在调用Sub或 Function过程时传递给Sub或Function过程的常数、变量、表达式或数组。1按位置传递定义一个函数的目的是用来被其他程序调用，在调用函数时，大多数情况下，主调用函数和被调用函数之间有数据传递关系，这就是有参函数，在定义函数时函数名后面括号中的变量称为“形式参数”，在调用函数时，函数名后面括号中的表达式称为“实际参数”。所谓按位置传递指的是实际参数的次序与形式参数的次序相一致。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,19,第三节 参数的传递,例如：Function fac(a,b)fac=faEnd Function调用fac函数时，可以使用以下语句来完成：Private Sub Command1_Click()Call fac(x,y)End sub 以上程序中的a和b是两个形式参数，而 x和y是两个实际参数。这样就完成了形参与实参的结合，其关系如下图所示。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,20,第三节 参数的传递,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,21,第三节 参数的传递,2注意事项（1）在传递时，形参表与实参表中对应变量的名字不必相同，但是它们所包含的参数的个数必须相同。（2）实参表中的数据类型必须与形参表中的数据类型相匹配。（3）实参表与形参表中的各个变量，可以使用逗号相分隔。（4）实参表中的各个参数可以是常量、变量、数组、表达式等。二、按地址传递在Visual Basic语言中，参数通过按地址传递的方法通常将它称为“引用”，在默认的情况下，变量都是通过“引用”来传递Sub或Function过程的。在这种情况下，可以通过改变过程中相应的参数来改变该变量的值。这意味着，当通过“引用”来传递实参时，有可能改变传递给过程的变量的值。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,22,第三节 参数的传递,例如：Function fac(a As Integer,b As Integer,c As String)a=a+258b=b*8c=c+a+bEnd FunctionPrivate Sub Command1_Click()Dim x As Integer,y As IntegerDim z As Stringx=100y=20z=xyzCall fac(x,y,z)Print x=;x,y=;y,z=;zEnd Sub,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,23,第三节 参数的传递,通用过程fac函数的操作很简单，即把传递过来的x参数加上258，y参数乘以8，z连接z与x和y，然后输出x,y，z的值。在事件过程中，通过“Call fac(x,y,z)”语句调用过程fac函数，实参x,y,z的值分别为100、20和xyz，传递给fac函数后进行如下计算：a=a+258=100+258=358b=b*8=20*8=160c=c+“a”+“b”=xyzab所以运行以上程序的结果，如下图所示。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,24,第三节 参数的传递,为什么会出现这种现象呢？原来，变量（即实参）的值是存放在内存的某个地址中，当通过按地址传递来调用一个过程时，向该地址传递变量，实际上是把变量的地址传递给该过程，因此，变量的地址和被调用过程中相应的地址是相同的，这样，如果通用过程中的操作修改了参数的值，那么，它同时也修改了传送给过程的变量的值，如果不希望在调用过程时改变变量的值，则应把变量的值传递给参数，即传值，而不要传递变量的地址。三、按数值传递所谓按数值传递就是通过数值传递实际参数，即传递实参时只传递它的数值而不是传递它的地址。在这种情况下，系统把需要传递的变量复制到一个临时内存中的存储单元中，然后，把该临时单元地址传递给被调用的通用过程。由于通用过程没有访问变量（实参）的原始地址，因而，不会改变原来变量的值，所有的变化都是在变量的副本上进行的。在Visual Basic语言中，传值方式是通过关键字ByVal来实现的，也就是说，在定义通用过程时，如果形参前面有关键字Byval，则该参数用传值方式传递，否则，就用“引用”方式传递。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,25,第三节 参数的传递,例如：function fac(BYVal a As Single)a=x+100End Sub这里的形参a前有关键字ByVal，所以在调用时以传值方式传递实参，在传值方式下，Visual Basic为形参分配内存空间，并将相应的实参值拷贝给各形参。要注意的是：传地址比传值效率高，但在传地址方式中，形参不是一个真正的局部变量，有可能对程序的执行产生不必要的干扰，而在传值方式中，形参是一个真正的局部变量，当在程序的其他地方使用时，不会对程序产生干扰。在有些情况下，只有用传值方式才能得到正确的结果。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,26,第三节 参数的传递,【例题5.19】输入两个整数，判断其大小，若ij，输出1，若ij，输出-1，i=j输出0。调用函数fac(i,j)进行判断。（1）主程序段Private Sub Command1_Click()Dim i,j,p As IntegerPrint 请输入两个数值i=Val(InputBox(请输入第一个数值,输入数据,0)j=Val(InputBox(请输入第二个数值,输入数据,0)Print i,jp=fac(i,j)调用函数，其中i和j是实在参数Print p=;pEnd Sub,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,27,第三节 参数的传递,（2）fac函数段Function fac(ByVal a As Integer,ByVal b As Integer)Dim c As IntegerIf a b Thenc=1ElseIf a b Then c=-1Elsec=0End IfEnd Iffac=cEnd Function,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,28,第三节 参数的传递,【例题5.20】调用swap函数,使其交换两个参数的值。（1）主程序段Private Sub Command1_Click()Dim i,j As Integeri=Val(InputBox(,0)j=Val(InputBox(,0)Print i=;i,j=;jCall swap(i,j)End Sub,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,29,第三节 参数的传递,（2）swap函数段Function swap(ByVal a As Integer,ByVal b As Integer)Dim c As Integerc=aa=bb=cPrint a=;a,b=;bEnd Function,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,30,第三节 参数的传递,四、数组参数的传递Visual Basic允许把数组作为实参传递到过程中，例如，假设定义了如下过程：Function Setu(a(),b()End Function该过程有两个形参，这两个形参都是数组。注意，用数组作为过程的参数时，应在数组名的后面加一对括号，以免与普通变量相混淆。可以用下面的语句调用该过程：Call Setu(p(),q()这样就把数组p和q传递给过程中的数组a和b。当用数组作为过程的参数时，使用的是“传地址”方式，而不是“传数值”方式，即不是把P数组中各元素的值一一传递给过程的a数组，而是把P数组的起始地址传给过程，使a数组也具有与P数组相同的起始地址。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,31,第三节 参数的传递,【例题5.21】由随机函数产生10个数据的数组，调用排序函数将其排序后返回函数值，由主程序输出其排序的值。（1）通用声明段Dim p()As Integer（2）主程序段Private Sub Command1_Click()Dim a,b As IntegerReDim p(10)Print 调用函数前的数组值：PrintFor a=1 To 10p(a)=Int(100*Rnd(),VB程序设计教程,沈美莉 马银晓 陈孟建 编著,32,第三节 参数的传递,Print p(a);Next aPrintCall sort(p()Print 调用函数后的数组值：PrintFor b=1 To 10Print p(b);Next bPrintEnd Sub,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,33,第三节 参数的传递,（3）sort排序函数段Function sort(a()As Integer)Dim i,j,t As IntegerFor i=1 To 9For j=i+1 To 10If a(i)a(j)Thent=a(i)：a(i)=a(j)：a(j)=tEnd IfNext jNext iPrintEnd Function运行该程序后，显示结果如下图所示。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,34,第三节 参数的传递,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,35,第三节 参数的传递,五、可选参数与可变参数1可选参数所谓可选参数是指在函数调用过程中，可以指定一个或多个参数作为可选参数。在定义带可选参数的过程时，必须在参数表中使用Optional关键字，并在过程体中通过IsMissing函数测试调用时是否传递了可选参数，以便在过程体中针对不同的参数个数加以处理。【例题5.22】编写一个既能传递2个参数也能传递3个参数的一个过程，该过程实现对参数的累加功能，并在输出它们的累计值。【程序代码】Private Sub Command1_Click()Dim x,y,z As IntegerPrint 输出2个参数累计值Call mul(10,25)Print 输出3个参数累计值Call mul(10,25,38)End Sub,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,36,第三节 参数的传递,（2）mul函数段Function mul(a As Integer,b As Integer,Optional c)Dim sum As Integersum=a+bIf Not IsMissing(c)Thensum=sum+cEnd IfPrint sum=;sumEnd Function运行该程序后，显示结果如下图所示。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,37,第三节 参数的传递,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,38,第三节 参数的传递,2使用可选参数时的注意事项（1）可选参数必须放在参数表的最后，并且该参数的数据类型必须是变体类型，即是Variant类型。（2）在编写过程代码时，通过IsMissing函数测试实际调用时是否传递了这个可选参数，该函数的返回值是一个逻辑值，即当该值为True时，表示调用时没有传递这个可选参数，否则，当该值为False时，表示调用时已经传递了这个可选参数。（3）IsMissing函数有一个参数，这个参数就是Optional所指定的形参的名字。3可变参数所谓可变参数是指在函数调用过程中，可以定义接受任意个数的参数的传递。使用这个可变参数的过程时，必须通过ParamArray这个关键字来定义，其一般格式为：Function（ParamArray（）,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,39,第三节 参数的传递,【例题5.23】编写一个对多个数的累乘和，利用它可以实现对任意多个数的累乘和。（1）主程序段Private Sub Command1_Click()Print 输出3个参数累乘值Call total(2,4,6)Print 输出5个参数累乘值Call total(2,4,6,8,10)Print 输出7个参数累乘值Call total(2,4,6,8,10,12,14)End Sub,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,40,第三节 参数的传递,（2）total函数段Function total(ParamArray sum()Dim s As Singles=1For Each x In sums=s*xNext xPrint s=;sEnd Function运行该程序后，显示结果如下图所示。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,41,第三节 参数的传递,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,42,第三节 参数的传递,六、对象参数对象参数是指使用对象作为过程的参数进行传递，例如，窗体或控件可以作为通用过程的参数。用对象作为参数与一般数据类型作为参数的过程在定义和调用时没有什么区别，所以，在某些情况下，使用对象参数可以简化程序设计，提高效率。对象作为过程的参数的格式为：Function（）Exit Function End Function,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,43,第三节 参数的传递,1窗体参数所谓窗体参数指的是以窗体为对象实现数据参数的传递。2控件参数所谓控件参数指的是以控件为对象实现数据参数的传递，与窗体参数一样，在使用时，可在一个通用过程中对控件类型的形参设置所需要的属性，然后，再用不同的控件调用此过程。在用控件作为参数调用时，作为实参的控件必须具有通用过程中所用到的形参控件的属性，否则，系统将会按出错处理。为了判断某个控件是不是属于某种控件类型，Visual Basic专门提供了一个语句用来进行检测，其语句的格式如下：Typeof Is 该语句的功能是，测试是否属于。在使用中Typeof 语句通常放在通用过程中，为控件参数（即，形参）的名字，是代表各种不同控件的关键字，这些关键字如下表所示。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,44,第三节 参数的传递,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,45,第三节 参数的传递,七、Shell函数通过前面的介绍，我们已经知道Visual Basic语言可以调用过程或函数，这些过程或函数可以由用户根据情况进行自定义，也可以是系统事先定义好的那么过程或函数。其实，Visual Basic语言不但可以调用过程或函数，而且还能调用各种应用程序，凡是能在DOS或Windows环境下运行的应用程序，基本上都可以使用通过Shell函数功能来实现。1.Shell函数格式Shell(，)例如：Shell(“C:program FilesMicrosoft OfficeOfficeExcel.exe”,1)Shell(“C:windowswinword.exe”,3),VB程序设计教程,沈美莉 马银晓 陈孟建 编著,46,第三节 参数的传递,2.Shell函数功能Shell函数的功能是调用一个应用程序，返回一个Variant(Double)。如果成功的话，则代表这个程序的任务标识ID号，如果不成功的话，则返回一个0。格式中的是要执行的应用程序的文件名，该文件名包括盘符、路径，它必须是一个可执行的文件，其扩展名为：.Com、.Exe、.Bat、.Pif等。要注意的是Shell函数是采用异步的方式来执行其他应用程序的。也就是说，用Shell启动的程序可能还没有执行完，就已经开始执行shell函数后面的语句了。格式中的是执行应用程序时应用程序所据有窗口的大小，Visual Basic提供了以下几种窗口类型，见下表所示。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,47,第三节 参数的传递,返回本章首页,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,48,第四节 可变参数与对象参数,一、可选参数1什么是可选参数所谓可选参数是指在函数调用过程中，可以指定一个或多个参数作为可选参数。在定义带可选参数的过程时，必须在参数表中使用Optional关键字，并在过程体中通过IsMissing函数测试调用时是否传递了可选参数，以便在过程体中针对不同的参数个数加以处理。2使用可选参数时的注意事项（1）可选参数必须放在参数表的最后，并且该参数的数据类型必须是变体类型，即是Variant类型。（2）在编写过程代码时，通过IsMissing函数测试实际调用时是否传递了这个可选参数，该函数的返回值是一个逻辑值，即当该值为True时，表示调用时没有传递这个可选参数，否则，当该值为False时，表示调用时已经传递了这个可选参数。（3）IsMissing函数有一个参数，这个参数就是Optional所指定的形参的名字。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,49,第四节 可变参数与对象参数,二、可变参数所谓可变参数是指在函数调用过程中，可以定义接受任意个数的参数的传递。使用这个可变参数的过程时，必须通过ParamArray这个关键字来定义，其一般格式为：Function（ParamArray（）习题：书中例题,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,50,第四节 可变参数与对象参数,三、对象参数对象参数是指使用对象作为过程的参数进行传递，例如，窗体或控件可以作为通用过程的参数。用对象作为参数与一般数据类型作为参数的过程在定义和调用时没有什么区别，所以，在某些情况下，使用对象参数可以简化程序设计，提高效率。对象作为过程的参数的格式为：Function（）Exit Function End Function,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,51,第四节 可变参数与对象参数,四、Shell函数通过前面的介绍，我们已经知道Visual Basic语言可以调用过程或函数，这些过程或函数可以由用户根据情况进行自定义，也可以是系统事先定义好的那么过程或函数。其实，Visual Basic语言不但可以调用过程或函数，而且还能调用各种应用程序，凡是能在DOS或Windows环境下运行的应用程序，基本上都可以使用通过Shell函数功能来实现。,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,52,第四节 可变参数与对象参数,1.Shell函数格式Shell(，)例如：Shell(“C:program FilesMicrosoft OfficeOfficeExcel.exe”,1)Shell(“C:windowswinword.exe”,3)2.Shell函数功能Shell函数的功能是调用一个应用程序，返回一个Variant(Double)。如果成功的话，则代表这个程序的任务标识ID号，如果不成功的话，则返回一个0。格式中的是要执行的应用程序的文件名，该文件名包括盘符、路径，它必须是一个可执行的文件，其扩展名为：.Com、.Exe、.Bat、.Pif等。要注意的是Shell函数是采用异步的方式来执行其他应用程序的。也就是说，用Shell启动的程序可能还没有执行完，就已经开始执行shell函数后面的语句了。,返回本章首页,VB程序设计教程,沈美莉 马银晓 陈孟建 编著,53,本次课程结束谢谢合作！,