2016数据库Access应用(主编范萍-中央广播电视大学出版社) Miscellaneous变量.docVIP

? 3．变量 ? 程序中的变量为临时在座单元，可存放文字、数值、日期和对象属性。每个变量都有一个名字，程序通过变量名对变量进行存取操作。 ? ⑴ VBA的变量命名规则 ? 变量名必须以英文字母开头。 变量名长度不可以超过255个字符。 除英文字母、数字、下划线外，其他字符尽量避免使用。 变量名不能与VBA本身的函数过程、语句以及方法同名。 变量名在同一作用域内不能相同。 ? VBA变量不区分大小写。为了便于识别数据类型，在给变量或常量命名时，常常采用给变量名或常量名加前缀的方法。在VBA中，有一些约定俗成的常量和变量的命名前缀。如下表： 数据类型?????? 前缀 —————————— Byte??????????? Byt Integer???????? Int Long??????????? Lng Single????????? Sng Double????????? Dbl Currency??????? Cur String????????? Str Boolean???????? Bln Date??????????? Date Variant???????? Vnt Object????????? Obj 用户自定义????? Udt —————————— ? ⑵ 变量声明 ? VBA变量声明有两种方法： ◆ 隐性声明。如果没有指定变量的类型而使用变量，则此变量默认为Variant类型。这种声明方式不但增加了程序运行的负担，而且极容易出现数据运算问题，造成程序出错。◆ 显性声明。语法：Dim 变量名 [As 类型]??? 如： Dim X Dim W As Integer Dim A As String, B As Currency, C As Integer 注意：如果这样声明：Dim x,y,z As Integer，则x,y为Variant类型。 ? ⑶ 变量的应用范围 ? 变量有三个范围级别 ◆ 过程级别。在过程内，只有在声明此变量的过程中才可使用的变量称为局部变量。用户可以使用Dim 或 Static关键字来定义。如： Dim x As Single Static y As single 用Dim 定义的局部变量只有在它所在的过程运行时才会有值，而Static定义的局部变量在整个程序运行期间均有值，所以它可以作为中间变量保存结果。 ◆ 私有模块级别 在程序中，公共模块中的变量对于所有模块的所有过程均可用，而私有模块中的变量只对所属模块过程可用。 用户可以在窗体、报表和标准模块顶部的声明部分用Dim或Private定义模块级的变量。由Dim语句在声明部分所声明的变量，其范围默认为私有的。 ◆ 公共模块级别 如果将一个变量声明为公共模块级变量，那么他就可以为工程所有过程调用。它通过Public来声明。 ? ⑷ 变量的生存期 ? 在给变量声明了应用范围后，变量就有了一个生存周期，即变量保留数值的时间。具体地说，就是变量第一次（声明时）出现到消失时的持续时间。 Dim语句声明的过程级别变量将把数值保留到退出此过程为止。如果该过程调用了其他过程，则在这些过程运行的同时，属于调用者过程的变量将保留它的值。 如果用户希望保存某个过程局部变量的值，可以用Static声明。如果过程级别的变量是用Static关键字来声明的，则只要有代码正在运行，此变量就会保留它的值；而当所有代码都完成运行后，变量将不再起作用，所以它的生成周期和模块级别变量是一样的。 模块级别的变量与静态变量是不同的，在标准模块或类模块中变量会保留它的值直到停止款运行代码。在对象类模块中，只要仍有一个属于此对象类的实例存在，变量就会一直保留它的值。模块级别的变量会一直占用内存资源，直到重新设置它们的值，所以应只有必要时才使用它们。 如果在Sub或Function语句前面加上Static，则此过程中所有级别的变量值在调用期间将保留。 ? 4．数组 ??? ⑴ 声明数组 格式：Public/Private/Static/Dim 数组名（[下标] To 上界） [As 数据类型] 例如：Public Workers(8) As Integer Dim Workers(8) As Integer ????? Static Workers(8) As Integer 上述例子中，下标默认为0，上界为8，共9个元素。也可以人为指定下标，如： Dim Workers(1 To 8) As Integer 通常可以通过一个For循环处理数组： ? Static Numbers(1 To 15) As Integer Dim I As Integer For I=1 To 15 ? Numbers(I)=30 Next I ? ⑵ 二维数组和多维数组 可以如下定义二维