Sub test3()
Dim i As Integer
Dim n As Integer
error_test3:
MsgBox "程序错误,请联系开发人员!", vbSystemModal
End Sub
Dim i As Integer
Dim n As Integer
On Error GoTo error_test3
i = 1n = i / 0
error_test3:
MsgBox "程序错误,请联系开发人员!", vbSystemModal
End Sub