【正文】 n過程捕獲這些錯誤并返回 Null。 (2) 利用 Error Err方法作為解決自己無力處理或不可預測錯誤的最后手段 。 第六行語句企圖啟動一個不存在的對象，產(chǎn)生錯誤號為 440，當 If 440錯誤號后給出提示，然后用，使 0。Err函數(shù)返回 55號出錯號 。 第二行語句打開文件 。 440OLE自動化出錯 Msg = “ 打開 OLE對象出錯！” 第 11章 程序調試和出錯處理 MsgBox Msg 39。 忽略 Kill testfile出錯行指令 ObjectRef = GetObject() 39。 企圖刪除一個打開的文件 On Error GoTo 0 39。 Sub ResumeStatementDemo( ) On Error GoTo ErrorHandler 39。 55號 文件己打開 錯誤 Close 1 39。 設置錯誤陷阱 Open testfile For Output As 1 Kill testfile 39。 第 11章 程序調試和出錯處理 【 例 112】 下列程序用于處理企圖刪除一個已打開的文件所產(chǎn)生的錯誤。此時，用戶可關閉好 A驅動器小門或重插入軟盤，再按下 Retry按鈕，本過程會用 Resume命令再次執(zhí)行原出錯語句，若執(zhí)行成功，則結束，否則，再重復出現(xiàn) MsgBox窗，直至錯誤排除。將錯誤分為文件不存在和 A盤未準備好兩種可預知的錯誤以及其它不可預知的錯誤。 當發(fā)生其它不可預知的錯誤時，退出本程序 MsgBox 其它錯誤，退出本程序！ Exit Sub End Select Resume 39。 若按下 Cancel按鈕，放棄處理 Exit Sub End If Case 71 39。 VbCritical提示 Stop圖標、 VbExclamation提示警告圖標 Style = vbRetryCancel + vbCritical + vbDefaultButton2 Title = 出錯提示 第 11章 程序調試和出錯處理 Response = MsgBox(Msg, Style, Title) 39。 53號錯誤為 文件不存在 ，在 MsgBox窗內(nèi)給出出錯提示 Msg = 文件不存在！ 39。 錯誤處理塊入口 39。 由標號 ErrorHandler指明的錯誤處理程序塊 On Error GoTo ErrorHandler Open A:\testfile For Output As 1 Exit Sub 39。 Sub OnErrorStatementDemo( ) Dim Response, Msg, Style, Tille As String 39。 由于是對 A盤操作 ， 就可能存在 A盤未準備好或文件不存在的錯誤 。 Resume：重新執(zhí)行引起錯誤的語句或指令； Resume Next：當發(fā)生錯誤時 ， 忽略錯誤行繼續(xù)執(zhí)行下一語句； Resume 標號 ：當發(fā)生錯誤時，忽略錯誤行，并轉跳到由 標號 指明的語句繼續(xù)執(zhí)行；若 標號 為 0，則表示終止程序執(zhí)行。 指令 Resume可單獨使用 ， 它具有重新執(zhí)行的能力 ， 提供了退出錯誤處理程序方法 。 第 11章 程序調試和出錯處理 當 On Error捕捉到錯誤后 ， Err對象的 Number屬性指示對應錯誤號 。On Error語句有如下三種形式 。 當程序中出現(xiàn)運行錯誤時 ， 程序的運行將轉到錯誤處理程序 ， 錯誤處理程序根據(jù)可預知的錯誤類型決定采取何種措施 。在程序適當?shù)牡胤郊尤胍恍┱Z句來捕捉錯誤，一旦錯誤發(fā)生，程序的運行將轉移到錯誤處理程序，根據(jù)所捕獲到的錯誤代碼告訴應用程序應當怎樣操作。 當一個錯誤發(fā)生時 ， 程序能捕捉到這一錯誤 ， 并可按程序設計者事先設計的方法來處理這一錯誤 。 調試工具的使用只能用于清除程序代碼中存在的錯誤 ， 無法處理運行過程中發(fā)生的非程序語法或語義的錯誤 ， 幸而 Visual Basic提供了一系列運行錯誤處理的方法和函數(shù) 。但當應用程序處在 Windows系統(tǒng)環(huán)境下執(zhí)行時 (即以 .exe文件啟動執(zhí)行 )，一旦發(fā)生錯誤， Windows將終止應用程序的執(zhí)行，并從內(nèi)存中清除該應用程序的代碼，將控制權歸還給 Windows系統(tǒng)。 由于在執(zhí)行含有斷點的行之前，這個斷點中止執(zhí)行應用程序，因此，如果要觀察設有斷點的行在運行時發(fā)生了什么，就必須至少再運行一個語句，為此要使用逐語句或逐過程運行。 第 11章 程序調試和出錯處理 應用程序一旦運行到斷點處并被中止執(zhí)行 ， 就可檢查應用程序的當前狀態(tài) 。使用同樣的方法，可清除當前程序行已設置的斷點信號。 (2) 按 F9鍵或選擇 “ 調試 ” 萊單的 “ 切換斷點 ” 命令 ， 或單擊工具條的 “ 切換斷點 ” 按鈕 。可在中斷模式下或設計時設置或刪除斷點，當應用程序處于空閑時，也可在運行時設置或刪除斷點。斷點是告訴 Visual Basic掛起程序執(zhí)行的一個標記，當程序執(zhí)行到斷點處即暫停程序的運行，進入中斷模式，此時可在調試窗口內(nèi)查看程序內(nèi)變量、屬性和語句的值。 如果要停止運行 ， 從 “ 運行 ”菜單中選擇 “ 結束 ” 命令或單擊工具欄中的 “ 結束 ” 按鈕 。 如果你不知道錯誤所在 ， 就必須逐行檢查程序的每條命令 。 在每行命令運行后 ， 查看程序做了什么 。 可以聯(lián)用這兩種方式 ， 先用逐語句逐行檢查 ， 然后用逐過程跳過已檢查過的運行正常的過程 。 逐語句執(zhí)行應用程序代碼的下一個可執(zhí)行行 ， 并跟蹤到過程中 。 進入中斷模式可通過逐條語句 、 斷點 、Stop語句 、 鍵盤交互和觀察表達式去發(fā)現(xiàn)錯誤 ， 程序的運行錯誤也產(chǎn)生中斷 。 中斷模式可使程序執(zhí)行暫停 ， 提供一個查看當前程序情況的機會 。 ③ 點擊 “ 添加 ” 按鈕 。 第 11章 程序調試和出錯處理 (2) 通過快速監(jiān)視對話框添加監(jiān)視表達式的步驟如下： ① 在調試窗口的代碼段中選取要觀察的表達式 。 如果選取 “ 監(jiān)視表達式 ” 按鈕 ，則觀察表達式的值；若選取 “ 當監(jiān)視值為真時中斷 ” 按鈕 ，只要程序使該表達式取值為真時即中斷程序執(zhí)行；若選取“ 當監(jiān)視值改變時中斷 ” 按鈕 ， 只要程序使該表達式的值發(fā)生改變 ， 就中斷程序執(zhí)行 。 ③ 在“上下文”框中選取相應的過程或模塊。 (1) 通過添加監(jiān)視命令添加監(jiān)視表達式的步驟如下： ① 單擊調試菜單中的添加監(jiān)視命令 ， 進入 “ 添加監(jiān)視 ”對話窗 。在過程中一個標志的值每次改變時都可能會希望應用程序進入中斷模式。無論何時，只要表達式的值改變或等于一個特定的值，就可把應用程序設置為中斷模