第7章模块ok(免费阅读).pptVIP

* 7.5 过程调用和参数传递 在VBA中，过程是由一系列可以完成某项指定的操作、计算语句和方法组成。根据过程是否返回值，分为Sub过程和Function过程。 一、过程调用 1.过程的定义和调用（用Sub语句声明一个新的过程)格式：[{Public|Private}][Static] Sub 过程名([参数 As 数据类型] [过程语句] [Exit Sub] [过程语句] End Sub使用Public关键字可以使该过程适用于所有模块中的所有其他过程；用Private关键字则使该程序只适用于同一模块中的其他过程。 * 过程调用形式有以下两种：Call过程名（[实参]）过程名（[实参]）例：先编写一个子过程“MsgBox”，然后写成调用该子过程的语句。程序代码：Sub MsgBox(FormName as String) MsgBox“请输入用户名！”，vbOKOnly+vbInformation，“提示”End Sub调用名为“登陆”的窗体，可以用下列语句Call Sub MsgBox(“登陆”） * 2.函数的定义和调用 用Function语句可以声明一个新函数，它接受参数、返回变量类型及运行该函数过程的代码。格式：[Public|Private][Static] Function 函数名([参数]) As [数据类型] [函数语句] [函数名=表达式] [Exit Function] [函数语句] [函数名=表达式] End Function说明：对函数使用Public关键字，则所有模块的过程都可以调用它。 用Private关键字使这个函数只适用于同一模块中的其他过程；当把一个函数说明为模块中的私有函数时，就不能从查询、宏或另一个模块中的函数这个函数。 包含Static关键字时，只要含有这个过程的模块是打开的，则所有在这个过程中的显式和隐含说明的变量值都将被保留。函数的调用：变量名 = 函数过程名([参数列表]) * Private Sub CmdOK() …… Call Swap(a,b) …… Swap a,b End Sub Private Sub Swap(x%,y%) Dim temp% Temp=X X=Y Y=Temp End Sub 示例 过程调用的执行过程： * 二、参数传递 过程或函数定义可以设置一个或多个参数，这个参数称为形参，多个参数之间用逗号分隔。格式：[Optional][ByVal|ByRef][ParamArray] Varname[()][As type][=Defaultvalue]各参数的含义：Varname：必须的，形参名称。遵循标准的变量命名约定Type：可选项，传递给该过程的参数的数据类型Optional：可选项，表示参数不是必须的。如果使用了 ParamArray，则任何参数都不能使用OptionalByVal：可选项，表示该参数按值传递ByRef：可选项，表示该参数按地址传递。ByRef是VBA的缺省选项 * 含参数的过程被调用时，主调用过程中的调用式必须提供相应的实参（实际参数的简称），并通过实参向形参传递的方式完成过程操作。关于实参向形参的数据传递，还想了解：实参可以是常量、变量或表达式；实参数目和类型应该与形参数目和类型相匹配。除非形参定义含Optional和ParamArray选项，则参数、类型可能不一致； 传址与传值：传址：形参得到的是实参的地址，当形参值的改变同时也改变实参的值。 （形变实也变）。传值：形参得到的是实参的值，形参值的改变不会影响实参的值。 （形变实不变） * 7.6 VBA程序的错误处理 立即窗口实时跟踪程序的执行过程，将程序执行情况立即显示出来，通过使用Debug.Print语句，把所要显示的内容输出到立即窗口。 本地窗口显示程序运行到断点处的各变量的值。监视窗口监视的是VBA程序挂起时表达式的值。 * 在模块中，编写的程序会出现错误，常见的错误有3种：（1）语法错误，如变量没有定义直接使用、语句前后不匹配等。错误处理：在Access代码窗口中逐行检查，一般的语法错误都能被检查出来。对应复杂的错误，则通过执行菜单“调试”“编译”命令查找，在编译过程中，模块中的所有语法错误都将被查出。（2）运行错误，如数据参数传递类型不匹配、数据发生异常等。错误处理：在出