Access_15过程调用与参数传递.pptVIP

第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 =x+3 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 Sub 过程调用() Dim x As Integer, b As Integer Static a As Integer x =x+3:a=a+1 Debug.Print x=“; x, a=“; a, b=“; b Call 子过程 MsgBox x= x a= a b= b End Sub ________________________________________________________ Sub 子过程() x = x + 8 a1 = a1+2 ^ 10 b = a1 / 2 c = 3+x Debug.Print x=“; c, a1=“; a1, b=“; b End Sub Option Compare Database Dim x As Integer, b As Integer, a As Integer ________________________________________________________ Sub 过程调用() Static a As Integer x =x+3: