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的
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的
能导致这么慢吗?
就是for循环累加,然后存Listbox里面从1到5000语言 时间 备注
vb 一直假死 没法统计,cpu一直占有40%以上
vb.net 36s 多线程(新线程单独循环数据),cpu在30%
C++(MFC) 11s 一闪完成,cpu占有率峰值18%
是啊,这是Listbox添加1-5000累加的测试数据?