[电脑基础知识]第08章10学时.ppt

第八章 过程 §8 过 程 §8.1.1 事件过程 §8.1.1 事件过程 §8.1.1 事件过程 §8.1.1 事件过程 §8.1.2 通用过程 §8.1.2 通用过程 §8.1.2 通用过程 §8.1.2 通用过程 §8.1.2 通用过程 §8.1.2 通用过程 §8.1.2 通用过程 §8.1.2 通用过程 §8.1.2 通用过程 §8.2.1 FUNCTION函数的建立与定义 §8.2.1 FUNCTION函数的建立与定义 §8.2.2 FUNCTION函数的调用 §8.2.2 FUNCTION函数的调用 §8.2.2 FUNCTION函数的调用 §8.2.2 FUNCTION函数的调用 §8.2.2 FUNCTION函数的调用 §8.2.2 FUNCTION函数的调用 §8.2.3 调用其它模块中的过程 §8.3 参数的传递 §8.3.1 按值传递 §8.3.1 按值传递 §8.3.2 按地址传递 §8.3.2 按地址传递 §8.3.2 按地址传递 §8.3.2 按地址传递 §8.3.2 按地址传递 §8.3.2 按地址传递 §8.3.2 按地址传递 §8.3.3 数组参数 §8.3.3 数组参数 §8.3.3 数组参数 §8.3.3 数组参数 §8.3.3 数组参数 §8.3.4 对象参数 §8.3.4 对象参数 §8.4 递归过程 §8.4 递归过程 §8.4 递归过程 §8.4 递归过程 §8.5 变量的作用域 §8.5.1 变量的作用域 §8.5.1 变量的作用域 §8.5.1 变量的作用域 §8.5.2 过程的作用域 §8.5.2 过程的作用域 §8.5.3 静态变量 例题 §8.5.4 同名变量 例题 按地址传送时传送的是实参的地址，在调用时，被调用过程 直接将接受到的地址里的值进行修改，从而将原来的实参值覆盖 掉，所以，执行完调用语句后，实参的值将会有所改变。 格式如下： 形式参数为 [byref]变量名[（）][AS 类型] [，[byref]变量名[（）][AS 类型]…] 例： Private Sub Command2_Click() Dim m As Integer, n As Integer m = 15: n = 20 Call value1(m, n) Print m=; m, n=; n End Sub Private Sub value1(ByRef x As Integer, y As Integer) x = x + 20: y = y + x Print x=; x, y=; y End Sub 传值和传址在形式上表现的主要区别为： 如果是按值传送，则形参的参数前加有BYVAL，若形 参前没有加上任何关键字或是加上“BYREF”，则指定他是按 地址传递的参数。使用时应具体分析，否则容易产生错误。 例1：求1！+2！+3！+4！+5！的和。 Private Static Function fact(n As Integer) As Integer fact = 1 Do While n 0 fact = fact * n n = n – 1 Loop End Function 例1：求1！+2！+3！+4！+5！的和。 Private Sub Form_Click() Dim sum As Integer, i As Integer For i = 5 To 1 Step –1 sum = sum + fact(i) Next I Print sum=; sum End Sub 例2：四则运算 Private Function add(a As Integer, b As Integer, c As Integer) a = a + 10: b = b + 10: c = c + 10 add = a + b + c End Function Private Sub Form_Click