Access15过程调用和参数传递.ppt

第15讲 VBA的过程调用与变量作用域： 复习：标准模块与类模块 模块由过程组成： 第15讲 子过程与函数过程 Sub（子程序）过程 Sub过程也称为子程序，它一般执行某种操作或一系列运算，但没有返回值。用户可以自己创建Sub过程或使用Access已经创建好的事件过程模块。 数据库的每一个窗体和报表都有内置的窗体模块或报表模块。这些模块包含事件过程模板，用户可以在其中添加自己的代码。当窗体、报表或在其上的控件中发生相应的事件时，Access将自动运行这些代码。例如，可以在“学生信息登记”窗体上添加一个“添加记录”的按钮，并在该按钮的单击事件中写上相应的代码，就可以为“学生信息”表增加记录。 Sub 质数1to100() Dim i As Integer, j As Integer, k As Integer k = 1 For i = 1 To 100 For j = 2 To i - 1 If (i / j) = (i \ j) Then Exit For Next j If j = i Then Debug.Print i, k = k + 1 End If If k = 7 Then k = 1 Debug.Print End If Next i End Sub Sub 三角形() Dim i As Integer, j As Integer Debug.Print For i = 1 To 9 Debug.Print Space(15 - i); For j = 1 To i * 2 - 1 Debug.Print *; Next j Debug.Print Next i End Sub 第15讲 子过程与函数过程 Function（函数）过程 Function过程能够返回一个计算结果。Access提供了许多内置的标准函数以供程序直接调用。例如，Date()函数返回当前机器的系统日期。除了系统提供的内置函数以外，用户也可以自定义函数。编辑一个Function过程的过程就是用户自己定义一个函数的过程。 Function过程的优点就是程序可以利用函数的返回值在表达式中，以便对语句或方法中的一些属性进行设置，或在筛选、查询的准则表达式中使用。 第13讲 Access数据库的模块设计 函数过程: 第15讲 VBA的过程调用 过程分类与过程调用: 第15讲 变量作用域 变量作业域: Sub 过程调用() Dim x As Integer, b As Integer Static a As Integer x = 8 Debug.Print x=, x, a=, a, b=, b Call 子过程 MsgBox x= x a= a b= b End Sub ________________________________________________________ Sub 子过程() x = x + 8 a = a+2 ^ 10 b = a / 2 c = 3 Debug.Print x=, c, a=, a, b=, b End Sub 第15讲 VBA的过程调用_形参与实参 过程分类与过程调用: 第15讲 VBA的过程调用中的参数传递 Dim a As Integer Option Explicit ———————————————————————————— Sub area() Dim x As Integer, y As Integer, z As Integer x = 10: y = 10 Call calcu(x, y, z) Debug.Print x * y = z End Sub ———————————————————————————— Sub calcu(ByRef a As Integer, b As Integer, c As Integer) c = a * b End Sub Sub first() Dim x As Integer, y As Integer x = 10: y = 20 Debug.Print 调用second(x, y)前： x= x y= y Call second(x, y) Debug.Print 调用secon