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

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

你运行久了是一样的，在我这运行前几次是不一样的，如每个程序的前5次时间对比。

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

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

Sub bbb1()
t = Timer
Dim i As Long, y As Long, j As Long
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:31

原帖由 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 1000 ...

这两个过程的内存使用是一样的吧，所以速度也完全一样。

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

在我这不一样，前面4次左右是不一样的。

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

前一个1.453秒，后一个1.468秒，还是没区别啊

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

原帖由 lb_bn 于 2009-12-18 23:34 发表
在我这不一样，前面4次左右是不一样的。

能相差多少？

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

还有，楼主的程序里，那个Rnd赋值语句，对内存操作
test3里是擦除一次，再写入一次（从第二个大循环起）
而在test2里只有写入操作吧。

个人观点。不知对不对。

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

20%左右。。。。。

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

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

Sub bbb1()
t = Timer
Dim i&, y&, j&, k&, l&, m&, n&, o&, p&
For i = 1 To 10
      For j = 1 To 10
         For k = 1 To 10
            For l = 1 To 10
                  For m = 1 To 10
                     For n = 1 To 10
                        For o = 1 To 10
                              For p = 1 To 10
                                 y = y + 1
                              Next
                        Next
                     Next
                  Next
            Next
         Next
      Next
Next
MsgBox Timer - t
End Sub

楼主试试这个。

WelcomeHxj · 发表于 2009-12-18 23:45

定义成LONG型果然快了很多。我这台机子没有定义成LONG以前要13秒多，定义之后只要一个零头就行了。看来我以后要重视数据类型的选择了。

[ 本帖最后由 WelcomeHxj 于 2009-12-18 23:49 编辑 ]

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

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

回复 9楼老伙计2008 的帖子

回复 13楼老伙计2008 的帖子

回复 12楼 lb_bn 的帖子

回复 16楼老伙计2008 的帖子

浏览过的版块

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

回复 9楼 老伙计2008 的帖子

回复 13楼 老伙计2008 的帖子

回复 12楼 lb_bn 的帖子

回复 16楼 老伙计2008 的帖子

浏览过的版块

回复 9楼老伙计2008 的帖子

回复 13楼老伙计2008 的帖子

回复 16楼老伙计2008 的帖子