新Visual Basic程序设计 第3版 教学课件 吴昌平 第8章.pptVIP

第 8 章 过 程  过程是用来执行一个特定任务的一段程序代码。VB应用程序（又称工程或项目）由若干过程组成，这些过程保存在文件中，每个文件的内容通常称为一个模块。在VB6.0中，模块分为窗体模块（.Frm）、标准模块（.Bas）和类模块（.Cls）。可以说工程是模块的集合。一般VB的应用程序组成可用图8-1描述。 在程序设计过程中，将一些常用的功能编写成过程，可供多个不同的事件过程多次调用，从而可以减少重复编写代码的工作量，实现代码重用，使程序简练、便于调试和维护。 在本章主要介绍用户自定义的子过程和函数过程。 8.1 子过程 子过程是用特定格式组织起来的一组代码，通常用来完成一个特定的功能，可以被其它过程作为一个整体来调用。 8.1.1 子过程的定义 定义子过程有两种方法： 1．利用代码窗口直接定义 在窗体或标准模块的代码窗口把插入点放在所有现有过程之外，输入子过程即可。 子过程一般形式如下： [Static][Public|Private]Sub 子过程名[(参数列表)] [局部变量或常数定义] [语句序列] [Exit Sub] [语句序列] End Sub 说明： （1）子过程名命名规则遵守标识符命名规则。 （2）参数（也称为形参）列表 是用 “，” 分隔开的若干个变量，格式如下： 变量名1 [As 类型] ，变量名2 [As 类型]，… 或： 变量名1 [类型符] ，变量名2 [类型符]，… （3） [Exit Sub]表示中途退出子过程。 （4）[Static][Public|Private]其意义在8.4介绍。 下面是一个子过程的例子： Sub sum(x%, y%, s%) s = x + y End Sub 上面的子过程有三个形式参数，调用该过程可以实现求两数之和。 过程可以有参数，也可以不带任何参数。没有参数的过程称为无参过程。 例如： Sub printhello Print hello End Sub 上面的过程不带参数，当调用该过程时，打印输出“hello”。 2．利用“工具”菜单下的“添加过程”命令定义 8.1.2 过程的调用 要执行一个过程，必须调用该过程。 子过程的调用有两种方式，一种是利用Call语句加以调用，另一种是把过程名作为一个语句来直接调用。 1. 用Call语句调用Sub过程 格式：Call 过程名[(参数列表)] 例如： Call sum(a,b,c) 调用时注意： （1）“参数列表”称为实参，它必须与形参保持个数相同，位置与类型一一对应。 （2）调用时把实参的值传递给形参称为参数传递。其中值传递（形参前有Byval说明）时，实参的值不随形参的值变化而改变，而地址传递时实参的值随形参值的改变而改变。参数传递在8.3节详细讨论。 （3）当参数是数组时，形参与实参在参数声明时应省略其维数，但括号不能省。 2．把过程名作为一个语句来使用 格式： 过程名[参数列表] 与第一种调用方法相比，这种调用方式省略了关键字Call，去掉了“参数列表”的括号。 例如： sum a,b,c 【例8.1】编一个求矩形的面积子过程，然后调用它进行计算。 程序如下： Sub area(length!, width!) Dim rarea! rarea = length * width Print The area of rectangle is ; rarea End Sub Sub Form_Click() Dim a!, b! a = InputBox(输入矩形的长:) b = InputBox(输入矩形的宽:) area a, b End Sub 【例8.2】编一个求n!的子过程，然后调用它计算7！+11！-10！。 程序如下： Sub jch(n%, p) Dim i% p = 1 For i = 1