8章。VBA编程语言.ppt

1．注释语句 通常，一个好的程序一般都有注释语句，这对程序的维护以及代码的共享都有重要意义。在VBA程序中，注释可以通过使用Rem语句或用单引号“”实现，其中注释语句在程序执行过程中不执行。 （1）使用Rem语句 Rem?语句在程序中作为单独一行语句，Rem语句多用于注释其后的一段程序。 语句格式为：Rem 注释内容。 （2）使用西文单引号“” 可使用单引号“”引导注释内容，用单引号引导的注释可以直接出现在一行语句的后面。 语句格式为：注释内容。 【例8.14】注释语句使用举例。 Rem 定义2个字符型变量 Dim Str1,Str2 As String Str1=图书馆借阅管理系统 Str1变量记下图书馆借阅管理系统的名称 Str2=Access数据库基础教程 ：Rem Str2变量记下Access数据库基础教程字符串 说明：添加到程序中的注释语句或内容，系统默认以绿色文本显示，在VBA运行代码时，将自动忽略掉注释。 2．声明语句 声明语句用于命名和定义过程、变量、数组或常量。当声明一个过程、变量或数组时，也同时定义了它们的作用范围，此范围取决于声明位置（子过程、模块或全局）和使用什么关键字（Dim、Public、Static等）来声明它。 3．Option语句 Option语句在模块的开始部分使用，用于对环境状态进行设置。 （1）Option Compare 在模块中指定字符串比较的方法 语法格式：Option Compare {Binary | Text | Database} 说明： ① Option Compare 语句必须写在模块的所有过程之前。 ② Database(默认选项)：当需要字符串比较时，将根据数据库的区域ID确定的排序级别进行比较。 ③ Text：不区分英文字母的大小写。 ④ Binary：区分英文字母的大小写，如果模块中没有 Option Compare 语句，则缺省的文本比较方法是 Binary。 （2）Option Base 0|1 设置该模块所有数组默认下标的初始值，其后只可使用0或1两个数字。 ① 0 模块所有数组的最小元素由0开始编号。 ② 1 模块所有数组的最小元素由1开始编号。 （3）Option Explicit 在模块中使用Option Explicit，则必须使用 Dim、Private、Public、ReDim 或 Static 语句来显式声明所有的变量。如果使用了未声明的变量名在编译时会出现错误。 在模块中没有使用 Option Explicit，除非使用 Deftype 语句指定了缺省类型，否则所有未声明的变量都是 Variant 类型的。 （4）Option Private Module 在声明区域使用该语句，表示此模块声明区域声明的变量、常量等为私有，但仍可由现有数据库的模块使用，而不可由其他数据库使用。 4．赋值语句 赋值语句是程序设计中最基本的语句，用于指定一个值或表达式给变量或常量。 赋值语句的语句格式如下： 格式1：[let] 变量名=表达式 格式2：[对象名.]属性名=表达式（若对象名省略，则默认对象为当前窗体或报表） 【例8.15】赋值语句举例。 BookName=Access数据库基础教程 BookPrice=23.40 Let BookNumber=1200 BookTotalPrice= BookNumber* BookPrice Form1.Caption=图书馆借阅管理系统 Text1.text= Text2.text 说明： ① 在赋值语句中，=是赋值号，在VBA中系统会根据所处的位置自动地判断是赋值号还是等号。 ② 赋值号左边只能是变量，不能是常量、符号常量或表达式。 ③ 当表达式是数字字符串，变量为数值型，系统自动转换成数值类型再赋值，若表达式含有非数字或空串时，赋值出错。 ④ 不能在一个赋值语句中，同时给多个变量赋值。 ⑤ 在赋值语句中经常出现语句：I=I+1，语句的作用是变量I 中的值加1后再赋值给I,与循环语句结合可实现计数。 5．With语句 With语句是用来对某个对象执行一系列的语句，而不用重复指出对象的名称。 语法格式为： With 对象 .语句 End With 【例8.16】改变Command1按钮的属性。 With Command1 .Caption= 确定 .Top=500 .Enabled=True .FontSize=14 End With 6．On Error语句 编写程序代码时不可避免地会发生错误。常见的错误主要发生在以下3个方面： （1）语法错误。如变量定义错误，语句前后不匹配等。 （2）运行错误。如数据传递时类型不匹配，数据发生异