面向对象程序设计08.pptVIP

第8章 过 程 8.1 Sub过程 8.2 Function过程 8.3 参数传递 8.1 Sub过程 1．通过菜单命令－－“工具”/“添加过程” (1) 在“名称”框中输入过程名 (2) 如要创建Sub过程，在“类型”组中选“子程序”。 (3) 在“范围”组中根据要创建的过程的作用域进行选择，如果要创建一个公共级的全局过程，则选择“共有的”；如果要创建一个模块级的局部过程，则选择“私有的”。 2．在“代码”窗口自定义Sub过程 格式： [Static][Public|Private] Sub 过程名([参数列表]) 局部变量的定义 语句 End Sub 说明： (1) Sub过程以Sub开头End Sub结束，Sub和End Sub之间为“过程体”。 (2) Sub过程不能嵌套定义 [Static][Public|Private] Sub 过程名([参数列表]) 说明：（续） (3)格式中各参量的含义 ： ①Static (静态) ：指定局部变量在内存中的默认存储方式。如果使用了Static，则过程中的局部变量是“静态”的，如果省略了Static，则过程中的局部变量是“自动”的， ②Private(私有)：指定过程的属性。选择了Private，表示是私有过程，只能被本模块中的其它过程访问。 (3)格式中各参量的含义 ：(续) ③Public (公有、缺省) ：指定过程的属性。公有过程，可在本程序的任何地方被调用。各窗体通用的过程通常在标准模块中用Public定义 。 ④过程名：是长度不超过255个字符的标识符 (3)格式中各参量的含义 ：(续) ⑤参数列表：调用时传送给该过程的简单变量名或数组名，名字之间用逗号隔开。 “参数列表”中的参数称“形式参数”, 简称“形参”。 每个参数的格式为： [ByVal] 变量名 [( )] [As数据类型] 省略“As数据类型”，则为Variant（变体型）。 加上“ByVal”, 该 参数是按值传递,“传值”参数。 省略“ByVal”的参数按地址传递, 称为“引用”参数。 8.1.2 Sub过程的调用－－方法 调用Sub过程有两种方法： 1．用Call语句调用Sub过程 格式：Call 过程名［(实际参数表)］ 例如：Call Max(a,b) 参数必须加括号 2．把过程名作为一个语句来使用（即省略关键字Call） 过程名［实际参数表］ 例如： Max a, b 参数必须省略括号 8.1.2 Sub过程的调用－－举例 例8.1 P204 :编写一个给定圆的半径，计算圆的面积的Sub过程，然后调用该过程计算圆的面积。 Private Sub Area(ByVal r As Single ) 　 Dim Ar As Single 　Ar = 3.1415926* r * r 　 MsgBox 　Area of the Circle is Ar End Sub 8.2 Function 过程 8.2.1 Function过程的定义 8.2.2 Function过程的调用 8.2.3 查看过程 8.2.1 Function过程的定义 1. 定义格式 [Static][Public |Private] Function 函数名([形式参数]) [As 类型] [语句序列] [函数名=表达式] [Exit Function] [语句序列] End Function 8.2.1 Function过程的定义 2. 说明 (1) 如果没有使用Public或Private显式指定，则Function过程缺省为公用(Public); 如果没有使用Static，则过程变量为自动变量。 (2) “As 类型”指过程返回值的类型，缺省为Variant类型。 (3) Function过程的定义不能嵌套 8.2.1 Function过程的定义 3. 定义Sub与Function的不同 (1) Function过程有数据类型。 (2)定义函数时，给函数名自身赋一个值，就可以返回这个值。 例8.4 P207：编写计算任意整数n的阶乘的Function过程。 Function Factorial (x As Integer) As Long Dim p As Long, i As Integer p=1 For i = 1 to x p = p * i Next i Factorial = p ’给函数名赋值 End Function 8.2.2 Functi