《怎么样让程序停几秒钟再执行下面的语句？》

Question

Dim x As Date
x = Now
do
DoEvents
loop until DateDiff("s", x, Now) >= 2

Answer 1

sleep(1000)就是停1秒钟

Answer 2

循环当然不行，不论是否符合条件，他都占着CPU, 条件符合，就不必说了，不符合就继续下一个判断，根本没让CPU停，程序当然动不了了

Answer 3

VB中有sleep(1000)吗？请告我如何用？

Answer 4

Qbasic里面有这个 sleep(1000) 一秒鐘vb不懂

Answer 5

sleep好象是API函数
找找看

Answer 6

API:
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Answer 7

http://www.csdn.net/expert/topic/387/387172.shtm
用我这个Wait函数
要等多久听便！！