有。
以时间作为暂停条件，下面代码表示暂停1秒：
pt = 1: st = Timer
Do While Timer < st + pt
DoEvents
Loop
'下一条语句......
扩展资料：
注意事项
想要暂停的地方加上 system("pause"); 就可以使 C/C++ 程序暂停。不过，这个办法奏效的前提是系统中必须存在 pause 这个命令。此外，还需要包含标准头文件 stdlib.h（对于 C）或者 cstdlib（对于 C++）。例如： .
功能： 演示如何使用 system("pause"); 暂停
#include <stdio.h>
#include <stdlib.h> !
int main(void)
{
printf("I need a pause here.\n");
system("pause");
printf("And here too.\n");
system("pause"); 。
return 0;
｝
有，内容如下：
Sub s1()'暂停1秒，期间不能进行其他操作
Application.Wait (Now + TimeValue("00:00:01"))
End Sub
Sub s2()'暂停1秒，期间可以进行其他操作
t = Timer
While Timer < t + 1
DoEvents
Wend
End Sub
扩展资料
调用函数/过程时，可以加括号或者不加括号。如果调用表达式作为一行的一部分，那么必须用参数，例如函数调用的返回值赋给变量。 调用过程时， 可以使用/不使用call关键字。
使用call语句调用过程，如果无参数，则不加括号；如果有参数，必须加括号。如果调用时用括号包住单个参数，则该参数强行按值传递。
需要特别注意，不用call不加括号的调用，形参与实参是传值(passed by value)而不是传引用(passed by reference)，这会导致一些对象的方法调用失败。
参考资料：百度百科-VBA
本回答被网友采纳'前面的代码
Application.Wait (Now + TimeValue("00:00:01"))
'后面的代码
End Sub
Sub s2()'暂停1秒，期间可以进行其他操作
'前面的代码
t = Timer
While Timer < t + 1
DoEvents
Wend
'后面的代码
End Sub
pt = 1: st = Timer
Do While Timer < st + pt
DoEvents
Loop
'下一条语句......
