关于doevents函数的用法？

小吧

<P>各位大哥们，看到如下代码：</P>
<P>Function PrimeStatus (TestVal As Long) As Integer
   Dim Lim As Integer
   PrimeStatus = True
   Lim = Sqr(TestVal)
   For I = 2 To Lim
      If TestVal Mod I = 0 Then
         PrimeStatus = False
         Exit For
      End If
      If I Mod 200 = 0 Then DoEvents
   Next I
End Function
能帮俺解释下具体doevents的用法、功能不？</P>
<P>俺搞了半天没太明白！</P>

马大哈

<P>这个语句的作用是释放消息队列,让系统消息循环里累积的消息先处理掉</P>

小吧

<P>多谢马哥赐教咯</P><P>哈  大概就是为了不卡机</P><P>本来程序要执行很多次</P><P>就先处理掉一部分 然后再处理一部分！  这样一部分一部分的来！</P><P>直到全部处理！！！！！！！</P><P>这样理解可以了把！</P>

马大哈

呵呵，没错！可以这样理解

小吧

<P>呵呵！</P>

马大哈

<P>...................................</P><P>这也行?</P>

小吧

<P>啊 ，这都可以啊</P>

小吧

<P>哇 ，这也行哈！</P>