数据类型与效率的问题（无解）

Zamyi · 发表于 2010-11-25 15:32

看下面两段小程序，先不运行，比较t1和t2用时：
Sub TestA1()
Dim R()
n = 60000
ReDim R(1 To n, 1 To 1)
[a:a] = ""
For i = 1 To n
  R(i, 1) = "中国"
Next

t = Timer
Cells(1, 1).Resize(n) = R
t1 = Timer - t
[d1] = t1
End Sub
Sub TestA2()
Dim R() As String
n = 60000
ReDim R(1 To n, 1 To 1)
[a:a] = ""
For i = 1 To n
  R(i, 1) = "中国"
Next

t = Timer
Cells(1, 1).Resize(n) = R
t2 = Timer - t
[d2] = t2
End Sub

再如：
Sub TestB1()
n = 10000
Set d = CreateObject("scripting.dictionary")

t = Timer
For i = 10000001 To 10000000 + n
  d(i) = ""
  Next
t1 = Timer - t
Set d = Nothing
[e1] = t1
End Sub

Sub TestB2()
n = 10000
Set d = CreateObject("scripting.dictionary")

t = Timer
For i = 10000001 To 10000000 + n
  s = "" & i
  d(s) = ""
  Next
t2 = Timer - t
Set d = Nothing
[e2] = t2
End Sub
运行后会不会惊讶？谁能解释？

[ 本帖最后由 Zamyi 于 2010-11-29 17:35 编辑 ]

honggexjq · 发表于 2010-11-25 15:58

前面两段还好理解，VBA需要时间辨别variant类型的变量存储了何种数据，用时会长些
第二个对字典没什么研究，还请高人解释吧

灰袍法师 · 发表于 2010-11-25 17:42

字典的速度差异，我估计是因为字典内部Hash算法对大整数的Hash处理比较慢的原因

一般来说，Hash过程都要做至少一次乘法和一次除法，大整数可能导致更多的运算

比方说可能要处理溢出问题，可能要多做一次除法

变成字符串以后，Hash过程会把字符串转换为数字去计算Hash值，转换后的数字可能实际上小得多，反倒更快

因为只要把For i = 10000001 To 10000000 + n
改为 For i = 1 To n
速度就很快了

不过老实说，这还真是个怪异的现象

[ 本帖最后由灰袍法师于 2010-11-25 17:46 编辑 ]

terqm · 发表于 2010-11-25 19:16

调试了一会..........发现b1,b2真的很怪.....

Zamyi · 发表于 2010-11-26 09:10

原帖由 honggexjq 于 2010-11-25 15:58 发表
前面两段还好理解，VBA需要时间辨别variant类型的变量存储了何种数据，用时会长些
第二个对字典没什么研究，还请高人解释吧

如果理解为“VBA需要时间辨别variant类型的变量存储了何种数据”，那么你把"中国"以为"123456"再试试！

[ 本帖最后由 Zamyi 于 2010-11-26 09:21 编辑 ]

honggexjq · 发表于 2010-11-26 10:05

我测过还是string稍快些，但是头两个程序时间的差异远没有后两段程序来的大

Zamyi · 发表于 2010-11-26 10:19

用"中国"测试，t1/t2=12.18，用"123456"测试，t1/t2=1.14，两者相差10倍以上。

honggexjq · 发表于 2010-11-26 10:36

用“中国”我测出来T1/T2=1.56呵呵
楼主你可以多测几次然后取平均

Zamyi · 发表于 2010-11-26 11:07

原帖由 honggexjq 于 2010-11-26 10:36 发表
用“中国”我测出来T1/T2=1.56呵呵
楼主你可以多测几次然后取平均

没错呀：
Public Sub TT()
TestA1 "123456"
TestA2 "123456"
Range("d:d").Insert
TestA1 "中国"
TestA2 "中国"
End Sub
Sub TestA1(S$)
Dim R()
n = 60000
ReDim R(1 To n, 1 To 1)
[a:a] = ""
For i = 1 To n
R(i, 1) = S
Next
t = Timer
Cells(1, 1).Resize(n) = R
t1 = Timer - t
[d1] = t1
End Sub
Sub TestA2(S$)
Dim R() As String
n = 60000
ReDim R(1 To n, 1 To 1)
[a:a] = ""
For i = 1 To n
R(i, 1) = S
Next
t = Timer
Cells(1, 1).Resize(n) = R
t2 = Timer - t
[d2] = t2
End Sub

honggexjq · 发表于 2010-11-26 11:24

For i = 1 To 100
[a:a].Clear
t = Timer
Cells(1, 1).Resize(n) = R
t1 = Timer - t
[d1] = [d1] + t1
Next
[d1] = [d1] / 100

复制代码

改这样试试，还差很多就不知道什么原因了，也许是电脑差别？

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

[讨论] 数据类型与效率的问题（无解）