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

lipton

Bi 和 B2 的比较是因为 字典key值是 String如果赋值是数据类型，内部会隐式转换增加了时间，而且常常会出错如果先转换成会比 B2 快因为 B2 有一个连接字符串的运算。

请测试：

1. Sub TestB1()
   
2. N = 10000
   
3. Dim d
   
4. Set d = CreateObject("scripting.dictionary")
   
5. 
   
6. t = Timer
   
7. For i = 10000001 To 10000000 + N
   
8.   d(CStr(i)) = ""
   
9.   Next
   
10. t1 = Timer - t
    
11. Set d = Nothing
    
12. [e1] = t1 '0.04秒
    
13. End Sub
    
14. 
    
15. Sub TestB2()
    
16. N = 10000
    
17. Dim d
    
18. Dim s As String
    
19. Dim t2
    
20. Set d = CreateObject("scripting.dictionary")
    
21. 
    
22. t = Timer
    
23. For i = 10000001 To 10000000 + N
    
24.   s = "" & i
    
25.   d(s) = ""
    
26.   Next
    
27. t2 = Timer - t
    
28. Set d = Nothing
    
29. [e2] = t2  '0.06秒
    
30. End Sub
    

复制代码

terqm

恩,我曾经也是这样想.....
但,我昨天调试的时候
Sub TestB1()
n = 100000
Dim d
Set d = CreateObject("scripting.dictionary")
t = Timer
For i = 1 To n
  d(i) = ""
  Next
t1 = Timer - t
Set d = Nothing
[e1] = t1 '0.26
End Sub

Sub TestB2()
n = 100000
Dim d
Dim t2
Set d = CreateObject("scripting.dictionary")
t = Timer
For i = 1 To n
  d(CStr(i)) = ""
  Next
t2 = Timer - t
Set d = Nothing
[e2] = t2  '0.52
End Sub
我又迷惑了..

lipton

原帖由 terqm 于 2010-11-26 12:22 发表
恩,我曾经也是这样想.....
但,我昨天调试的时候
Sub TestB1()
n = 100000
Dim d
Set d = CreateObject("scripting.dictionary")
t = Timer
For i = 1 To n
  d(i) = ""
  Next
t1 = Timer - t
Set d = No ...

确实是这样，会不会是隐式转换是逐个字符校验所以字符段的时候快，字符长了就慢，等待老师解惑。

Zamyi

原帖由 lipton 于 2010-11-26 11:57 发表
Bi 和 B2 的比较是因为 字典key值是 String如果赋值是数据类型，内部会隐式转换增加了时间，而且常常会出错如果先转换成会比 B2 快因为 B2 有一个连接字符串的运算。

请测试：Sub TestB1()
N = 10000
Dim d
Se ...

事实上，是为了让人产生错觉才用：s=""& i /d(s)=""，实际中用d("" &i) = ""，这和d(CStr(i)) = ""差别并不大。

lipton

看来是和字符长度有关，两段代码各少一零，速度就一样了

Sub TestB1()
N = 10000
Dim d
Set d = CreateObject("scripting.dictionary")

t = Timer
For i = 1000001 To 1000000 + N
  d(i) = ""
  Next
t1 = Timer - t
Set d = Nothing
[e1] = t1 '0.04秒
End Sub

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

t = Timer
For i = 1000001 To 1000000 + N
  d("" & i) = ""
  Next
t1 = Timer - t
Set d = Nothing
[e2] = t1 '0.04秒
End Sub

灰袍法师

看来是和字符长度有关，两段代码各少一零，速度就一样了
...

啊，终于有人愿意回到我前面的话题了。

terqm

若然说是和字符长度有关....
我倒觉得...........和电脑的配置有关呢.

lipton

不同长度的长整型对速度的影响，如果先行转换String，则速度平均。

1. Sub test()
   
2. 
   
3. Dim i As Long, j As Long, h As Long
   
4. Dim N As Long, N1 As Long
   
5. Dim t
   
6. Dim d  As New Dictionary
   
7. Dim d1 As New Dictionary
   
8. 
   
9. h = 1
   
10. N = 11
    
11. N1 = 11
    
12. 'Set d = CreateObject("scripting.dictionary")
    
13. 'Set d1 = CreateObject("scripting.dictionary")
    
14. 
    
15. Do
    
16.     t = Timer
    
17.     N = (N * 10) - 9
    
18.     For i = N To N + 10000
    
19.       d(i) = ""
    
20.     Next i
    
21.     t = Timer - t
    
22.     d.RemoveAll
    
23.     Sheet1.Cells(h, 1) = t
    
24.    
    
25.     t = Timer
    
26.     N1 = (N1 * 10) - 9
    
27.     For i = N1 To N1 + 10000
    
28.       d1(CStr(i)) = ""
    
29.     Next i
    
30.     t = Timer - t
    
31.     d1.RemoveAll
    
32.     Sheet1.Cells(h, 2) = t
    
33.     h = h + 1
    
34. Loop While h <= 8
    
35. 
    
36. End Sub
    

复制代码

灰袍法师

试验了不同的数据类型

结论如下：

数值型的key，一旦接近1000万左右，大概是9990650以上吧

速度就会剧降

而字符型的key，不管如何如何都很快

这也证明了我在三楼的推测，应该是较大的数值在计算哈希值HashValue的时候，发生溢出错误所致

我怀疑VBA的字典，其HashValue是个32位整数，而计算过程使用质数211来做乘法，

然后对另一个接近2^31的大质数取模(比方说 2108027161)

所以最终导致稍微大于 2^31 / 211 的数值型key都会溢出，导致速度暴降

而字符型的key，应该使用了另一种计算HashValue的方法，不会溢出。

当然，在没看到VBA字典的源代码之前，这也只能是个猜测

[ 本帖最后由 灰袍法师 于 2010-11-27 06:45 编辑 ]

terqm

没有更好的解释之前.....这应该是最好的解释了