Option Explicit
Dim i As Long
Private Sub Command1_Click()    For i = 0 To 99999
        Debug.Print i
        If i = 99999 Then
            MsgBox "end"
        End If
    Next i
End Sub
上面执行10万次在我电脑上要将近30秒钟。太慢了啊,有什么方法比较快的啊。
CPU 是2.6G的

解决方案 »

  1.   

    哦。发现问题了,好像是因为Debug.Print 导致慢的,
    能导致这么慢吗?
      

  2.   

    你注释掉Debug.Print 试下吧
      

  3.   

    我做了个玩意,测试了几种语言的效率
    就是for循环累加,然后存Listbox里面从1到5000语言         时间          备注
    vb         一直假死      没法统计,cpu一直占有40%以上
    vb.net     36s         多线程(新线程单独循环数据),cpu在30%
    C++(MFC)   11s         一闪完成,cpu占有率峰值18%
      

  4.   


    是啊,这是Listbox添加1-5000累加的测试数据?