高手帮把手

Question

我有一程序是要顺序，进行的，但程序写好后，出现上一行没有完成，下一行就开始运行了。如何解决
代码是调用两函数，自已写的，按要求是DOACTIO 2完成后再运行XS_ZM. 高手帮忙啊,请用代码明示！！！
DoAction 2
xs_zm

Answer 1

给程序加上一定的时间延迟,保证程序正常能够执行:
 dim n as long
   msgbox "这里是您要执行的第一条语句"  '可自行修改
   for n=1 to 1000000  '做1000000次无用循环,产生一定的时间延迟,确保这条语句执行完成    
    n=n+1
   next n
  
   msgbox "这里是您要执行的第二条语句"  这样写您的程序就不会有问题咯

Answer 2

你可以在doaction里面设计一个门值
比如定义一个全局变量public bFinish
bFinish=false
doaction 2 do until bFinish=true
  doevents
loopxs_zm你在doaction里面调整bFinish的值