Question

VB能否在同一过程中多处捕捉错误？

如：
sub main()
Dim a as Integer
on error goto e1
a = 5 / 0
a = 5 / 0
e1:
on error goto e2
a = 5 / 0 '为什么不能跳转？
a = 5 / 0
e2:
end sub
为什么在第二次错误不能捕捉并跳转？
（提一下，我不想把一个过程拆为几个过程）
我想要的效果是第一次错误后转到第一个标签，接着发生第二个错误时，转到第二个标签。

Answer 1

是要这样的效果吗？
Private Sub Command1_Click()
Dim a As Integer
On Error GoTo e1
a = 5 / 0
a = 5 / 0
On Error GoTo e2
a = 5 / 0
a = 5 / 0
Exit Sub
e1:
MsgBox "e1"
e2:
MsgBox "e2"
End Sub

Answer 2

Private Sub Form_Load()
Dim a As Integer
On Error GoTo e1
a = 5 / 0
e1:
MsgBox "1"
Resume Next
On Error GoTo e2
a = 5 / 0 '为什么不能跳转？
a = 5 / 0
e2:
MsgBox "2"
End Sub