数组的定义与声明

《数组的定义与声明》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、数组的定义与声明  数组的定义与声明数组的定义语法如下：Dim数组名([[下标下界To]下标上界])[As数据类型]例如（假设在当前模块中数组的缺省下界为0））：①DimA(10)AsInteger表示数组名为A，此数组下标下界为缺省值0，下标上界为10，有11个Integer类型的元素，从A(0)、A(1)到A(10)。②DimB(1To20)AsInteger表示数组名为B，此数组下标下界为1，下标上界为20，有20个Integer类型的元素，从B(1)到B(20)。③DimDayArray(

2、50)表示DayArray是一个有51个索引（从0到50）元素的Variant数组。④DimMatrix(3,4)AsInteger表示Matrix是一个二维Integer数组。⑤DimMyMatrix(1To5,4To9,3To5)AsDouble表示MyMatrix是一个显式指定了上下界的三维double数组。⑥DimBirthDay(1To10)AsDate表示BirthDay是一个索引从1到10的Date型数组。2．OptionBase语句OptionBase语句在模块级别中使用，用来声明

3、数组下标的缺省下界。OptionBase语句的语法如下：OptionBase{0

4、1}　　说明：缺省状态下数组下界为0，此时无需使用OptionBase语句。如果使用该语句规定数组下界1，则必须在模块的数组声明之前使用OptionBase语句。注意：（1）Dim、Private、Public、ReDim以及Static语句中的To子句提供了一种更灵活的方式来控制数组的下标。不过，如果没有使用To子句显式地指定下界，则可以使用OptionBase将缺省下界设为1。使用Array函数创建的数组的下界也

5、受OptionBase语句指定的下界的决定,除非Array是由类型库（例如VBA.Array)名称限定，如果是由类型库名称限定，则使用Array函数创建的数组的下界不受OptionBase的影响。（1）OptionBase语句只影响位于包含该语句的模块中的数组下界。关于数组声明的几点说明：①数组名命名规则和变量名的相同。②数组名后是用圆括弧括起来的，不能用方括弧，不同于C语言。③下标的下界必须不能大于其上界。④可以用变量名或常数名（以及实数）作下标的边界。当下标的边界是常数名时，数组的大小固定，当

6、下标的边界是变量名时，数组的大小可作动态定义，即数组的大小取决于程序运行过程中变量的值。因此，VB中数组又可以分为两种数组：静态数组、动态数组。3．静态数组静态数组是指数组元素的个数是固定不变的，即它们占用的内存空间大小是固定不变的。根据固定大小数组的维数不同，可以将它分为一维数组和多维数组。声明多维数组的语法格式为：Dim数组名（[下标边界列表]）[As数据类型]下标边界的定义形式：[下标下界To]下标上界下标边界列表指用逗号分开的数组各维的下标边界，即[下标下界To]下标上界，[下标下界To]

7、下标上界，……，[下标下界To]下标上界（第一维）（第二维）（第n维）当n=1时，数组称作一维数组；当n=2时，数组称作二维数组；依次类推，当n=m时，数组称作m维数组。下面举例介绍一维数组的使用。’声明一个长度为51的字符串数组FriendsNameDimFriendsName(50)AsString’声明一个长度为11的全局整型数组ClassPublicClass(10)AsInteger一维数组中的元素个数为（上界-下界+1）。为数组赋初值可以采用循环语句，如：DimIAsIntegerFo

8、rI=0To11’循环语句的使用程序流程的控制C(I)=INextI　　如果不显式指定下标下界，则数组的下标下界由OptionBase语句控制。如果没有OptionBase语句则下界为默认为0。数组的维数并不限于２，在VB中，可以扩大至于60，在实际应用上对三维以上的数组的应用是不多的。定义一个多维数组时只需一条Dim语句指定数组的所有下标边界即可，使用多维数组的可以很方便的表示一些有意义的统计数据。例如：DimProfit(16,10,12)AsCurrency这个Profit数组可用来表示以店

9、名、部门及月份为参数的某百货公司的利润。如：Profit(2,8,11)代表了第二分店的第八部门在11月份的利润。4．动态数组有时在数组开始使用前，不能知道需要多大的数组才能满足实际需要。当然可以把数组的大小定义到足够大来满足任意的实际应用需要，这种方法效率很低（大量浪费内存空间）。如果使用动态数组，就可以在程序运行时根据实际需要，精确定义数组的大小。在声明数组时，不给出维数列表就是将数组声明为动态数组。例如：DimMyArry()AsInteger在使用动态数组前，必须使用ReD