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