【讨论】对某被热捧帖子中部分内容(“编码语言选择优化”章节)的质疑

kiss2003

在 chinalotus 看到一个置顶的帖子《COMBEST-DOMINO新手指南》
http://www.chinalotus.com/viewthread.php?tid=23666

其中的“编码语言选择优化”章节的部分内容我没能测试出来，想发帖讨论发现“需审核”，才发现该网站是由某企业运营的……所以还是来这边讨论吧。


谁能测试出来，请贴一下测试代码及其结果。谢谢！


比如其中的"5.避免无谓地使用数组，下面例子A比例子B快两倍"

我的测试代码如下，其结果是20%。 谁能说一下自己的测试结果，怎么测试出“快两倍”的？

1.         Dim ii As Long
   
2.         Dim kk As Long
   
3.         Dim jj As Long
   
4.         Dim num As Double
   
5.        
   
6.         Dim dt1 As NotesDateTime
   
7.         Dim dt2 As NotesDateTime
   
8.         Dim vTmp As Variant
   
9.        
   
10.         Redim vTmp(10000)
    
11.         For ii=1 To 10000
    
12.                 vTmp(ii)=ii
    
13.         Next
    
14.        
    
15.         Dim str1 As String
    
16.         Dim stringA As String
    
17.         Dim stringB As String
    
18.        
    
19.         stringA = {stringA}
    
20.         stringB = {stringB}
    
21.        
    
22.         Set dt1 = New NotesDateTime("")
    
23.         Set dt2 = New NotesDateTime("")
    
24.        
    
25.         Print {========= A =========}
    
26.         Call dt1.SetNow
    
27.        
    
28.         For ii=1 To 1000
    
29.                 num=1
    
30.                 For i = 1 To 1000
    
31.                         num = num + vTmp(i)
    
32.                 Next
    
33.                 vTmp(1) = num
    
34.         Next
    
35.        
    
36.         Call dt2.SetNow
    
37.         kk = dt2.TimeDifference(dt1)
    
38.         Print kk
    
39.        
    
40.         Print {========= B =========}
    
41.         Call dt1.SetNow
    
42.        
    
43.         For ii=1 To 1000
    
44.                 vTmp(1) = 1
    
45.                 For i = 1 To 1000
    
46.                         vTmp(1) = vTmp(1) + vTmp(i)
    
47.                 Next               
    
48.         Next
    
49.        
    
50.         Call dt2.SetNow       
    
51.         jj = dt2.TimeDifference(dt1)
    
52.         Print jj
    
53.        
    
54.         If kk<>0 Then
    
55.                 ii = (jj-kk)*100/kk
    
56.                 Print { (B-A)/A=} & Cstr(ii) & {%}
    
57.         End If

复制代码

deng5538

回复 1# kiss2003


   同一台机器, Lotus Notes 5.03 结果是67%, Lotus Notes 8.0 结果是50%.

kiss2003

我用的7.02的客户端。