VB第九讲(第六章).ppt

第六章 过 程 6.1 子过程的定义与调用 6.2 函数过程的定义与调用 6.3 参数传递 6.4 变量、过程的作用域 6.5 递归 6.6 常用算法（三） * * 第九讲 过程的概念 过程：独立子程序 两类：系统提供的内部函数过程和事件过程； 用户根据自己需要定义的通用过程。 子过程 (Sub) （没有返回值） 通用过程 函数过程 (Function) （有返回值） 属性过程 (Property) 事件过程 (Event) 按作用域分通用过程： 公有过程（Public） 私有过程（Private） 6.1 Sub 子过程的定义及其调用 1.定义Sub子过程 [Public|Private]Sub 子过程名([参数列表]) 局部变量或常数定义 语句块 [Exit Sub ] 语句块 End Sub 过程体 过程名: （与变量命名规则相同） 不要与VB 关键字同名 不要与WINDOWS API函数重名 不能与同一级别的变量重名 注意 参数列表形式: [ ByVal ] 变量名 [ ( ) ] [ As 类型 ] [ , [ByVal] 变量名 [ ( ) ] [ As 类型 ] … ] 参数也称为形参, 无参函数过程名后的( )不可缺省 ByVal 参数是值传递,缺省ByVal 是引用传递，即地址传递。 Sub子过程不能嵌套定义 例如： Private Sub exl(ByVal x As Integer, y As Integer) x = x + 2 y = y + x * 2 Print x, y End Sub Sub swap(x As Integer, y As Integer) Dim temp As Integer If x y Then temp = x：x = y：y = temp End If End Sub 2.建立Sub子过程（有两种方法）： 在VB中，利用“工具”菜单下的“添加过 程”命令定义 利用代码窗口直接定义 注意： 建立Function函数过程的方法与建立Sub子过程相同 实 例 3.Sub子过程的调用: 调用格式： 子过程名 [参数列表] 或： CALL 子过程名(参数列表) 例:求组合数 定义求阶乘的Sub子过程fac Private Sub fac(ByVal n As Integer, f As Long) Dim i As Integer f = 1 For i = 1 To n f = f * i Next i End Sub Private Sub Command1_Click() Dim m As Integer, n As Integer Dim fm As Long, fn As Long Dim fmn As Long m = Val(txtm): n = Val(txtn) Call fac(n, fn) Call fac(m - n, fmn) fac m, fm txtResult = Str(fm / (fn * fmn)) End Sub 例子程序 参数列表: 称为实参或实在参数,它必须与 形参保持个数相同,位置与类型一一对应。 参数传递：调用时把实参的值或地址传递给形参； 值传递 实参的值不随形参的值变化而变化, 引用传递 实参的值随形参的值变化而改变. 形参及实参间用逗号分隔。 过程调用注意事项: 调用格式： 子过程名 [参数列表]] 或： CALL 子过程名(参数列表) 若用Call关键字时,实参必须用圆括号括起,且左括号与函 数名间不能有空格；若实参为空，则可省略括号。若用过 程名则无( )，且第一个参数与过程名间要有空格。 当参数是数组时,形参与实参在参数声明时应省略其维数, 但括号不能省。 若形参变量的类型为String，则只能是不定长的。 过程允许嵌套调用。 调用格式：