新建From1(窗体),新建Command1(按钮CommandButton),代码:
Private Sub Command1_Click() For i = 1 To 100 Debug.Print i i = 101 Next End Sub
运行结果:
1
如果设置成i=2那么就是死循环。