同样循环1000万次，速度为什么不一样？

老伙计2008 · 发表于 2009-12-18 22:39

以下2个子过程，都是循环1000万次，做的事情也完全一样。只是前一个过程（ test2）是两个循环先完成第一个，再完成第二个；后一个过程（ test3）是，把1000万次循环分成100000份，外循环100000次，2个内循环都是100次——减少了内存的占用。
test2在我的电脑上执行时间0.9秒， test3在我的电脑上执行时间2.2秒，速度相差2倍多。在实际应用中，由于外循环内的子循环更多，按test3的结构编程速度相差（原来想当然写成100倍，计算一下）25倍以上（但是有不得不按test3的结构编程）。
为什么会这样呢？期待高手参加讨论，并进行指点。
晕死！

此贴上一个过程的timer放置的位置错误，导致白白浪费大家的经历，此贴不在讨论。谢谢大家。

按这个速度计算我的实际应用程序还可以快12-13倍，但是我没有找到问题的症结，找到症结后另发新帖

Sub test2()
Dim bHappy(10000000) As Long
Dim barrFailure(10000000) As Long
Dim barrWinning(10000000) As Long
Dim WinningCount As Long, FailureCount As Long, i As Long
Randomize
For i = 0 To 10000000
bHappy(i) = CLng(Rnd * 10000000) - CLng(Rnd * 10000000)
Next
Dim t As Single
t = Timer
For i = 0 To 10000000
If bHappy(i) > 0 Then
WinningCount = WinningCount + 1
If FailureCount > 0 Then
barrFailure(FailureCount) = barrFailure(FailureCount) + 1
FailureCount = 0
End If
Else
FailureCount = FailureCount + 1
If WinningCount > 0 Then
barrWinning(WinningCount) = barrWinning(WinningCount) + 1
WinningCount = 0
End If
End If
Next
t = Timer - t
MsgBox CStr(t)
End Sub
Sub test3()
Dim bHappy(100) As Long
Dim barrFailure(100) As Long
Dim barrWinning(100) As Long
Dim WinningCount As Long, FailureCount As Long, i As Long, j&
Dim t As Single
t = Timer
For j = 0 To 100000
Randomize
For i = 0 To 100
bHappy(i) = CLng(Rnd * 100) - CLng(Rnd * 100)
Next
For i = 0 To 100
If bHappy(i) > 0 Then
WinningCount = WinningCount + 1
If FailureCount > 0 Then
barrFailure(FailureCount) = barrFailure(FailureCount) + 1
FailureCount = 0
End If
Else
FailureCount = FailureCount + 1
If WinningCount > 0 Then
barrWinning(WinningCount) = barrWinning(WinningCount) + 1
WinningCount = 0
End If
End If
Next
Next
t = Timer - t
MsgBox CStr(t)
End Sub

复制代码

[ 本帖最后由老伙计2008 于 2009-12-19 09:57 编辑 ]

lb_bn · 发表于 2009-12-18 22:44

用内存少，速度慢
看起来有点道理。

老伙计2008 · 发表于 2009-12-18 22:48

下面代码执行时间1.4秒

Sub test4()
Dim bHappy(10000) As Long
Dim barrFailure(10000) As Long
Dim barrWinning(10000) As Long
Dim WinningCount As Long, FailureCount As Long, i As Long, j&
Dim t As Single
t = Timer
For j = 0 To 1000
Randomize
For i = 0 To 10000
bHappy(i) = CLng(Rnd * 10000) - CLng(Rnd * 10000)
Next
For i = 0 To 100
If bHappy(i) > 0 Then
WinningCount = WinningCount + 1
If FailureCount > 0 Then
barrFailure(FailureCount) = barrFailure(FailureCount) + 1
FailureCount = 0
End If
Else
FailureCount = FailureCount + 1
If WinningCount > 0 Then
barrWinning(WinningCount) = barrWinning(WinningCount) + 1
WinningCount = 0
End If
End If
Next
Next
t = Timer - t
MsgBox CStr(t)
End Sub

复制代码

[ 本帖最后由老伙计2008 于 2009-12-18 22:56 编辑 ]

老伙计2008 · 发表于 2009-12-18 22:54

原帖由 lb_bn 于 2009-12-18 22:44 发表
用内存少，速度慢
看起来有点道理。

关键要找到原因

相差25倍以上的速度是不可接受的，为什么会出现这样的情况。
难道是堆栈压的太深引起的？如果是这个原因，那么只能通过使用大量内存来提高速度，如果是其他原因。很有可能找到解决问题的途径。

[ 本帖最后由老伙计2008 于 2009-12-19 01:08 编辑 ]

老伙计2008 · 发表于 2009-12-18 23:12

期待高手参加讨论

lb_bn · 发表于 2009-12-18 23:13

test3不一样，循环一次读取内存的次数不一样。
比如又要读取i变量又要读取j变量。

老伙计2008 · 发表于 2009-12-18 23:17

这么说时间消耗在轮流读取不同的变量上？

lb_bn · 发表于 2009-12-18 23:20

差不多，楼主可以试试这两个程序。

Sub bbb()
t = Timer
For i = 1 To 100000000
      y = y + 1
Next
MsgBox Timer - t
End Sub

Sub bbb1()
t = Timer
For i = 1 To 10000
      For j = 1 To 10000
         y = y + 1
      Next
Next
MsgBox Timer - t
End Sub

老伙计2008 · 发表于 2009-12-18 23:24

这两个过程速度完全一样啊

这是不是说明时间的消耗与轮流读取变量无关

[ 本帖最后由老伙计2008 于 2009-12-18 23:26 编辑 ]

lb_bn · 发表于 2009-12-18 23:26

如果定义成long的话，时间会少一半以上，但楼主的test3里如果将i定义成integer，时间不减反增。
所以数据的类型转变很耗时间。

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

[讨论] 同样循环1000万次，速度为什么不一样？

回复 4楼老伙计2008 的帖子

回复 6楼 lb_bn 的帖子

回复 7楼老伙计2008 的帖子

回复 8楼 lb_bn 的帖子

[讨论] 同样循环1000万次，速度为什么不一样？

回复 4楼 老伙计2008 的帖子

回复 6楼 lb_bn 的帖子

回复 7楼 老伙计2008 的帖子

回复 8楼 lb_bn 的帖子

回复 4楼老伙计2008 的帖子

回复 7楼老伙计2008 的帖子