12 编程过程2.pptVIP

程序设计基础 陈一明gdmmc2008@126.com 本次课任务 SUB过程与函数过程的区别 参数传递的特征 了解数组参数 变量与过程作用域 重点:参数传递 一、SUB过程与函数过程的区别 1、定义格式不同 Sub过程定义： [过程类别] Sub 过程名 ([形参表]) 语句块(过程主体) End Sub Function过程定义： [过程类别] Function 函数名（[形参表]）[As 类型] 语句块 [函数名=表达式] End Function ［例5-14］编写一个计算n！的Sub过程Fact。 在“通用”中建立如下过程 Sub Fact(n As Integer, f As Long) Dim i As Integer f = 1 For i = 1 To n f = f * i Next i End Sub ［例5-16］编写一个计算n！的Function过程。 Function jch（n%）as integer Dim i% f = 1 For i = 1 To n f = f * i Next i jch=f End Function 2、调用方法的区别： 调用Sub过程 Call 过程名[(实际参数表)] 调用function过程 过程名［(实际参数表)］ 作为表达式的组成部分，用于计算。 Private Sub Command1_Click() Dim a, b, c Call fact(3, a) Call fact(5, b) Call fact(9, c) Print 3!+5!+9!=; a + b + c End Sub Private Sub Command2_Click() Dim a, b, c a = jch(3) b = jch(5) c = jch(9) Print 3!+5!+9!=; a + b + c End Sub 3、应用对象的区别： 两种过程可以替换。 有明确单个返回值，一般用函数值返回。 主程序与之只有单向数据传递，一般用Sub子过程. 如果有多个值返回的，最好用Sub过程。 二、参数传递的特征 参数的本质不同 传值方式(ByVal) 实参与形参是不同单元 传址方式(ByRef) 实参与形参为同一单元 传递过程不同 传递的结果不同 ［例5-18］参数按值传递。 Sub Tryout(ByVal x As Integer, ByVal y As Integer) x = x + 100 y = y * 6 Print X=; x, Y=; y End Sub Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 Tryout a, b Print A=; a, B=; b End Sub ［例5-19］参数传址方式。 Sub Tryout(x As Integer, y As Integer) x = x + 100 y = y * 6 Print X=; x, Y=; y End Sub Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 Tryout a, b Print A=; a, B=; b End Sub 三、数组参数 数组作为参数有两种情况： （1）用数组名作为参数进行传递。这种是传址方式。 （2）用数组元素作为实参进行传递。这种是传值方式。这种方式与一般单个变量作参数情况一样。 ［例5-20］用数组作参数求一维整数数组中所有负数之和。 Function sum%(b%()) Dim i% For i = LBound(b) To UBound(b) If b(i) 0 Then sum = sum + b(i) End If Next i End Function 四、变量与参数作用域 VB中的变量与函数、过程都有作用范围，即作用域的问题。 作用域有三个层次：过程级、模块级(文件级)、全局级(工程)。其中，过程级的作用域最小，仅局限于过程内部(针对局部变量)；模块级次之，仅在某个模块或文件内；全局级范围最大，可在整个工程范围内。 Private Sub form_Click() Dim i%,s% For i=1 to 5 s=sum(i) ‘5次调用函数 print ”sum=”;s, next i EndSub Private Function sum