3.vba编程基础-过程调用和参数传递.pptVIP

全国计算机等级考试Access数据库程序设计（二级） 万红波 烟台大学 VBA编程基础 常量、变量、运算符和表达式； 流程控制语句； 过程调用和参数传递； 常用操作的实现方法； VBA的数据库编程； 3.1 子过程的定义 3.1 子过程的调用 两种调用方法： Call 子过程名(实参1,实参2) 子过程名 [实参1],[实参2] 3.2 函数过程的定义与调用 3.2 函数过程的定义与调用 3.3 形式参数的写法 定义过程的时候可以设置一个或多个形式参数 3.3 形式参数的写法 根据形式参数和实际参数的结合和传递方式： 传值调用(ByVal)：过程中对形式参数的修改，不影响实际参数； 传址调用(ByRef)：过程中对形式参数的修改，影响实际参数； 默认是传址调用(ByRef) 例子 3.3 形式参数的写法 可选参数(Optional) 可以设置可选参数的默认值 3.3 形式参数的写法 可变参数：如果有多个形式参数，可变参数必须放在形式参数的最后，可变参数实际上是Variant类型的数组 练习题 若要在子过程Proc1调用后返回两个变量的结果，下列过程定义语句中有效的是 A) Sub Proc1(n,m) B) Sub Proc1(ByVal n,m) C) Sub Proc1(n,ByVal m) D) Sub Proc1(ByVal n,ByVal m) * * Sub 子过程名([形参]) [子过程语句] [Exit Sub] [子过程语句] End Sub Public：公有过程，说明该过程可以被其他模块的过程调用，一般用在标准模块中，用来声明公用的过程； Private：私有过程，只能被模块内部的过程进行调用； Sub MyOpenForm(strFormName As String) If strFormName = Then MsgBox 打开窗体名称不能为空！, vbCritical, 警告 Exit Sub End If DoCmd.OpenForm strFormName End Sub Function 函数过程名([形参]) [As 数据类型] [函数过程语句] [函数过程名=表达式] [Exit Function] [函数过程名=表达式] End Function Function Area(R As Single) As Single If R = 0 Then MsgBox “必须是正数, vbCritical, 警告 Area = 0 Exit Function End If Area = 3.14 * R * R End Function ‘调用函数 Dim r As Single Dim s As Single s=Area!(5) s=Area(5) ‘形式参数的默认类型是Variant Sub MySub(a,b) ‘为形式参数指明类型 Sub MySub(a As Integer,s As String) ‘形式参数中说明参数的传递方式 Sub MySub(ByVal a As Integer,ByRef s As String) Public Sub SwapByVal(ByVal a As Integer, ByVal b As Integer) Dim t As Integer t = a a = b b = t End Sub Public Sub SwapByRef(ByRef a As Integer, ByRef b As Integer) Dim t As Integer t = a a = b b = t End Sub Public Sub MyMsgBox(prompt As String, Optional title As String = 警告) MsgBox prompt, vbCritical, title End Sub Public Function MySum(ParamArray var()) Dim i As Integer Dim sum As Integer For i = LBound(var) To UBound(var) sum = sum + var(i) Next i MySum = sum End Function *