第十一讲 面向对象程序设计语言-VBA.ppt

第十一章 面向对象程序设计 语言-VBA 11.1 VBA概述 11.2 模块、函数及程序 11.3 VB的数据类型与数据库对象 11.4 变量 11.4.1 显式变量 11.4.2 变量的作用域与生命周期 11.4.3 隐含型变量 11.4.4 数组 11.5 将数据库对象命名为VBA程序代码中的变量 11.6 变量命名的法则 11.7 符号常量 11.8 Access系统定义的常量 11.9 Access固有常量 11.10 程序控制流程 11.11 处理执行时的错误 11.12 探索模块窗体 11.13 小结 形式： Const 符号常量名 = 表达式 符号常量名：常量名的命名规则同变量名，为便于与一般变量名区别，常量名一般用大写字母。 表达式：可以是数值常数、字符串常数以及由运算符组成的表达式。 例： Const MAX=100 若要在模块的声明区说明符号常量，例如要建立一个所有模块都可使用的全局常量的话，可以在Const前加上Global关键字，如： Global Const SPI ＝ 3.1416 这一常量涵盖全局或模块级的范围。 Access包含有几个Access启动时就建立的系统定义的常量，如True、False、Yes、No、On、Off和Null。 这几个常量中，在Visual Basic代码中可用True 、False和Null。剩下的四个是提供除了模块以外的所有数据库对象使用的。 全局的常量True和False在Visual Basic中必须要被显示地说明。在Visual Basic中不能指定True 、False和Null为常量名。如果在VB中试图给True 、False和Null指定常量名，系统会提示错误： Expected： identifier。 Access为操作、数据库和变量数据类型，分别提供了以A_、DB_、V_为开头说明的固有常量。这些名称会出现在说明窗体中的“常量主题”中。 不可以将任何这些固有常量名称作为用户所定义的常量。 可以只用三种语句来控制任何程序语言的流程： 条件性执行（If…Then） 重复语句（Do While…Loop和相关的结构） 终止语句（End…） Visual Basic和其他程序语言中额外的流程语句，可使编写程序代码更为直接。 以GoTo转移程序控制 VBA的GOTO Labal语句可以跳过一些代码块到Labal的位置，并从该点继续执行。Labal标号要从代码的最左边（第一列）开始写，这个位置通常会影响代码的缩进格式。 一般情况下不要使用GOTO语句。在VBA程序中使用GOTO语句的唯一一个目的就是用On Error GoTo Labal语句来处理错误。 条件语句 If…Then …End If语句 Select Case …End Select结构 If/Then/End if语句是典型的判断分支控制语句。语法格式为： If 条件[=True] Then …条件为真时执行的语句 End if 另外还可以使用嵌套IF语句格式： If条件1[=True]Then …条件为真时执行的语句 Elself条件2[=True] Then …条件1不成立但条件2成立时，执行的语句 End if 下面的IF语句用来判断一个字符是否是字母，而且判断它的大小写。 If Asc(strChar)63 And Asc(strChar91) Then strCharType=“大写字母子” Elself Asc(strChar)96 And Asc(strChar123) Then strCharType=“小写字母” End If 当有多种选择时，使用If …Else语句，这样的语句需要多重嵌套，使得程序十分复杂，不容易读，这时就可以使用Select语句，Select语句是一个多分支控制语句。语法格式为： Select Case表达式 Case值1 语句1 Case值2 语句2 … Case Else 语句 End select 例如：下面语句用来对字母进行判断 Select Case strChar Case “A”To “Z” strCharType=“大写字母” Case “a”To “z” strCharType=“小写字母” Case “0”To “9” st