动态数组及声明11

动态数组：在声明时未给出数组的大小。在程序执行时分配存储空间。5.4.1动态数组的建立及使用

建立动态数组包括声明和大小说明两步：

1．在使用Dim、Private或Public语句声明括号内为空的数组。格式：Dim|Private|Public数组名（）As数据类型例：Dimprivatea()AsInteger2．在过程中用ReDim语句指明该数组的大小。格式：ReDim[Preserve]数组名（下标1[，下标2…]）

Preserve参数：保留数组中原来的数据例：RedimA(10)RedimPreserveA(20)5.4动态数组说明：（1）ReDim语句是一个可执行语句，只能出现在过程中，并且可以多次使用，改变数组的维数和大小。（2）定长数组声明时的下标只能是常量，而动态数组ReDim语句中的下标是常量，也可以是有了确定值的变量。例：

PrivateSubForm_Click()DimNAsIntegerN=Val(InputBox(“输入N=？”))Dima(N)AsInteger…….Endsub×5.4动态数组

（3）在过程中可以多次使用ReDim来改变数组的大小，也可改变数组的维数。例：ReDimx(10)ReDimx(20)x(20)=30Printx(20)ReDimx(20,5)x(20,5)=10Printx(20,5)

（4）每次使用ReDim语句都会使原来数组中值丢失，可以在ReDim后加Preserve参数来保留数组中的数据。但此时只能改变最后一维的大小。5.4动态数组例

Redim语句和Preserve语句的使用。5.4动态数组

5.4.2与数组操作有关的几个函数Array函数Array函数可方便地对数组整体赋值，但它只能给声明Variant的变量或仅由括号括起的动态数组赋值。赋值后的数组大小由赋值的个数决定。形式：数组名=Array(数据列表)

例如，要将1,2,3,4,5,6,7这些值赋值给数组a，可使用下面的方法赋值。Dima()‘由括号括起的动态数组A=array(1,2,3,4,5,6,7)Dima‘Variant的变量A=array(1,2,3,4,5,6,7)5.4动态数组2求数组的上界Ubound()函数、下界Lbound()函数

Ubound()函数和Lbound()函数分别用来确定数组某一维的上界和下界值。使用形式如下：

UBound(<数组名>[,<N>])LBound(<数组名>[,<N>])

其中：<数组名>：数组变量的名称，遵循标准变量命名约定。<N>

：可选的；一般是整型常量或变量。指定返回哪一维的上界。1表示第一维，2表示第二维，如此等等。如果省略默认是1。5.4动态数组例：使用LBound和Ubound函数求数组的上界和下界。5.4动态数组例如，如下程序段对a,b数组赋值，并显示输出结果。3．Split函数使用格式：Split(<字符串表达式>[,<分隔符>])说明：使用Split函数可从一个字符串中，以某个指定符号为分隔符，分离若干个子字符串，建立一个下标从零开始的一维数组。5.4动态数组输入一系列的数据，并将它们分离后存放在数组中。对输入

的数据允许修改和自动识别非数字数据。

（1）利用文本框输入和编辑数据，输入时去除非法数字。合法字符包括数字、逗号（，）、小数点（.）和负号（-）。2）输入结束利用Replace函数去除重复输入的分隔符；将重复的分隔符（，，）替换成（，）Replace的用法：Replace（c，c1，c2），作用是在c字符串用c2代替c1，如Replace（“ABCDABCD”,”CD”,”123”）,结果是AB123AB1235.4动态数组3）对利用Split函数按分隔符分离，放到数组中；Split的用法：Split（c，d），作用是将c字符串按分隔符d分割成字符数组，s=Split（“123,56，ab”，“，”）结果为s（0）=123，s（1）=“56”，s（2）=“ab”。4）利用Join函数将数组中各元素合并成一个字符串。Join的用法：Join（a，d），作用是将数组a中各元素按d分隔符连接成字符串变量。A=Join（“123”，“ab”，“c”），结果为