VB如何忽略错误

问题描述

精选答案

用On Error 捕获程序运行时引发的错误，捕获后清除错误。实现方法如下

'函数实现除法操作并返回结果。如果发生错误（如0除）返回值为0Public Function Divide(Byval v as Single) As Single'为了消除可能的错误（如即0除错误）打开错误捕获陷阱'一旦发生错误，立即转到行标号ErrProc执行On Error Goto ErrProcDivide = 1 / vExit FunctionErrProc: '发生错误时转到这里处理'清除错误Err.ClearDivide = 0End Function

更为简洁的写法如下：

'函数实现除法操作并返回结果。如果发生错误（如0除）返回值为0Public Function Divide(Byval v as Single) As SingleDivide = 0'为了消除可能的错误（如即0除错误）打开错误捕获陷阱'当错误发生时，立即执行下一条语句，即 On Error Goto 0On Error Resume NextDivide = 1 / v'关闭错误陷阱On Error Goto 0End Function