探讨VB循环的效率问题

大元帅

在这里，探讨VB的循环效率问题，探讨的循环有For循环，For Each循环和Enumerator接口循环

----------------------------------------------------------------

硬件环境：
CPU：AMD Athlon X2 3600+
内存：DDR2 667 512M * 2
芯片组：nForce 650
硬盘：SATA2
分辨率：1280*1024*32bit

----------------------------------------------------------------

软件环境：
Microsoft Windows XP x86 SP2
Microsoft .NET Framework 1.1
Microsoft Visual Studio .NET 2003

----------------------------------------------------------------

测试内容：
分别探讨For循环、For Each循环和Enumerator接口循环在数组（Array）和集合（ArrayList）中遍历的效率问题，为了减少误差，数组和集合中的元素各种都为500000，从元素0遍历到元素499999。程序采用控制台模式，运行时关闭所有可关闭后台程序，包括杀毒软件，监控软件和更新软件。程序使用线程计时，精确到1秒，最后得出时间少者为效率高。

----------------------------------------------------------------

前期工作：
首先，声明并初始化数组（al）和集合（a）：
        Dim a(49999) As String
        For i As Integer = 0 To 49999
            a(i) = i.ToString
        Next

        Dim al As New ArrayList
        For i As Integer = 0 To 49999
            al.Add(i.ToString)
        Next

声明线程（th）及其线程体和计数变量（t）：
    Dim t As Single

    Sub timer()
        While True
            t += 1.0F
            Threading.Thread.Sleep(1000)
        End While
    End Sub

    Dim th As New Threading.Thread(AddressOf timer)

----------------------------------------------------------------

正式代码：
        'For循环对数组
        t = 0
        th.Start()
        For i As Integer = 0 To 499999
            Console.WriteLine(i)
        Next
        th.Suspend()
        MsgBox(t)

        'For Each循环对数组
        t = 0
        th.Resume()
        For Each i As String In a
            Console.WriteLine(i)
        Next
        th.Suspend()
        MsgBox(t)

        'Enumerator循环对数组
        t = 0
        Dim e1 As IEnumerator = a.GetEnumerator
        e1.Reset()
        th.Resume()
        While e1.MoveNext
            Console.WriteLine(e1.Current)
        End While
        th.Suspend()
        MsgBox(t)

        'For循环对集合
        t = 0
        th.Resume()
        For i As Integer = 0 To 499999
            Console.WriteLine(al.Item(i))
        Next
        th.Suspend()
        MsgBox(t)

        'For Each循环对集合
        t = 0
        th.Resume()
        For Each i As String In al
            Console.WriteLine(i)
        Next
        th.Suspend()
        MsgBox(t)

        'Enumerator循环对集合
        t = 0
        Dim e2 As IEnumerator = al.GetEnumerator
        e2.Reset()
        th.Resume()
        While e2.MoveNext
            Console.WriteLine(e2.Current)
        End While
        th.Suspend()
        MsgBox(t)

----------------------------------------------------------------

运行结果：
For循环对数组：25秒
For Each循环对数组：17秒
Enumerator循环对数组：17秒
For循环对集合：17秒
For Each循环对集合：18秒
Enumerator循环对集合：18秒
注，测试顺序更换后结果依然相同。

----------------------------------------------------------------

结论：
1、For循环更加适合集合遍历，而For Each适合循环遍历；
2、Enumerator的效率与For Each相近，微软也曾说明过，For Each就是Enumerator的简化版，也可以由此证明

这个实验却推翻了这个一些本来想当然的事情，虽然在我们印象中，For Each似乎更加适合集合，而For循环适合数组，但结论与想法彻底颠覆。不管怎么说，凡是不能靠自己想当然的就决定了，应该多做实验，多亲自去体验，才会知道事情的真相，才会更加接近真理。

PS：版主啊，写得好辛苦啊，可以锁页推到首页去吗？

jnmao

难得技术贴，不顶枉为好人

yinzhijian

真有心

psic

完全不懂……

我是一个玩家2

那以后普通数组循环还用不用for了？从0-100循环每次会比foreach慢多少？
另外lz测过loop的效率没有？

我是一个玩家3

do loop？测过了没？

大元帅

我是一个玩家3: Re:探讨VB循环的效率问题

do loop？测过了没？

呵呵，主要是测试不同三个方向的循环，do loop实际上与for循环是同一类型的

jnmao

for 要比 do loop 有效率

大元帅

jnmao: Re:探讨VB循环的效率问题

for 要比 do loop 有效率

呵呵，可能是我疏漏了吧

jnmao

大元帅: Re: Re:探讨VB循环的效率问题



呵呵，可能是我疏漏了吧

我没实验过，一篇《提高VB效率》的文章里写的，你测试过，所以应该以你的数据为准。