停顿 , 一般都可以用doevents , 这样就是把时间让给别的进程使用。
dim i as long
for i = 1 to 10000
doevents
next i
=======================
dim dStart as date
dim dEnd as date
dStart = now
for i = 1 to 10000
if ( dEnd - dStart ) * 24 * 60 < 2 then ' in minutes
doevents
end if
next i
这是什么问题啊?关于按键精灵吗?