新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    For i = 1 To 100
        Debug.Print i
        i = 101
    Next
End Sub

运行结果：

 1

如果设置成i=2那么就是死循环。