第 6 章

6.1VB的过程设计及子过程（Sub）的定义与调用

1．什么是过程

在程序设计中，为各个相对独立的功能模块所编写的一段程序称之为过程。

2．VB中的自定义过程分类

（1）以“Sub”保留字开始的子程序过程（包括事件过程和通用过程），不返回值；

（2）以“Function”保留字开始的函数过程，返回一个值；

（3）以“Property”保留字开始的属性过程，可以返回和设置窗体、标准模块以及类模块的属性值，也可以设置对象的值。

3．事件过程

（1）窗体事件过程

语法：Private.SubForm_事件名（[参数列表]）

[局部变量和常数声明]

语句块

EndSub

注意：

1）窗体事件过程名由Form_事件名组成，多文档窗体用MDIForm_事件名；

2）每个窗体事件过程名前都有一个Private的前缀，表示该事件过程不能在它自己的窗体模块之外被调用；

3）事件过程有无参数，完全由VB提供的具体事件本身决定，用户不可以随意添加。

（2）控件事件过程

语法：Private.Sub控件名_事件名（[参数列表]）

[局部变量和常数声明]

语句块

EndSub

注意：其中的控件名必须与窗体中某控件相匹配，否则VB将认为它是一个通用过程。

（3）建立事件过程的方法

1）打开代码编辑器窗口（两种方法：双击对象或从工程管理器中单击“查看代码”按钮）

2）在代码编辑器窗口中，选择所需要的“对象”和“事件过程”

3）在PrivateSub……EndSub之间键入代码

4）保存工程和窗体

（4）事件过程的调用

事件过程由一个发生在VB中的事件来自动调用或者由同一模块中的其他过程显示调用。

2．通用过程

通用过程是一个必须从另一个过程显示调用的程序段，通用过程有助于将复杂的应用程序分解成多个易于管理的逻辑单元，使应用程序更简洁、更易于维护。

通用过程分为公有（Public）过程和私有（Private）过程两种，公有过程可以被应用程序中的任一过程调用，而私有过程只能被同一模块中的过程调用。

（1）定义方法：

[Private|Public].[Static].Sub过程名（[参数列表]）

[局部变量和常数声明].‘用Dim或Static声明

语句块

[ExitSub]

语句块

EndSub

注意：

1）缺省[Private|Public]时，系统默认为Public；

2）Static表示过程中的局部变量为“静态”变量；

3）过程名的命名规则与变量命名规则相同，在同一个模块中，同一符号名不得既用作Sub过程名，又用作Function过程名。

4）参数列表中的参数称为形式参数，它可以是变量名或数组名，只能是简单变量，不能是常量、数组元素、表达式；若有多个参数时，各参数之间用逗号分隔，形参没有具体的值。VB的过程可以没有参数，但一对圆括号不可以省略。不含参数的过程称为无参过程。

形参格式为：

[ByVal]变量名[（）][As.数据类型]

式中：

变量名[（）]：变量名为合法的VB变量名或数组名，无括号表示变量，有括号表示数组。

ByVal：表明其后的形参是按值传递参数（传值参数PassedByValue），若缺省或用ByRef，则表明参数是按地址传递的（传址参数）或称“引用”（PassedByReference）。

As：.数据类型：缺省表明该形参是变体型变量，若形参变量的类型声明为String，则只能是不定长的。而在调用该过程时，对应的实在参数可以是定长的字符串或字符串数组，若形参是数组则无限制。

5）Sub过程不能嵌套定义，但可以嵌套调用。

6）.EndSub标志该过程的结束，系统返回并调用该过程语句的下一条语句。

7）过程中可以用ExitSub提前结束过程，并返回到下调用该过程语句的下一条语句。

（2）建立Sub过程的方法

方法一：

1）打开代码编辑器窗口

2）选择“工具”菜单中的“添加过程”

3）从对话框中输入过程名，并选择类型和范围

4）在新创建的过程中输入内容

方法二：

1）在代码编辑器窗口的对象中选择“通用”，在文本编辑区输入PrivateSub过程名

2）按回车键，即可创建一个Sub过程样板

3）在新创建的过程中输入内容

3．Sub子过程的调用

（1）用Call语句调用Sub过程

语法：Call过程名（实在参数表）

实在参数的个数、类型和顺序，应该与被调用过程的形式参数相匹配，有多个参数时，用逗号分隔。

（2）把过程名作为一个语句来用

语法：过程名[实参1[，实参2……]]

它与（1）的不同点是：去掉了关键字和实参列表的括号

如上例中可以改成：areaa,b,c,w

6.3参数的传递

1．形参与实参的概念

形参：指出现在Sub和Function过程形参表中的变量名、数组名，过程被调用前，没有分配内存，其作用是说明自变量的类型和形态以及在过程中的角色。形参可以是：

1）除定长字符串变量之外的合法变量名；

2）后面跟（）括号的数组名。

实参：是在调用Sub和Function过程时，传送给相应过程的变量名、数组名、常数或表达式。在过程调用传递参数时，形参与实参是按位置结合的，形参表和实参表中对应的变量名可以不必相同，但位置必须对应起来。

形参与实参的关系：形参如同公式中的符号，实参就是符号具体的值；调用过程：即实现形参与实参的结合，也就是把值代入公式进行计算。

2．按值传递参数（定义时加ByVal）

按值传递参数（PassedByValue）时，是将实参变量的值复制一个到临时存储单元中，如果在调用过程中改变了形参的值，不会影响实参变量本身，即实参变量保持调用前的值不变。

3．按地址传递参数（定义时没有修饰词或带关键字ByRef）

按地址传递参数时，把实参变量的地址传送给被调用过程，形参和实参共用内存的同一地址。在被调用过程中，形参的值一旦改变，相应实参的值也跟着改变。如果实参是一个常数或表达式，VB会按“传值”方式来处理。

4．数组参数

VB允许把数组作为形参出现在形参表中，语法：形参数组名（）[As数据类型]

形参数组只能按地址传递参数，对应的实参也必须是数组，且数据类型相同。调用过程时，把要传递的数组名放在实参表中，数组名后面不跟圆括号。在过程中不可以用Dim语句对形参数组进行声明，否则会产生“重复声明”的错误。但在使用动态数组时，可以用ReDim语句改变形参数组的维界，重新定义数组的大小。

5．对象参数

VB中可以向过程传递对象，在形参表中，把形参变量的类型声明为“Control”，可以向过程传递控件；若声明为“Form”，则可向过程传递窗体。对象的传递只能按地址传递。

6.4变量、过程的作用域

1．VB应用程序的组成：

2．过程的作用域

3.　变量的作用域

4．静态变量

用Static声明的静态变量，在每次调用过程时保持原来的值，不重新初始化。而用Dim声明的变量，每次调用过程时，重新初始化

例：显示1到5个数。

5．同名变量

对不同范围内出现的同名变量，可以用模块名加以区别。一般情况下，当变量名相同而作用域不同时，优先访问局限性大的变量。

6.5递归过程

1．递归的概念

通俗的讲，用自身的结构来描述自身就称为“递归”。如对阶乘运算的定义就是递归的：

n!=n(n-1)!.(n-1)!=(n-1)(n-2)!

2．递归子过程和递归函数

VB允许一个自定义子过程或函数过程在过程体的内部调用自己，这样的子过程或函数就叫递归子过程和递归函数。递归过程包含了递推和回归两个过程。构成递归的条件是：

（1）递归结束条件和结束时的值

（2）能用递归形式表示，并且递归向结束条件发展。

例：编制程序求fac（n）=n！的函数

3．注意事项

（1）递归算法设计简单，但消耗的上机时间和占据的内存空间比非递归大

（2）设计一个正确的递归过程或函数过程必须具备两点：

1）具备递归条件；

2）具备递归结束条件

（3）一般而言，递归函数过程对于计算阶乘、级数、指数运算有特殊效果。