Private Sub Form_Load()
Dim I As Long, J As Long, M As Long
'这里特意制造了一个除数为0的错误
lab1: On Error GoTo err1
I = 5: J = 0
M = I / J
err1:
GoTo lab1
End Sub
以上是很简单的一段代码。第一次出现错误是能正常捕获到的,并且进入err1的错误处理程序,顺利转到lab1程序段,但是程序在第二次或更多次出现错误时就不能捕获到。
希望各位帮助一下。先谢谢了。