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

老伙计2008 · 发表于 2009-12-21 10:14

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

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
MsgBox CStr(t) & " i=" & CStr(i)
i = 0: j = 0
t = Timer
For j = 1 To 100000000
x = x + 1
Next
t = Timer - t
MsgBox CStr(t) & " i=" & CStr(i)
i = 0
test2 i
End Sub
Sub test2(i)
Dim j As Long
Dim t As Single
t = Timer
For j = 1 To 100000000
i = i + 1
Next
t = Timer - t
MsgBox CStr(t) & " i=" & CStr(i)
End Sub

复制代码

lb_bn · 发表于 2009-12-21 10:27

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

Zamyi · 发表于 2009-12-21 10:54

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

chentx · 发表于 2009-12-21 11:21

你这样的比较具有数据的不准确性，一个变量的定义和生成是需要时间的，要对比的话你要分开三个过程来测试。除了如楼上所说的要标明传递参数的类型，还要注意的是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 · 发表于 2009-12-22 00:36

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

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

老伙计2008 · 发表于 2009-12-22 00:26

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

老伙计2008 · 发表于 2009-12-22 00:06

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

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

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