第九章 子程序与函数过程

《第九章 子程序与函数过程》由会员分享，可在线阅读，更多相关《第九章 子程序与函数过程（35页珍藏版）》请在金锄头文库上搜索。

1、第九章,子函数与函数过程,过程概述,在VB5.0/6.0中，除了系统提供的内部函数过程和事件过程外，用户可自定义过程下列四种过程： “Sub” 保留字开始的为子过程 “Function” 保留字开始的为函数过程 “Property”保留字开始的为属性过程 “Event”保留字开始的事件过程,9.1 子函数过程（sub过程）,在VB中，的Sub子过程分为：事件过程和通用过程 9.1.1 事件过程 （1）窗体事件的语法 Private Sub Form_事件名(参数列表) 语句组 End Sub （2）控件事件的语法 Private Sub 控件名_事件名(参数列表) 语句组 End Sub,9.

2、1 子函数过程（sub过程）,9.1.2 通用过程（Sub过程）的定义,子过程的定义形式如下： Public|PrivateStatic Sub 子过程名(形参表) 语句组 Exit Sub 语句组 End Sub,说明：（1）子过程名：命名规则与变量名规则相同。子过程名不返回值，而是通过形参与实参的传递得到结果，调用时可返回多个值。,（2）形式参数列表：形式参数通常简称“形参”，仅表示形参的类型、个数、位置，定义时是无值的，只有在过程被调用时，虚实参结合后才获得相应的值。 （3）过程可以无形式参数，但括号不能省。 （4）参数的定义形式： ByValByRef变量名( )As 类型,， ByV

3、al表示当该过程被调用时，参数是按值传递的；缺省或ByRef表示当该过程被调用时，参数是按地址传递的。,9.1 子函数过程（sub过程）,9.1 子函数过程（sub过程）,例 编一个交换两个整型变量值的子过程。 Private Sub Swap( X As Integer, Y As Integer) Dim temp As Integer Temp=X : X=Y : Y=Temp End Sub,Private Sub command1_click() Dim a%,b% a=val(inputbox(“a=“) b=val(inputbox(“b=“) print “a=“;a,”b=“

4、,b call swap(a,b) print “a=“;a,”b=“,b End Sub,9.1 子函数过程（sub过程）,9.1.3 子过程的建立,通过 “工具”菜单中的“添加过程”命令，出现“添加过程”对话框（见图6.1），选择过程类型（子过程、函数、属性、事件）及作用范围（公有的Public、私有的Private），单击确定后得到一个过程或函数定义的结构框架（模板），如： Public Sub Sort( ) End Sub,9.1 子函数过程（sub过程）,9.1.4 过程的调用 1 子过程的调用 子过程名 参数列表 或 Call 子过程名(参数列表) 说明： （1）参数列表称为实参

5、或实元，它必须与形参保持个数相同，位置与类型一一对应。 （2）调用时把实参值传递给对应的形参。其中值传递（形参前有ByVal说明）时实参的值不随形参的值变化而改变。而地址传递时实参的值随形参值的改变而改变。,（3）当参数是数组时，形参与实参在参数声明时应省略其维数，但括号不能省。 （4）调用子过程的形式有两种，用Call关键字时，实参必须加圆括号括起。 例：调用上面定义的Swap子过程的形式： Swap a,b （省略关键字call和括号） Call Swap(a,b),9.1 子函数过程（sub过程）,过程调用的执行过程：,Private Sub CmdOK() Call Swap(a,b)

6、 Swap a,b End Sub,Private Sub Swap(x%,y%) Dim temp% Temp=X X=Y Y=Temp End Sub,实例9.3 窗体中有1个图片框和3个命令按钮（控件数组），如图。程序运行时，单击命令按钮，在图片框中画出指定数目的同心圆。,9.2 函数过程（Function过程）,Visual Basic函数分为内部函数（sin（），sqr（）等）和外部函数，外部函数是用户根据需要用Function关键字定义的函数过程，与子过程不同的是函数过程将返回一个值 。,9.2.1 函数过程（Function过程）的定义,Public|PrivateStaticF

7、unction 函数名()As 函数名=返回值 Exit Function 函数名=返回值 End Function,9.2 函数过程（Function过程）,说明： （1）函数名：命名规则与变量名规则相同。 （2）在函数体内，函数名可以当变量使用，函数的返回值就是通过对函数名的赋值语句来实现的，在函数过程中至少要对函数名赋值一次。 （3）AS类型：是指函数返回值的类型，若省略，则函数返回变体类型值（Variant）。 （4）Exit Function：表示退出函数过程，常常是与选择结构（If或Select Case语句）联用，即当满足一定条件时，退出函数过程。 （5）形参数列表：形参的定义与

8、子过程完全相同。,实例9.5 定义一个函数过程，用来计算1n的和。 Private Function sum(n As Integer) As Long for i=1 to n s=s+i next i sum=s End Function,调用函数过程可以由函数名带回一个值给调用程序，被调用的函数必须作为表达式或表达式中的一部分，再与其它的语法成分一起配合使用。因此，与子过程的调用方式不同，函数不能作为单独的语句加以调用。 最简单的情况就是在赋值语句中调用函数过程，其形式为： 变量名=函数过程名（实参列表）,9.2 函数过程（Function过程）,9.2.2 函数的调用,实例9.6 通过

9、函数过程实现实例9.4的功能。,9.3 参数传递,在调用过程时，一般主调过程与被调过程之间有数据传递，即将主调过程的实参传递给被调过程的形参，完成实参与形参的结合，然后执行被调过程体。在VB中，实参与形参的结合有两种方法：传址和传值。传址是默认的方法。两种结合方法的区分标志是“ByVal”，形参前加“ByVal”关键字时是传值，否则为传址。,9.3.1 传值 传值的参数传递过程是：当调用一个过程时，系统将实参的值复制给形参，之后实参与形参便断开了联系。被调过程对形参的操作是在形参自己的存储单元中进行，当过程调用结束时，这些形参所占用的存储单元也同时被释放。因此在过程中对形参的任何操作都不会影响

10、到实参。,9.3.2 传址 传址的参数传递过程是：当调用一个过程时，它将实参的地址传递给形参。因此在被调过程体中对形参的任何操作都变成了对相应实参的操作，因此实参的值就会随形参的改变而改变。当参数是字符串或数组时，使用传址传递直接将实参的地址传递给过程，会使程序的效率提高。,9.3.3 数组参数的传递 数组可以作为过程的参数。过程定义时，形参列表中的数组用数组名后的一对空的圆括号表示。在过程调用时，实际参数表中的数组可以只用数组名表示，省略圆括号。 当用数组作为过程的参数时，进行的不是“值”的传递，而是“址”的传递。,9.4 过程与变量的作用域,前面我们介绍了VB应用程序（通常称为工程）的组织

11、结构，它由窗体模块、标准模块和类模块组成。VB程序代码就保存在窗体模块文件（.Frm）、标准模块文件（.Bas）或类模块文件（.Cls）中。它们形成了工程的一种模块层次结构，如下图所示。,9.4 过程与变量的作用域,9.4.1 窗体模块 (文件扩展名为 .FRM ) 窗体模块。窗体模块可以包含处理事件的过程、通用过程以及变量、常数、类型和外部过程的窗体级声明。如果要在文本编辑器中观察窗体模块，则还会看到窗体及其控件的描述，包括它们的属性设置值。写入窗体模块的代码是该窗体所属的具体应用程序专用的；它也可以引用该应用程序内的其它窗体或对象。,9.4.2 标准模块 （文件扩展名为BAS） 它们可以包

12、含变量、常数、类型、外部过程和全局过程的全局(在整个应用程序范围内有效的)声明或模块级声明。写入标准模块的代码不必绑在特定的应用程序上，则在许多不同的应用程序中可以重用标准模块。,9.4 过程与变量的作用域,9.4 过程与变量的作用域,9.4.3 类模块 （文件扩展名为 .CLS） 在 Visual Basic 中类模块是面向对象编程的基础。可在类模块中编写代码建立新对象。这些新对象可以包含自定义的属性和方法。实际上，窗体正是这样一种类模块，在其上可安放控件，可显示窗体窗口。,9.4 过程与变量的作用域,概念,Public|Private Sub 子过程名(形式参数列表) . End Sub,

13、通用子过程和函数过程既可写在窗体模块中也可写在标准模块中，在定义时可选用关键字Private（局部）和Public（全局），来决定它们能被调用的范围。,9.4 过程与变量的作用域,按过程的作用范围来划分，过程可分为： 模块级过程 全局级过程,1、窗体/模块级过程： 加Private关键字的过程，只能被定义的窗体或模 块中的过程调用。 2、全局级过程： 加Public关键字（或缺省）的过程，可供该应用程序的所有窗体和所有标准模块中的过程调用。,9.4 过程与变量的作用域,总结归纳过程的定义及作用域如下表,9.4 过程与变量的作用域,概述：,在VB中，由于可以在过程中和模块中声明变量，根据定义变量

14、的位置和定义变量的语句不同，变量可以分为： 局部变量（过程级变量） 窗体/模块级变量（私有的模块级变量，能被本模块的所有过程和函数使用） 全局级变量（公有的模块级变量）。,9.4 过程与变量的作用域,9.4.4 过程级变量局部变量,局部变量：在过程内用声明的变量，只能在本过程中使用。,在过程内部使用 Dim 或者 Static 关键字来声明的变量，只在声明它们的过程中才能被访问或改变该变量的值，别的过程不可访问。所以可以在不同的过程中声明相同名字的局部变量而互不影响。,9.4 过程与变量的作用域,例： Private Sub Form_Load() Dim n% n= 10 End Sub P

15、rivate Sub From_Click() Dim n% Print “n=“;n End Sub,程序运行后单击窗体，其输出结果是什么？,9.4 过程与变量的作用域,9.4.5 窗体/模块级变量,窗体/模块级变量：在“通用声明”段中用Dim语句或用Private语句声明的变量，可被本窗体/模块的任何过程访问。但其他模块却不能访问该变量。 例如：在“通用声明”段声明如下变量: Private s As String Dim a As Integer,例： Dim n% Private Sub Form_Load() n= 10 End Sub Private Sub From_Click(

16、) Print “n=“;n End Sub,9.4 过程与变量的作用域,9.4.6 全局变量,全局变量也称公有的模块级变量，在窗体模块或标准模块的顶部的“通用”声明段用Public关键字声明，它的作用范围是整个应用程序，即可被本应用程序的任何过程或函数访问。 例如： Public a As Integer，b As single,9.4 过程与变量的作用域,3种变量声明及使用规则如下表：,9.4 过程与变量的作用域,9.4.7 静态变量（static）,概念,除作用域之外，变量还有存活期，在这一期间变量能够保持它们的值。 在应用程序的存活期内一直保持模块级变量和全局变量的值。但是，对于Dim声明的局部变量仅当过程执行期间存在，当一个过程执行完毕，它的局部变量的值就已经不存在，而且变量所占据的内存也被释放。当下一次执行该过程时，它的所有局部变量将重新初始化。,局部变量的存活期由其定义的关键词