VB 捕获异常

2020-08-11 11:24 idea555 阅读(517) 评论(0) 收藏举报

Private sub Command1_Click()
On Error Goto ErrHandle
Dim x as integer
x = 0 / 0 '制造一个错误
Exit Sub '一定要写,如果程序没有错，下面代码不会执行。
ErrHandle:
Msgbox "产生了一du个错误，错误代码：zhi" & Err.Code & " 描述：" & Err.Description
End Sub