如何给程序的运行加点时间限制??

Question

我想实现的效果是程序运行后(在某个不确定的时间),先执行几句,然后停几秒,再执行以下的几句....如此下去(在这里假设程序只有一个模块).比如在一个循环体中,执行完循环体中其它语句后,停一秒,再进行第二次循环....这应该怎么实现呢?

Answer 1

也可以用Do循环判断时间，如：
dim a as string,b as string
'代码
a=time
Do while datediff("s",a,time)<>1
loop

Answer 2

不要用sleep，会让你的ui没响应的
do loop会让你的cpu 100% 
用timer控件吧：：）

Answer 3

谢谢大家的参与,我的问题最后是通过写了一个小函数解决的...不过我对大家的想法也很感兴趣,特别是用timer控件的做法...
举个例子:
    现在我要作个循环(10次),每次循环中要求在窗体上显示两个数据.一个是N(表示是第几次循环),第二个是T(表示本次循环中,已暂停了几秒.当然,要求T在这一次循环中有t次变化,并且是一秒刷新一次.t为1到10间的随机数,在每次循环中,取不同的常数,T变化t次,也即经过t秒,本次循环结束,开始下次循环.重复上述步骤直到10次循环结束).以上问题用timer控件如何操作? CPU占用率如何? 不知那位大虾能给出优秀的原码,不胜感激....

Answer 4

vb自帶的timer控件偶不敢講什么﹐因為自我感覺是太。。
偶一般用函數﹐實在有必要用控件偶也是用一個外部計算時間的﹐它的精確等強多了...

Answer 5

赞成 daisy8675(莫依) 的说法