第5章 过程.ppt

《第5章 过程.ppt》由会员分享，可在线阅读，更多相关《第5章 过程.ppt（30页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第5 5章章 数组与过程数组与过程5.4 Sub5.4 Sub过程的定义及调用过程的定义及调用在应用程序的编写中，为各个相对独立的功能模块所编写的一段在应用程序的编写中，为各个相对独立的功能模块所编写的一段在应用程序的编写中，为各个相对独立的功能模块所编写的一段在应用程序的编写中，为各个相对独立的功能模块所编写的一段程序称之为过程。程序称之为过程。程序称之为过程。程序称之为过程。VBVB应用程序其实是由过程组成的，这些过程可应用程序其实是由过程组成的，这些过程可应用程序其实是由过程组成的，这些过程可应用程序其实是由过程组成的，这些过程可分为两大类：分为两大类：分为两大类：分为两大类：其中一类

2、是系统提供的事件过程，例如窗体、命令按钮的其中一类是系统提供的事件过程，例如窗体、命令按钮的其中一类是系统提供的事件过程，例如窗体、命令按钮的其中一类是系统提供的事件过程，例如窗体、命令按钮的ClickClick事事事事件过程等。事件过程是构成件过程等。事件过程是构成件过程等。事件过程是构成件过程等。事件过程是构成VBVB应用程序的主体，由事件触发执行，应用程序的主体，由事件触发执行，应用程序的主体，由事件触发执行，应用程序的主体，由事件触发执行，例如单击按钮，则按钮的例如单击按钮，则按钮的例如单击按钮，则按钮的例如单击按钮，则按钮的ClickClick事件过程就会执行。事件过程就会执行。事件

3、过程就会执行。事件过程就会执行。另一类过程是通用过程，由用户根据需要自行定义，以供事件过另一类过程是通用过程，由用户根据需要自行定义，以供事件过另一类过程是通用过程，由用户根据需要自行定义，以供事件过另一类过程是通用过程，由用户根据需要自行定义，以供事件过程调用。在程序中，有些处理需要经常重复进行，这些处理的代程调用。在程序中，有些处理需要经常重复进行，这些处理的代程调用。在程序中，有些处理需要经常重复进行，这些处理的代程调用。在程序中，有些处理需要经常重复进行，这些处理的代码是相同的，只不过每次都以不同的参数调用。例如，计算正整码是相同的，只不过每次都以不同的参数调用。例如，计算正整码是相同

4、的，只不过每次都以不同的参数调用。例如，计算正整码是相同的，只不过每次都以不同的参数调用。例如，计算正整数数数数1+2+3+N1+2+3+N的累加和，的累加和，的累加和，的累加和，N N的大小可以由用户决定，因此它是不的大小可以由用户决定，因此它是不的大小可以由用户决定，因此它是不的大小可以由用户决定，因此它是不确定的。这样就可以定义一个以确定的。这样就可以定义一个以确定的。这样就可以定义一个以确定的。这样就可以定义一个以N N为参数的过程，以不同的参数为参数的过程，以不同的参数为参数的过程，以不同的参数为参数的过程，以不同的参数N N调用该过程求和。使用过程的好处可以减少重复编写代码的工作调

5、用该过程求和。使用过程的好处可以减少重复编写代码的工作调用该过程求和。使用过程的好处可以减少重复编写代码的工作调用该过程求和。使用过程的好处可以减少重复编写代码的工作量，使程序简练、便于调试和维护。通用过程又分为量，使程序简练、便于调试和维护。通用过程又分为量，使程序简练、便于调试和维护。通用过程又分为量，使程序简练、便于调试和维护。通用过程又分为SubSub子过程子过程子过程子过程（简称子过程）和（简称子过程）和（简称子过程）和（简称子过程）和FunctionFunction函数过程（简称函数过程）。函数过程（简称函数过程）。函数过程（简称函数过程）。函数过程（简称函数过程）。5.4.1 5

6、.4.1 子过程的定义子过程的定义v子过程定义的格式为：子过程定义的格式为：vStaticPrivate|Public Sub 过程名过程名(参数列表参数列表)v 语句序列语句序列vExit Subv 语句序列语句序列vEnd Subv说明：说明：v 通用子过程的结构与事件过程的结构类似，以通用子过程的结构与事件过程的结构类似，以Sub开头，以开头，以End Sub结结束，二者之间的程序段就是能够完成某个功能的语句序列，称为束，二者之间的程序段就是能够完成某个功能的语句序列，称为“过程体过程体”或或“子程序体子程序体”。v Static：表示过程中的局部变量为：表示过程中的局部变量为“静态静态

7、”变量。变量。vPrivate|Public：子过程分为公有（：子过程分为公有（Public）过程和私有（）过程和私有（Private）过程）过程两种，公有过程可以被应用程序中的任一过程调用，而私有过程只能被同一两种，公有过程可以被应用程序中的任一过程调用，而私有过程只能被同一模块中的过程调用。缺省模块中的过程调用。缺省Private|Public时，系统默认为时，系统默认为Public。v过程名：与变量名的命名规则相同。在同一个模块中，同一符号名不能既过程名：与变量名的命名规则相同。在同一个模块中，同一符号名不能既用作用作Sub过程名，又用作过程名，又用作Function过程名。无论有无参数

8、，过程名后的圆过程名。无论有无参数，过程名后的圆括号都不能省略。括号都不能省略。vExit Sub：在过程中的任意位置终止过程的运行，并退出该：在过程中的任意位置终止过程的运行，并退出该过程。过程。vEnd Sub：过程结束的标识，用来正常终止过程，每个：过程结束的标识，用来正常终止过程，每个Sub过程必须有一个过程必须有一个End Sub语句。语句。v子过程定义内部不能再定义其它过程，也不能用子过程定义内部不能再定义其它过程，也不能用GoTo、GoSub或或Return语句进入或退出子过程，但可以通过嵌套调用语句进入或退出子过程，但可以通过嵌套调用执行其它合法的过程。执行其它合法的过程。参数

9、说明参数说明组成部分组成部分含义含义ByVal表示该参数是按值传递表示该参数是按值传递ByRef表示该参数按地址传递（过程中参数的默认传递方式）表示该参数按地址传递（过程中参数的默认传递方式）变量名变量名()表示可以使用合法的表示可以使用合法的VB变量名。如果是数组，要在数组名后面加变量名。如果是数组，要在数组名后面加上上“()”数据类型数据类型可以是可以是Integer、Long、Single、String等类型或用户自定义类型。等类型或用户自定义类型。默认为默认为Variant例例 编写一个交换两个整型变量值的子过程。PrivateSubSwap(xAsInteger,yAsInteger

10、)DimtempAsInteger Temp=xx=yy=TempEndSub 5.4.2 5.4.2 子过程的建立子过程的建立v创建子过程有两种方法。创建子过程有两种方法。v1在窗体模块中建立子过程在窗体模块中建立子过程v操作步骤如下：操作步骤如下：v双击窗体进入代码窗口，在双击窗体进入代码窗口，在“对象对象”下拉列表框中选择下拉列表框中选择“通用通用”，在，在“过过程程”下拉列表框中选择下拉列表框中选择“声明声明”；v在窗口内输入在窗口内输入“Sub”和和“过程名过程名”，然后按，然后按Enter键。系统自动在过程名键。系统自动在过程名后加圆括号，并把后加圆括号，并把End Sub语句写入

11、下一行。这时，语句写入下一行。这时，“过程过程”下拉列表框下拉列表框中显示用户输入的过程名，如图所示。中显示用户输入的过程名，如图所示。v 在在Sub和和End Sub语句之间输入所需的语句序列。语句之间输入所需的语句序列。v2在代码窗口中创建子过程在代码窗口中创建子过程v操作步骤如下：操作步骤如下：v 打开代码窗口；打开代码窗口；v 执行执行“工具工具”“添加过程添加过程”菜单命令；菜单命令；v 在打开的在打开的“添加过程添加过程”对话框中输入对话框中输入Sub过程名，在过程名，在“类型类型”栏中选定栏中选定类型为类型为“子程序子程序”，在，在“范围范围”栏中选定是栏中选定是“公有的公有的”

12、或或“私有的私有的”，单击，单击“确定确定”按钮，如左下图所示；按钮，如左下图所示；v 在在Sub和和End Sub语句之间输入所需的语句序列，如右下图所示。语句之间输入所需的语句序列，如右下图所示。5.4.3 5.4.3 子过程的调用子过程的调用v子过程的执行必须通过调用来完成，子过程的调用是一个独立的语句。Sub事件过程可由事件自动调用，或在同一模块中的其它过程中使用调用语句调用。调用子过程有以下两种方式：v1使用Call语句v语法格式为：vCall 过程名过程名(参数列表参数列表)vCall语句把程序控制转到由“过程名”指定的子过程。用Call语句调用子过程时，如果该过程没有参数，则实际

13、参数可以省略，其圆括号也可以省略，否则应给出相应的实际参数，并把参数放在圆括号中。实际参数是传送给子过程的变量、常数、数组和表达式，其类型应尽量与相应形式参数的类型一致。例例 使用Call语句调用上面定义的Swap子过程的程序如下：PrivateSubCommand1_Click()DimsAsInteger,tAsIntegers=123t=456CallSwap(s,t)Prints=;s,，t=;tEndSub程序运行后显示：s=456，t=1232.直接把子过程名作为语句使用语法格式为：过程名参数列表这种方法与使用Call语句相比，去掉了关键字和实参列表的括号。另外，调用子过程必须是一

14、个独立的语句，不能在表达式中调用子过程。例如：调用前面定义的Swap子过程的形式是：Swaps,t例例 编写一个求n！的子过程，然后调用它计算6！7！8！。Subjc(nAsInteger,sAsLong)DimiAsIntegers=1Fori=1Tons=s*iNextiEndSubPrivateSubForm_Click()DimaAsLong,bAsLong,cAsLong,dAsLongCalljc(6,a)Calljc(7,b)jc8,cd=a+b-cPrint6!+7!8!=;dEndSubv程序运行后显示：6!+7!8!=345605.5 函数过程的定义与调用 v在在VB中，用

15、中，用Function语句定义的过程称为函数过程。函数过程定义的格式为：语句定义的过程称为函数过程。函数过程定义的格式为：vStaticPublic|Private Function函数名函数名(参数列表参数列表)As 数据类型数据类型v语句序列语句序列v Exit Functionv语句序列语句序列v函数名函数名=返回值返回值vEnd Functionv说明：说明：v 函数以函数以Function开始，以开始，以End Function结束，二者之间的程序段就是能够完结束，二者之间的程序段就是能够完成某个功能的语句序列，称为成某个功能的语句序列，称为“函数体函数体”或或“子函数体子函数体”。

16、v 格式中的格式中的“StaticPublic|PrivateFunction 函数名函数名”和和“参数列表参数列表”的的含义、作用、格式、使用方法均与子过程中的定义相同。含义、作用、格式、使用方法均与子过程中的定义相同。vExit Function的作用与的作用与Exit Sub相同。相同。v函数过程必须由函数名返回一个值，在函数体内用函数过程必须由函数名返回一个值，在函数体内用“函数名函数名=返回值返回值”来实现，来实现，这是与这是与Sub过程定义不同之处。如果函数体内没有给函数名赋值，则返回对应类过程定义不同之处。如果函数体内没有给函数名赋值，则返回对应类型的缺省值：数值型返回型的缺省值

17、：数值型返回0，字符型返回空字符串，变体型返回空值。，字符型返回空字符串，变体型返回空值。v函数过程内部不得再定义子过程或函数。函数过程内部不得再定义子过程或函数。5.5.1 函数函数过程的定程的定义5.5.2 函数过程的建立与调用 v前面介绍的建立子过程的两种方法同样适用于建立函数，只需要把Sub换成Function即可。v调用函数过程可以由函数名带回一个值给调用程序，被调用的函数必须作为表达式或表达式中的一部分，再与其它的语法成分一起配合使用。因此，与子过程的调用方式不同，函数不能作为单独的语句加以调用。最简单的情况就是在赋值语句中调用函数过程，其格式为：v变量名=函数过程名（参数列表）例

18、 用函数实现求n！，然后调用它计算6！7！8！。Functionjc(nAsInteger)AsLongDimiAsIntegerjc=1Fori=1Tonjc=jc*iNextiEndFunctionPrivateSubForm_Click()DimjAsLongj=jc(6)+jc(7)-jc(8)Print6!7!8!=;jEndSub5.6 5.6 参数传递参数传递v1.形式参数：简称形参，指的是在定义过程时，出现在形式参数：简称形参，指的是在定义过程时，出现在Sub或或Function语句行中的变量，是接收数据的变量，形参列表中的语句行中的变量，是接收数据的变量，形参列表中的各个变量

19、之间用逗号隔开，且这些变量名只能在过程内部使用。各个变量之间用逗号隔开，且这些变量名只能在过程内部使用。另外，形参只能使用变长数据类型，不能使用定长。如另外，形参只能使用变长数据类型，不能使用定长。如x As String*4这样的定长字符就不能使用在形参中。这样的定长字符就不能使用在形参中。v2.实际参数：简称实参，指的是在调用过程时传送给子过程或实际参数：简称实参，指的是在调用过程时传送给子过程或函数的常数、变量、表达式或控件数组对象等。函数的常数、变量、表达式或控件数组对象等。v在定义过程时，形参先为实参预留位置，在调用过程时实参就在定义过程时，形参先为实参预留位置，在调用过程时实参就按

20、位依次传递给形参。形参名与实参名可以不相同，但是变量按位依次传递给形参。形参名与实参名可以不相同，但是变量的个数和相应的数据类型必须相同。的个数和相应的数据类型必须相同。5.6.1 5.6.1 形式参数和实际参数形式参数和实际参数例如，例如，Sub examParams(a As Integer,b As String,c As Single)End Sub用到的调用语句是：用到的调用语句是：Dim pi As Singlepi=3.14Call examParams(10,Study,pi)形参与实参的对应关系如下表所示：形参与实参的对应关系如下表所示：过程定义时的形参：过程定义时的形参：a

21、bc过程调用时的实参：过程调用时的实参：10Studypi5.6.2 5.6.2 传值调用和传址调用传值调用和传址调用v在VB中，实参与形参的结合有两种方法：按值传递参数（简称传值）和按地址传递参数（简称传址），传址是默认的方式。两种结合方法的区分标志是形参前的关键字，形参前加“ByVal”时是传值，形参前加“ByRef”或省略时则为传址。v1传值调用v按值传递参数时，是将实参变量的值复制一个到临时存储单元中，如果在调用过程中改变了形参的值，不会影响实参变量本身，即实参变量保持调用前的值不变。用传值方式求两个数值中的最大数。Max函数的功能是求最大数，程序如下：函数的功能是求最大数，程序如下：

22、Private Function Max(ByVal x As Integer,ByVal y As Integer)Dim z As Integer If xy Then z=xx=yy=z End If Max=x txtX.Text=x 显示形参的值显示形参的值txtY.Text=yEnd Function Command1_Click事件中调用Max函数的程序如下：PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=Val(txtA.Text)b=Val(txtB.Text)txtMax.Text=Max(a,b)txtResA.Te

23、xt=a显示实参的值txtResB.Text=bEndSub在文本框在文本框txtA和和txtB中输入变量中输入变量a为为2，变量，变量b为为6，单击，单击“比较比较”按钮，按钮，程序运行结果如图所示。从运行结果可以看出，通过函数调用，给形程序运行结果如图所示。从运行结果可以看出，通过函数调用，给形参分配临时内存单元参分配临时内存单元x和和y，将实参，将实参a和和b的数据传递给形参，内存单元的数据传递给形参，内存单元x和和y的值与的值与z交换数据，调用结束，实参单元交换数据，调用结束，实参单元a和和b仍然保留着原值，这仍然保留着原值，这说明实参向形参传递数据是单向的。说明实参向形参传递数据是单

24、向的。2传址调用v按地址传递参数时，把实参变量的地址传送给被调用过程，形参和实参共按地址传递参数时，把实参变量的地址传送给被调用过程，形参和实参共用内存的同一地址。在被调用过程中，形参的值一旦改变，相应实参的值用内存的同一地址。在被调用过程中，形参的值一旦改变，相应实参的值也跟着改变。如果实参是一个常数或表达式，也跟着改变。如果实参是一个常数或表达式，VB会按传值方式来处理。会按传值方式来处理。v例例 用传址方式求两个数值中的最大数。用传址方式求两个数值中的最大数。Max函数的功能是求最大数，程序如下：函数的功能是求最大数，程序如下：Private Function Max(x As Inte

25、ger,y As Integer)Dim z As Integer If xy Then z=xx=yy=z End If Max=x txtX.Text=x 显示形参的值显示形参的值txtY.Text=yEnd FunctionCommand1_Click事件中调用Max函数的程序如下：PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=Val(txtA.Text)b=Val(txtB.Text)txtMax.Text=Max(a,b)txtResA.Text=a显示实参的值txtResB.Text=bEndSub在文本框在文本框txtA和

26、和txtB中输入变量中输入变量a为为2，变量，变量b为为6，单击，单击“比较比较”按钮，按钮，程序运行结果如图所示。从运行结果可以看出，由于形参和实参是共程序运行结果如图所示。从运行结果可以看出，由于形参和实参是共用一个内存单元，因此在被调函数中交换用一个内存单元，因此在被调函数中交换x和和y的数值后，的数值后，a和和b的数值的数值也同样发生了变化。因此，传址方式比传值方式在传递参数方面更节也同样发生了变化。因此，传址方式比传值方式在传递参数方面更节省内存空间，程序的运行效率更高。省内存空间，程序的运行效率更高。5.6.3 数组参数的传递 vVB允许把数组作为作为过程的参数，格式如下：v形参数

27、组名形参数组名()As 数据类型数据类型v形参数组只能按地址传递参数，对应的实参也必须是数组，且数据类型相同。在过程调用时，实际参数表中的数组可以只用数组名表示，省略圆括号。在过程中不可以用Dim语句对形参数组进行声明，否则会产生“重复声明”的错误。但在使用动态数组时，可以用ReDim语句改变形参数组的维界，重新定义数组的大小。v例用随机函数产生10个1-1000之间的整数，调用排序子过程进行排序，并按由小到大的顺序输出。Private Sub sort(a()As Integer)Dim i As Integer,j As Integer,k As Integer,temp As Integ

28、er For i=1 To UBound(a)-1 k=i For j=i+1 To UBound(a)If a(j)0Then找到，则输出其位置及关键字Print您查找的数组元素是：a(&location&)=&a(location)ElsePrintNOTFOUND!没找到，则输出NOTFOUND!EndIfEndSub5.7.35.7.3静态变量静态变量v用用StaticStatic声明的静态变量，在每次调用过程时保持原来的值，不重新初始化。声明的静态变量，在每次调用过程时保持原来的值，不重新初始化。而用而用DimDim声明的变量，每次调用过程时，重新初始化。其语句格式如下：声明的变量，

29、每次调用过程时，重新初始化。其语句格式如下：vStatic Static 变量名变量名 As As 数据类型数据类型 vStatic Function Static Function 函数名函数名(参数列表参数列表)As)As 数据类型数据类型 vStatic Sub Static Sub 过程名过程名(参数列表参数列表)v说明：说明：v 若函数名或过程名前加若函数名或过程名前加StaticStatic，表明该函数或过程内部的局部变量都是，表明该函数或过程内部的局部变量都是静态变量。静态变量。v 静态变量由于一直保留着其内存单元，因此函数或过程中的静态局部变静态变量由于一直保留着其内存单元，因

30、此函数或过程中的静态局部变量要比动态局部变量慢量要比动态局部变量慢2-32-3倍。所以静态变量效率不高，系统开销大，尽量倍。所以静态变量效率不高，系统开销大，尽量少用。少用。v静态变量的作用域只能在声明它的过程或函数内部，其他函数或过程不能静态变量的作用域只能在声明它的过程或函数内部，其他函数或过程不能直接引用。直接引用。v静态变量不等同于常量，静态变量只能在函数或过程中用静态变量不等同于常量，静态变量只能在函数或过程中用StaticStatic关键字声关键字声明，它可以被重新赋值，而常量却不能。明，它可以被重新赋值，而常量却不能。例例 静态变量的使用，调用函数实现变量自动增静态变量的使用，调用函数实现变量自动增1的功能。的功能。PrivateStaticFunctions()AsIntegerDimsumAsIntegersum=sum+1s=sumEndFunctionPrivateSubForm_Click()DimiAsIntegerFori=1To5Print第&i&次调用的结果为&s()NextiEndSub