为何用字典赋值会比数组慢那么多?

zhonglegend · 发表于 2010-2-2 19:11

如题：为何用字典赋值会比数组慢那么多?
约几百倍？

Sub 计算循环时间()
Dim d As Object, arr(10000000), i, t As Date, t1$, t2$, k
Set d = CreateObject("Scripting.Dictionary")
k = 300000
t = Timer
For i = 1 To k
d(i) = i
Next i
t1 = Timer - t
t = Timer
For i = 1 To k
arr(i) = i
Next i
t2 = Timer - t
MsgBox "字典循环 " & k & " 次用 " & Format(t1, "0.0000") & " 秒" & Chr(13) _
& Chr(13) & "数组循环 " & k & " 次用 " & Format(t2, "0.0000") & " 秒"
End Sub

灰袍法师 · 发表于 2010-2-2 19:17

因为字典是一个对象object (对象＝打包的一堆数据＋访问这些数据的函数)

目前在任何编程语言，访问对象都比数组慢。。。。。。很多。

唔。。。。。。有点像访问ZIP里面的文件，比访问没压缩的文件慢。

话说：访问字典对象已经比Excel的单元格对象快多了。

zhonglegend · 发表于 2010-2-2 19:23

在精英论坛里兰板的视频说字典比数组快不知是指哪方面

Zamyi · 发表于 2010-2-2 19:34

原帖由 zhonglegend 于 2010-2-2 19:23 发表
在精英论坛里兰板的视频说字典比数组快不知是指哪方面

是断章考大家？

zhonglegend · 发表于 2010-2-2 19:36

在问题中学习，学无止境

Zamyi · 发表于 2010-2-2 19:42

dim i&,n&,d
Set d = CreateObject("Scripting.Dictionary")
n=10000
for i=8000001 to 8000001+n
d(i)=""
next

dim i&,n&,d
Set d = CreateObject("Scripting.Dictionary")
n=10000
for i=8000001 to 8000001+n
d("" & i)=""
next
不要运行，上面两段哪个快？

[ 本帖最后由 Zamyi 于 2010-2-2 19:47 编辑 ]

zhonglegend · 发表于 2010-2-2 19:49

理论上第一段快，第二段多了 s=i

lb_bn · 发表于 2010-2-2 20:00

对象本身就没有数组快。

灰袍法师 · 发表于 2010-2-3 00:27

原帖由 zhonglegend 于 2010-2-2 19:23 发表
在精英论坛里兰板的视频说字典比数组快不知是指哪方面

查询大量数据的时候，字典比数组快

因为数组一般只能一个一个元素读取比较，字典是直接找到需要的元素

		自动登录	找回密码
密码			免费注册

[讨论] 为何用字典赋值会比数组慢那么多?