数据库原理及应用Access2003课件作者段雪丽邵芬红史迎春第8章节模块与VBA程序设计基础.ppt

8.7 VBA面向对象的程序设计 Case / If n2 = 0 Then MsgBox 除数不能为0！, vbOKOnly + vbCritical, 警告 Exit Sub Else n3 = n1 / n2 End If End Select Forms![calculator]![txtNum3] = n3 End Sub 8.7.3 面向对象程序设计示例 8.7 VBA面向对象的程序设计 Private Sub cmdClear_Click() Me![txtNum3] = End Sub Private Sub cmdExit_Click() DoCmd.Close End Sub 在VBA代码中引用窗体上的控件时，有两种形式： Forms![窗体名]![控件名] Me![控件名] ‘其中Me代表包含该事件过程的窗体。 8.7.3 面向对象程序设计示例 第8章 模块与VBA程序设计基础 总 结 模块是数据库中一个重要对象，模块是无界面的，模块由一组变量和过程集合构成。 VBA支持的数据类型、变量和常量、表达式。 数组是一组相同类型的数据的有序集合。 选择结构和循环结构的各种语句。 过程调用和参数传递，包括Sub过程、Function过程的定义和调用。 过程之间的传值和传址两种参数传递。 8.5 VBA的程序结构 6. 多条件选择语句Select Case 对于多分支的选择如果采用if语句就显得比较麻烦，为此VBA采用Select Case语句进行多分支结构的选择。语法格式如下： Select Case 测试条件 [Case 表达式列表1 语句序列1] [Case 表达式列表2 语句序列2] …… [Case 表达式列表n 语句序列n] [Case Else 语句序列n+1] End Select 8.5.1 选择语句 8.5 VBA的程序结构 8.5.1 选择语句 流程图如下 8.5 VBA的程序结构 在实际应用中，我们经常会遇到处理同样事情，重复进行同样操作的情况。如在窗口中连续输出多个“*”号，连续生成100个随机整数等。这些操作都需重复执行某些语句，能够处理重复执行的结构称为循环结构。 8.5.2 循环语句 8.5 VBA的程序结构 1. For…Next结构 For循环又称计数循环，用于循环次数预知的场合。 具体格式： For 循环变量=初值 To 终值 [Step 步长] 循环体 [Exit For] Next [循环变量] 步长等于1时，可省略Step子句 8.5.2 循环语句 8.5 VBA的程序结构 For…Next结构的执行步骤是： （1）计算初值、终值及步长表达式的值，并将初值赋给循环变量； （2）判断循环变量的值是否“超过”终值： 当步长为正时，“超过”是指循环变量的值终值； 当步长为负时，“超过”是指循环变量的值终值； 若“超过”时，退出循环，转到Next语句的下一语句； 若“不超过”时，则执行循环体中的语句； （3）执行Next语句，循环变量增加一个步长；返回第（2）步。 8.5.2 循环语句 8.5 VBA的程序结构 2. Do While…Loop语句 格式： Do While条件表达式 循环体 [Exit Do] Loop 执行过程是首先判断条件表达式的值是否为True。若为False，则退出循环，执行Loop后面的语句。若为True，则执行循环体中的语句，当执行到Loop语句时，返回到Do While语句，继续判断条件表达式的值是否为True，如此反复执行，直到条件表达式的值为False才退出循环。遇到Exit Do语句时，将强制提前结束循环，执行Loop后的下一条语句。Do While…Loop语句是先判断条件后执行循环体，有可能一次也不执行； 8.5.2 循环语句 8.5 VBA的程序结构 3. Do…Loop While语句 格式： Do 循环体 [Exit Do] Loop While条件表达式 执行过程是首先执行一次循环体内的语句，执行到Loop while语句时，判断条件表达式的值是否为True。若为True，则返回到循环体的开始语句，再次执行循环体，这样一直到条件表达式的值为False时才退出循环。 8.5.2 循环语句 8.5 VBA的程序结构 4. Do Until…Loop语句 格式： Do Until 条件表达式