（一点就通的问题）这个挺喜欢，可就是不会做，谁能告诉我？

Question

当执行一个For循环时比如从1循环到1000000，通常要等很长时间，如果让界面更友好一点，通常的做法是弹出一个提示框：“  正在处理数据，请稍候......  ”而当循环完以后，又弹出“  处理完毕。  ”提示框。这样挺好...挺好....可我就是不会做，怎么做呀？？？？？

Answer 1

form1.show
doevents
for 
  ....
next
unload form1
form2.show

Answer 2

flag=false
fo i=0 to 10000
   '处理
   doevents
next i
msgbox "处理完毕"
flag=true其它操作中判断 如果  FLAG =FALSE
就  MSGBOX "循环中等待"

Answer 3

For与Next之间加入doevents转移程序控制权，以免假死现象，然后在next后面直接加msgbox "完成"