VB如何忽略错误?
用On Error 捕获程序运行时引发的错误,捕获后清除错误。实现方法如下
'函数实现除法操作并返回结果。如果发生错误(如0除)返回值为0Public Function Divide(Byval v as Single) As Single '为了消除可能的错误(如即0除错误)打开错误捕获陷阱 '一旦发生错误,立即转到行标号ErrProc执行 On Error Goto ErrProc Divide = 1 / v Exit Function ErrProc: '发生错误时转到这里处理 '清除错误 Err.Clear Divide = 0 End Function
更为简洁的写法如下:
'函数实现除法操作并返回结果。如果发生错误(如0除)返回值为0Public Function Divide(Byval v as Single) As Single Divide = 0 '为了消除可能的错误(如即0除错误)打开错误捕获陷阱 '当错误发生时,立即执行下一条语句,即 On Error Goto 0 On Error Resume Next Divide = 1 / v '关闭错误陷阱 On Error Goto 0End Function
Copyright © 广州京杭网络科技有限公司 2005-2024 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有