VB编程：DoEvents将控制权交给系统，防止无限循环

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