关于变量使用范围的运算速度优化一例

老伙计2008

本地变量（过程变量）、公共变量和传递变量的运算速度是不同的，本地变量运算速度最快，为传递变量运算速度的4倍左右，公共变量略慢于本地变量
下面示例在我的电脑上运行时间分别为1.453秒（本地）、1.79秒（公共）和6.156秒（传递）

1. Option Explicit
   
2. Dim x As Long
   
3. Sub test1()
   
4.     Dim i As Long
   
5.     Dim j As Long
   
6.     Dim t As Single
   
7.     i = 0: j = 0
   
8.     t = Timer
   
9.     For j = 1 To 100000000
   
10.         i = i + 1
    
11.     Next
    
12.     t = Timer - t
    
13.     MsgBox CStr(t) & "   i=" & CStr(i)
    
14.     i = 0: j = 0
    
15.     t = Timer
    
16.     For j = 1 To 100000000
    
17.         x = x + 1
    
18.     Next
    
19.     t = Timer - t
    
20.     MsgBox CStr(t) & "   i=" & CStr(i)
    
21.     i = 0
    
22.     test2 i
    
23. End Sub
    
24. Sub test2(i)
    
25.     Dim j As Long
    
26.     Dim t As Single
    
27.     t = Timer
    
28.     For j = 1 To 100000000
    
29.         i = i + 1
    
30.     Next
    
31.     t = Timer - t
    
32.     MsgBox CStr(t) & "   i=" & CStr(i)
    
33. End Sub

复制代码

lb_bn

MS单核CPU跟双核CPU也有很大区别。

Zamyi

分享什么呢？试试：
Sub test2(i As Long)

chentx

你这样的比较具有数据的不准确性，一个变量的定义和生成是需要时间的，要对比的话你要分开三个过程来测试。除了如楼上所说的要标明传递参数的类型，还要注意的是ByVal和ByRef也是有速度上的区别，因为ByRef会修改引用地址里的值，而ByVal相当于第一个测试一样，所以速度上不会有楼主所说的那样大，但还是会慢一点，因为函数体的生成也是需要时间的。另外楼主的解释会让新人误解了传递参数会影响计算速率的问题，其实速度的参异基本上不是参数传递所引起的，就本例而言，是楼主的代码的不合理导致了速度上的巨大差异，因为在你的测试代码中没标明所要传递的是什么类型的变量，导致计算机在计算时会不断判断变量应该是什么样的变量，从而影响了计算的速度。

Option Explicit
Dim x As Long
Sub test1()
    Dim i As Long
    Dim j As Long
    Dim t As Single
    i = 0: j = 0
    t = Timer
    For j = 1 To 100000000
        i = i + 1
    Next
    t = Timer - t
    Debug.Print t
End Sub

Sub test2()
    Dim j As Long
    Dim t As Single
    j = 0
    t = Timer
    For j = 1 To 100000000
        x = x + 1
    Next
    t = Timer - t
   
    Debug.Print t
End Sub

Sub test3()
Dim i As Long

    i = 0
    test4 i
End Sub

Sub test4(ByVal i As Long)
    Dim j As Long
    Dim t As Single
    t = Timer
    For j = 1 To 100000000
        i = i + 1
    Next
    t = Timer - t
    Debug.Print t
End Sub

[ 本帖最后由 chentx 于 2009-12-21 11:29 编辑 ]

Moneky

4楼已经很好的回答了你那个帖子中的问题了。
我原来也不是很注意这个问题，不过幸好通常在定义函数和过程的时候都指明了类型。

最终一句话：我们不能因为VB的宽容而偷懒

老伙计2008

试了一下，用ByVal传递变量时还可以改变数据类型。
刚刚学VBA时发帖求助参数传递时声明变量类型与不声明有什么区别，可是没人说

老伙计2008

谢谢各位。原来还有这么多道道。我也是新手