动态数组与固定数组速度比较

lipton

话题源于贴： http://club.excelhome.net/forum. ... tid=995573#lastpost

2楼Zamyi的点评
“Zamyi：  动态数组并不慢，而是ReDim Preserve慢。”

之前对动态数组的理解有偏差。
经过测试，证实动态数组在变动少的情况下速度与固定数值差别不大。
在此感谢Zamyi指点。
三人行必有我师。
附测试代码：

固定数组测试：

1. Sub ArrayTest1()
   
2.    
   
3.     Dim arr(9999) As Long
   
4.     Dim t
   
5.     Dim i As Long, j As Long
   
6.    
   
7.     t = Timer
   
8.     For j = 1 To 1000
   
9.         For i = 0 To 9999
   
10.             arr(i) = i
    
11.         Next i
    
12.     Next j
    
13.     t = Timer - t
    
14.     Debug.Print t '.1757813秒
    
15.    
    
16.    
    
17. End Sub
    

复制代码

动态数组测试

1. Sub ArrayTest2()
   
2.    
   
3.     Dim arr() As Long
   
4.     Dim t
   
5.     Dim i As Long, j As Long
   
6.    
   
7.     ReDim arr(9999) As Long
   
8.     t = Timer
   
9.     For j = 1 To 1000
   
10.         For i = 0 To 9999
    
11.             arr(i) = i
    
12.         Next i
    
13.     Next j
    
14.     t = Timer - t
    
15.     Debug.Print t '.1875秒
    
16.    
    
17.    
    
18. End Sub
    

复制代码

liucqa

这是测啥呢？这么测本来就没区别

crazy0qwer

时间太短了。。。。
这样测试大部分的误差都是timer计时产生的误差了吧。
timer的精度估计估计得几十毫秒。（没测试过）
别看他后面那么多位数就以为它精度很高

有必要加两个循环吗？
一亿次还是太短了，你再加点看看，我的电脑太垃圾，内存溢出。不过一亿次已经看出差别了

1. Sub ArrayTest1()
   
2.     Dim arr(99999999) As Long
   
3.     Dim t
   
4.     Dim i As Long, j As Long
   
5.     t = Timer
   
6.         For i = 0 To 99999999   ’一亿。。。
   
7.             arr(i) = i
   
8.         Next i
   
9.     t = Timer - t
   
10.     Debug.Print t '.1757813秒
    
11. End Sub
    

复制代码

lipton

liucqa 发表于 2013-3-30 10:09
这是测啥呢？这么测本来就没区别

在此之前一直认为动态数组慢。精确的定义是扩展动态数组的动作造成效率的急剧下降。

lipton

crazy0qwer 发表于 2013-3-30 12:23
时间太短了。。。。
这样测试大部分的误差都是timer计时产生的误差了吧。
timer的精度估计估计得几十毫秒 ...

外循环的作用是用于放大测试样板的数据，结果和单循环差不多。

1. Sub ArrayTest1()
   
2.     Dim arr(99999999) As Long
   
3.     Dim t
   
4.     Dim i As Long, j As Long
   
5.     t = Timer
   
6.         For i = 0 To 99999999   '一亿。。。
   
7.             arr(i) = i
   
8.         Next i
   
9.     t = Timer - t
   
10.     Debug.Print t '1.65625
    
11. End Sub
    
12. Sub ArrayTest2()
    
13.     Dim arr() As Long
    
14.     Dim t
    
15.     Dim i As Long, j As Long
    
16.    
    
17.     ReDim arr(99999999) As Long
    
18.     t = Timer
    
19.         For i = 0 To 99999999   '一亿。。。
    
20.             arr(i) = i
    
21.         Next i
    
22.     t = Timer - t
    
23.     Debug.Print t '1.804688
    
24. End Sub

复制代码

liucqa

lipton 发表于 2013-3-30 23:21
在此之前一直认为动态数组慢。精确的定义是扩展动态数组的动作造成效率的急剧下降。

扩展动态数组应该一次扩展一定数量的单位的空间，而不是一个单位空间。

在某些语言里面，这个数字是16。你可以根据自己的需要，一次扩展几十、几百或者几千，这样就基本不会影响效率了

zhaogang1960

论坛上有人做过试验，如果数组不是特别大，固定数组速度要快些，是因为固定数组少了一个redim，除此之外应该没有区别

1. Sub Macro1()
   
2.     Dim arr, brr()
   
3.     arr = [a1].CurrentRegion
   
4.     ReDim brr(1 To UBound(arr), 1 To 10)
   
5. End Sub
   
6. Sub Macro2()
   
7.     Dim arr, brr(1 To 65536, 1 To 10)
   
8.     arr = [a1].CurrentRegion
   
9. End Sub

复制代码