VBS闹钟的核心代码一样，为何其中一个这么占cup？

FOR

核心代码一样，为何其中一个这么占cup
学习vbs
在网上找了个闹钟的代码，自以为看懂了，于是依葫芦画瓢自己也写了一个
可为何我的代码一运行cup就飙到 25，而别人的却是0
仔细研究了一天，实在是找不出原因来了，头都快炸了，请各位大神帮忙解惑。

代码一，网上找的

1. 
   
2. on error resume next
   
3. set ws=createobject("wscript.shell")
   
4. set fso=createobject("scripting.filesystemobject")
   
5. 
   
6. do
   
7.         't=inputbox("注意：本程序只考虑到分种")
   
8. t=2359
   
9.         if t="" then
   
10.                 wscript.quit
    
11.                 elseif IsNumeric(t)=false  then
    
12.                         msgbox "输入错误，请重新输入！",16+4096,"错误"
    
13.                         elseif len(t)<>4 or left(t,2)>24 or right(t,2)>59 then
    
14.                                         msgbox "输入错误，请重新输入！",16+4096,"错误"
    
15.                                         else
    
16.                                         call naoling()
    
17.         end if
    
18. loop
    
19. 
    
20. sub naoling()
    
21.         shi=left(t,2)
    
22.         fen=right(t,2)
    
23.         do
    
24.                 if timer>3600*shi+60*fen then
    
25.                         ws.run "cmd /c @echo ",0,true
    
26.                         sfjx=Ws.Popup("时间已到,是否继续运行闹铃程序?"& vbcrlf & "如果不退出闹铃将在1分钟后继续提醒。", 10, "闹铃提醒", 4 + 32)
    
27.                         if sfjx=7 then
    
28.                                 wscript.quit
    
29.                                 else
    
30.                                 wscript.sleep 1000*60
    
31.                         end if
    
32.                 end if
    
33.                 wscript.sleep 1000
    
34.         loop
    
35. end sub
    
36. 
    

复制代码

代码二，我自己写的，狂占cup

1. 
   
2. set ws=WScript.CreateObject("WScript.Shell")
   
3. t=time:t1=int(timer)
   
4. 
   
5. do
   
6. 
   
7. a=20
   
8.         if a=false then
   
9.                 Wscript.Quit           '判断若点了关闭按钮则退出
   
10.                 elseif IsNumeric(a)=false  then
    
11.                         msgbox "输入错误，请重新输入！",16+4096,"错误"
    
12.                         else exit do
    
13.         end if
    
14. loop
    
15. 
    
16. ts=inputbox("输入提示信息","提示","提示")
    
17. if ts=false then Wscript.Quit           '判断若点了关闭按钮则退出
    
18. 
    
19. a1=a*60+t1
    
20. fen=((a mod 60)+minute(t)) mod 60
    
21. shi=int(a/60+hour(t))
    
22. if (a mod 60)+minute(t)>=60 then shi=shi+1
    
23. 
    
24. s="00"&shi:f="00"&fen
    
25. msgbox "启动时间 "&right(s,2)&":"&right(f,2)
    
26. 
    
27. do
    
28.         if timer>=a1 then
    
29.                 ws.run "cmd /c @echo ",0,true
    
30.                 f=Ws.Popup("时间已到,是否继续运行闹铃程序?"& vbcrlf & "如果不退出闹铃将在1分钟后继续提醒。", 10, "闹铃提醒", 4 + 32)
    
31.                 If (f = 7 ) Then
    
32.                         Wscript.Quit
    
33.                         else
    
34.                                 wscript.sleep 1000*5
    
35.                 end if
    
36.                 wscript.sleep 1000
    
37.         end if
    
38. loop
    
39. 
    

复制代码

FOR

上帝啊，总算找到原因了，原来是 do loop 循环的太快了，要给它加个延时

1. 
   
2. do
   
3.      if a="aa" then msgbox "hh"
   
4.      wscript.sleep 1000 '没有这一行的原因
   
5. loop

复制代码

czjt1234

cpu  不是  cup