VB程式設計：DoEvents将控制權交給系統，防止無限循環

一、運作效果：

1、沒有DoEvents時運作（出現未響應）：

2、有DoEvents時運作（沒有未響應）：

二、關鍵點

   1、DoEvents函數，将控制權交給系統，防止無限循環。

   2、将下面程式中的“if”語句删除試試兩種效果有何不一樣。

三、程式代碼

Private Sub Command1_Click()

   On Error Resume Next

   Dim i As Integer  '申明計數器

   i = 0                     '設定計數器初值

   Do While 1 = 1    '無限循環

       i = i + 1            '計數器計數

       If i > 1000 Then

           DoEvents    '交給系統

       End If

   Loop

End Sub