放置一个Timer控件,名称为TimStop.在TimStop的到时事件中写入如下代码:TimStop.Enabled=FalseCall b() '要执行一次的子程誉局序旦基Call a() '再执行一次第一子程序在一个Button 控件的点击事件下写入模虚谨如下代码:Do while TimStop.Enabled call a() '应该循环的子程序Loop