VB课件第八章.pptVIP

8.1 通用子过程 8.1.1 通用子过程的创建 方法1. 利用 “工具” 菜单下的 “添加工程” 命令 方法2. 在代码编辑窗口中直接定义 Sub 语句的语法形式如下 [格式] [Public|Private][Static]Sub 过程名([形参列表]) [局部变量或符号常量的声明] [语句序列] [Exit Sub] End Sub 8.1.2 通用子过程的调用 调用通用子过程的语句 [Syntax1] Call过程名([实参列表])（Calling argument list) [Syntax2] 过程名 [实际参数列表] 例8-1(无参过程的创建和调用). 例8-2:有参数的过程的创建和调用 8.2 函数过程 8.2.1 函数过程的创建 方法1. 利用 “工具” 菜单下的 “添加工程” 命令 方法2. 在代码编辑窗口中直接定义 Function 语句的语法形式如下: [格式]: [Public|Private][Static] Function 过程名— ([参数列表])[As 类型] ……. 函数过程名=表达式 End Function 例8-4:计算梯形面积 例8-5： 编一个函数，任意输入一个数，判断并显示它是 否是平方数 例8-6： 编写计算阶乘的函数fact， 并计算1！+2！+3！+…10!的结果 8.3 过程中的参数传递 8.3.1 形式参数和实际参数 1.形式参数(Receiving Argument) [格式] [ByVal|ByRef] 形参名 [()] [As类型] [ByVal|ByRef]说明参数传递的方式， ByVal(按值), ByRef(按址）（缺省时是 ByRef） 2. 实际参数（Calling Argument) 实参可以是常量、变量、表达式、数组等。 实参和形参具有一一对应的关系: 实参和形参的个数相等、顺序位置一一对应、类型相符 例如： Sub mySub(g As String, t As Integer,) Call mySub( “hello”, 256 , ） 8.3.2 参数的传值方式(methods of passing argument) 1.按值传递（ByVal) 实参是常量或表达式， 或者在定义过程时，形参前有关键字ByVal。 例8-7 实参占据的内存单元： 2. 按址传递（ByRef) 实参是变量， 并且在定义过程时，形参前有关键字ByRef(或缺省） 注意： 形参和实参共用同一内存单元， 形参和实参数据类型要相同。 例8-8 将例8-7改成按址传递。 Private Sub mySub (a As Integer, b As Integer, c As Integer) a = 2 * a: b = 3 * b: c = 4 * c Print “被调过程：“，a, b ,c End Sub ------------------------- Private Sub Form_Click() Dim x As Integer, y As Integer X = 2: y = 6 Print “主调过程：“ ， x, y Call mySub (x+y, y+1, x) Print “主调过程：“ ， x, y End Sub [例8-10] Private Sub testSub (a As String) Print a End Sub ---------------------------- Private Sub Form_Click() Dim a As Integer a =100 testSub a ‘ 或 call testSub (a) End Sub 实形参类型不同时，用（）运算符可将实参的数据传给形参。 [例8-11] 编写过程计算球的面积和体积 8.4 过程的嵌套与递归调用 8.4.1 过程的嵌套 8.4.2 递归调用 递归调用：过程直接或间接调用它本身。 直接调用：过程p 过程p 间接调用：过程p 过程Q 过程p 一个问题需要采用递归的方法来解决时， 必须符合以下两个条件： 1.具有递归形式 2.必须有一个明确的结束递归的条件。 用递归的方法计算N! 根据定义，它的值可由下面的递推公式计算： 8.5 代码模块 8.5.1 窗体模块 1