7,786
社区成员
发帖
与我相关
我的任务
分享请大家一起来研究一下!!!!!!比较这几种循环的速度问题!!!!!
Option Explicit
Private Sub Form_Load()
Dim i As Long
Dim a As Double
Dim s As Long
a = CDbl(Timer)
Debug.Print a
For i = 1 To 1000000
s = s + 1
Next i
Debug.Print CDbl(Timer), CDbl(Timer) - a
Debug.Print "-----------------"
'===============================================
a = CDbl(Timer)
Debug.Print a
i = 1
While i <= 1000000
s = s + 1
i = i + 1
Wend
Debug.Print CDbl(Timer), CDbl(Timer) - a
Debug.Print "-----------------"
'===============================================
a = CDbl(Timer)
Debug.Print a
i = 1
Do While i <= 1000000
s = s + 1
i = i + 1
Loop
Debug.Print CDbl(Timer), CDbl(Timer) - a
Debug.Print "-----------------"
End Sub
第一次结果
2911.331
2911.40087890625 .069878906249869
-----------------
2911.401
2911.55102539063 .15002539062516
-----------------
2911.551
2911.64111328125 9.01132812500691E-02
-----------------
第二次结果
2939.574
2939.64404296875 7.00429687499309E-02
-----------------
2939.644
2939.78393554688 .139935546875222
-----------------
2939.784
2939.8740234375 9.00234374998945E-02
第三次结果
3068.549
3068.61889648438 6.98964843750218E-02
-----------------
3068.619
3068.77001953125 .151019531249858
-----------------
3068.78
3068.86010742188 8.01074218747999E-02
-----------------
Private Sub Form_Load()
Dim i As Long
Dim a As Double
Dim s As Long
a = CDbl(Timer)
Debug.Print a
For i = 1 To 1000000
s = s + 1
Next i
Debug.Print CDbl(Timer), CDbl(Timer) - a
Debug.Print "-----------------"
'===============================================
a = CDbl(Timer)
Debug.Print a
i = 1
While i <= 1000000
s = s + 1
i = i + 1
Wend
Debug.Print CDbl(Timer), CDbl(Timer) - a
Debug.Print "-----------------"
'===============================================
a = CDbl(Timer)
Debug.Print a
i = 1
Do While i <= 1000000
s = s + 1
i = i + 1
Loop
Debug.Print CDbl(Timer), CDbl(Timer) - a
Debug.Print "-----------------"
End Sub
第一次结果
2911.331
2911.40087890625 .069878906249869
-----------------
2911.401
2911.55102539063 .15002539062516
-----------------
2911.551
2911.64111328125 9.01132812500691E-02
-----------------
第二次结果
2939.574
2939.64404296875 7.00429687499309E-02
-----------------
2939.644
2939.78393554688 .139935546875222
-----------------
2939.784
2939.8740234375 9.00234374998945E-02
第三次结果
3068.549
3068.61889648438 6.98964843750218E-02
-----------------
3068.619
3068.77001953125 .151019531249858
-----------------
3068.78
3068.86010742188 8.01074218747999E-02
-----------------
...全文
请发表友善的回复…
发表回复
hanshufan 2004-06-09
- 打赏
- 举报
语法：
DO WHILE lExpression
Commands
[LOOP]
[EXIT]
ENDDO
参数：
lExpression 为一逻辑表达式，其值如果是“真”，即执行commands程序组，如果表达的值为“假”，则跳过该段程序组，执行enddo后面的语句。
如果 lExpression 的值为真，则执行 commands 程序组，该程序组执行完后，就到enddo语句，enddo会将程序返回 do while 再次验证 lExpression 是否为真，如仍是，则又一次执行 commands ，如此循环往复，直到 lExpression 为假，或遇上 exit 语句
所以我觉得它会比for循环慢!!!
DO WHILE lExpression
Commands
[LOOP]
[EXIT]
ENDDO
参数：
lExpression 为一逻辑表达式，其值如果是“真”，即执行commands程序组，如果表达的值为“假”，则跳过该段程序组，执行enddo后面的语句。
如果 lExpression 的值为真，则执行 commands 程序组，该程序组执行完后，就到enddo语句，enddo会将程序返回 do while 再次验证 lExpression 是否为真，如仍是，则又一次执行 commands ，如此循环往复，直到 lExpression 为假，或遇上 exit 语句
所以我觉得它会比for循环慢!!!
hanshufan 2004-06-09
- 打赏
- 举报
我也觉得for循环比较快一些!!
flyingZFX 2004-06-09
- 打赏
- 举报
没想到，连问题的数据也都丢失了
wooin 2004-06-09
- 打赏
- 举报
vb的timer太不准了，千万不要用了，自己用timegettime或者timegetsystemtime做定时器吧
juror 2004-06-09
- 打赏
- 举报
顶
BitBlt 2004-05-14
- 打赏
- 举报
Private Declare Function GetTickCount Lib "kernel32" () As Long
把你的程序中所有的CDbl(Timer)改成GetTickCount就行了，单位是毫秒。
把你的程序中所有的CDbl(Timer)改成GetTickCount就行了，单位是毫秒。
slmn 2004-05-14
- 打赏
- 举报
gz
flyingZFX 2004-05-14
- 打赏
- 举报
TO pigpag(噼里啪啦 - How to prepare for the TOEFL test?) ::
悲衰的人呀!!!!
可怜的人呀？？
学海无涯!!!!!!!(中国落后+死板教育制度下的人呀!!!!)
快醒来吧!!!!!
TO BitBlt(Raster Operater)::
大哥，不要光说，把你说的方法贴出来让大家看看!!!
悲衰的人呀!!!!
可怜的人呀？？
学海无涯!!!!!!!(中国落后+死板教育制度下的人呀!!!!)
快醒来吧!!!!!
TO BitBlt(Raster Operater)::
大哥，不要光说，把你说的方法贴出来让大家看看!!!
flyingZFX 2004-05-14
- 打赏
- 举报
TO hackate(今生穷死了)::
哼!!
你就这么在乎分呀!!!!!!!!!!!!
人家看看都想着看到你!!!!!!!!!1
可是你却对我说，你讨厌我？？？？？？？？？？？
为什么呀？？？？？？
哼!!
你就这么在乎分呀!!!!!!!!!!!!
人家看看都想着看到你!!!!!!!!!1
可是你却对我说，你讨厌我？？？？？？？？？？？
为什么呀？？？？？？
Kivic 2004-05-14
- 打赏
- 举报
这个测试不能说明问题，没有测试环境，测试的内容基本是不相关的语句，没有可比性，timer计时受线程限制，本身不会准确。
建议建立3个exe文件，For i = 1 To 1000000里的i不能作为测试值，用外部时间测试，不从内部计时
建议建立3个exe文件，For i = 1 To 1000000里的i不能作为测试值，用外部时间测试，不从内部计时
flyingscv 2004-05-14
- 打赏
- 举报
这个是一样的
fuanwei 2004-05-13
- 打赏
- 举报
我靠，现在CPU转的这么快，还在乎那一点点。
其实重要的还是你的编程思想。
其实重要的还是你的编程思想。
flyingZFX 2004-05-13
- 打赏
- 举报
为什么没有人进来呀，，，
是因为没有分吗？？？
不会吧，
难道大家一点都不关心一些技术问题吗？
是因为没有分吗？？？
不会吧，
难道大家一点都不关心一些技术问题吗？
ryuginka 2004-05-13
- 打赏
- 举报
up
BitBlt 2004-05-13
- 打赏
- 举报
我靠~~~~~~~~
你用timer测试?
用gettickcount才够准确.
你用timer测试?
用gettickcount才够准确.
pigpag 2004-05-13
- 打赏
- 举报
//难道大家一点都不关心一些技术问题吗？
唉~~~必须去关心更重要的，譬如英语考试这类的…… :(
唉~~~必须去关心更重要的，譬如英语考试这类的…… :(
hackate 2004-05-13
- 打赏
- 举报
是啊，是啊，！
呵呵，我工作了呢，没时间啊，公司那破机子上不去了啊
我在学习呢，你真小气啊，我讨厌你，还没分呢，哼
呵呵，我工作了呢，没时间啊，公司那破机子上不去了啊
我在学习呢，你真小气啊，我讨厌你，还没分呢，哼
flyingZFX 2004-05-12
- 打赏
- 举报
To Hackate(今生穷死了)!!!
喂!!!!
你已经很长时间没有上MSN了，，怎么回事了!!
我都想你了!!!!
你呀!就会说没有用的!!不会说点意见呀!!!
喂!!!!
你已经很长时间没有上MSN了，，怎么回事了!!
我都想你了!!!!
你呀!就会说没有用的!!不会说点意见呀!!!
flyingZFX 2004-05-11
- 打赏
- 举报
自己顶一下!!!!!
为什么看不见呢!!
CSDN有什么问题呀？？？？
为什么看不见呢!!
CSDN有什么问题呀？？？？
longki 2004-05-11
- 打赏
- 举报
在我的观点中，好像for循环比while循环好，do...while就没试过！
加载更多回复（8）
