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

lb_bn

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

lb_bn

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

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

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

老伙计2008

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

老伙计2008

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

能相差多少？

lb_bn

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

个人观点。不知对不对。

lb_bn

20%左右。。。。。

lb_bn

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

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

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