【计算机资料】Access数据库应用基础教程（第三版）part2.ppt

Access数据库应用基础教程（第三版） part2 * * 11.3 VBA程序设计基础 3．数组 （1）定义固定大小的数组 如语句： Dim array1(5) as double; 定义了一个双精度型的一维数组array1,它的数据容量为6，即它可以代替6个变量。 又如语句： Dim array2(2,6) as string; 定义了一个字符型的二维数组array2，它的数据容量为3*7=21，既可以代替21个变量。 * * 11.3 VBA程序设计基础 3．数组 (2)定义动态数组 除了可以定义固定大小的数组外，在VBA中也可以定义动态数组，即在定义时无大小维数声明。 若要声明为动态数组，则可以在执行代码时改变数组大小。可以利用Static、Dim、Private或Public语句来声明数组，并使括号内为空，如下例： Dim sngArray() As Single 要使用该变量时，再利用Redim语句来重新改变数组大小。对于过程中的数组范围，可以使用Redim语句去改变它的维数可以使用Redim语句去更改动态数组空间的大小，如下例： Dim array1() as double; Redim array1(5); Array1(3)=250; Redim array1(3,8); * * 11.3 VBA程序设计基础 3．数组 语句首先定义了一个动态的double类型的数组array1，但没有定义数组的大小。在第二条语句，使用Redim语句对数组进行重定义，给array1分配空间，第三条语句给数组赋值，第四局又重新定义array1为二维数组。 然而在重新定义数组时，数组中原来存在的值会丢失。若要保存数组中原先的值，则需要使用Preserve语句来扩充数组。 例如，下列的语句将Array1数组扩充了10个元素，而原数组中的当前值并没有丢失掉： Redim Preserve Array1(UBound(Array1)+10) 注意对动态数组使用Preserve关键字时，只可以改变最后维数的上层绑定，而不能改变维数的数目。 在使用时，对数组中的单个变量的引用通过索引下标进行。如语句： Dim array1(4) as Int; Array1(3)=100; * * 11.3 VBA程序设计基础 3．数组 第一条语句定义一个一维数组array1，数组中变量个数为5，第二条语句对数组中第四个变量赋值为100。 在VB中，默认情况下下标是从0开始的。数组下标是从0或1开始，可以根据Option Base语句来设置。如果Option Base没有指定为1，则数组下标从0开始。 如果在程序使用中，先制定Option Base为1，再用 Dim array2(4) as Int; 语句定义数组array2时，array2中包含的变量个数为4个，而不是5个。 * * 11.3 VBA程序设计基础 11.3.2数据类型 数据类型决定系统使用的数据格式。在VBA语言中数据类型包括布尔型(Boolean)、日期型(Date)、字符串(String)、货币型(Currency)、字节型(Byte)、整数型(Integer)、长整型(Long)、单精数型(Single)、双精数型(Double)以及变体型(Variant)和用户自定义型。表11.1列示了VBA所支持的数据类型，以及各自的存储空间大小与数值范围。 * * 11.3 VBA程序设计基础 11.3.2数据类型