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

老伙计2008

原帖由 lb_bn 于 2009-12-18 23:38 发表
还有，楼主的程序里，那个Rnd赋值语句，对内存操作
test3里是擦除一次，再写入一次（从第二个大循环起）
而在test2里只有写入操作吧。

个人观点。不知对不对。

使用了Randomize速度1.406秒，注释掉Randomize耗时1.515秒
我用的是test4进行的测试

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

lb_bn

试试这两个。。。


Sub bbb()
    t = Timer
    Dim i&, y&
    For i = 1 To 100000000
        y = y + 1
    Next
    MsgBox Timer - t & vbCrLf & y & vbCrLf & Len(Trim(y))
End Sub

Sub bbb1()
    t = Timer
    Dim i&, j&, k&, l&, m&, n&, o&, p&, y&
    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 & vbCrLf & y & vbCrLf & Len(Trim(y))
End Sub

lb_bn

不过在我这里无影响。晕。。。

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

老伙计2008

前一个1.453秒，后一个1.906秒。
后一个消耗内存更多
看来时间不是消耗在轮流读取变量上了

老伙计2008

原帖由 lb_bn 于 2009-12-18 23:51 发表
对这个也多执行了很多次。
不过在我这里无影响。晕。。。

我这里无论执行多少次，只要代码一样，耗时就基本没区别

lb_bn

变量开得多，内存要的多吧。
楼主那个是数组的，跟这个不一样。
老是读取一个变量跟换着读取不同变量的速度不一样？？

[ 本帖最后由 lb_bn 于 2009-12-19 00:03 编辑 ]

lb_bn

反正想不通就按经验办事吧。

老伙计2008

原帖由 lb_bn 于 2009-12-18 23:58 发表
变量开得多，内存要的多吧。
楼主那个是数组的，跟这个不一样。

我觉得只能证明：时间不是被轮流读取变量消耗掉的

老伙计2008

原帖由 lb_bn 于 2009-12-19 00:01 发表
反正想不通就按经验办事吧。

我的实际应用程序，如果那样办，内存会溢出

lb_bn

。。。。
那看来只好用慢的了？？