ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 静态数组和动态数组之间的区别是怎么样?

静态数组和动态数组之间的区别是怎么样?

作者:绿色风 分类: 时间:2022-08-17 浏览:83
楼主
wise
Q:静态数组和动态数组之间的区别是怎么样?
A:请看以下说明和例子讲解:
静态数组在执行期间不可以改变其上界(最后一个元素的索引号),而动态数组可以随时修改其上界。
静态数组声明:
dim arr(2) as long
dim arr(1 to 10,1 to 100) as long
动态数组声明,需要dim 语句结合Redim 语句或者 Redim Preserve语句来实现,Redim语句或者Redim Preserve语句的作用是为了动态数组变量重新分配存储空间,它只能调整数组最后维的大小,并且不能改变数组的维数。但Redim语句重置数组大小时,会使数组中的值丢失;而利用Redim Preserve语句重置数组大小时可以保留原数组中的值。
可以使用Redim语句反复改变数组的元素以及维数的数目,但不能将一个数组定义为某种数据类型后,再使用Redim将该数组改为其他数据的类型,除非是Variant所包含的数组。
具体例子看:
  1. Sub a()
  2. Dim arr(), arr1()
  3. arr = [A1:C13].Value
  4. arr1 = [A1:C13].Value
  5. ReDim arr(1 To 2, 1 To 3) '重置数组大小为2行3列的二维数组
  6. ReDim Preserve arr1(1 To 13, 1 To 2) '重置数组大小为13行2列的二维数组
  7. MsgBox "arr(2,1):" & arr(2, 1) & Chr(10) & "arr1(2,1):" & arr1(2, 1)
  8. End Sub
执行过程后,Redim语句重置数组大小后,数据arr的数据丢失,而Redim Preserve 语句重置后的数组arr1却保留下来。

动态数组.rar
2楼
biaotiger1
Q:如何设置二维可变数组?
A:如设置一维可变数组,可参照下贴
[程序开发] 为什么这个数组赋值提示下标越界呢? http://www.exceltip.net/thread-2362-1-1.html


如果需要设置二维可变数组,代码如下
  1. Sub 二维可变数组的维数()
  2. Dim arr(), R
  3. 'For R = 1 To 5
  4. '    ReDim Preserve arr(1 To R, 1 To 2)
  5. '    arr(R, 1) = R: arr(R, 2) = R
  6. 'Next R
  7. For R = 1 To 5
  8.     ReDim Preserve arr(1 To 2, 1 To R)
  9.     arr(1, R) = R: arr(2, R) = R
  10. Next R
  11. End Sub

如果取消以上注释部分,代码会出错。
Preserve 关键字仅能改变数组最后一维的上界,如果改变其他维的上界会出错
3楼
wise
ReDim   语句通常用于指定或修改动态数组的大小,这些数组已用带有空括号的,Private、Public   或   Dim   语句(没有维数下标)正式声明过。可以重复使用ReDim语句更改数组维数和元素数目.
如果使用了   Preserve   关键字,就只能调整数组最后维的大小,并且不能改变数组的维数。例如,如果数组只有一维,就可以修改该数组的大小,因为该维是最后的也是仅有的一维。但是,如果数组有两个或更多维,就只能改变末维的大小并保留数组内容。下面的样例示范了如何不删除动态数组的原有内容而又增加末维的大小。
  ReDim   X(10,   10,   10)   
   ReDim   Preserve   X(10,   10,   15)

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap