【正文】 監(jiān)控這些表達式的值 。通常，邏輯錯誤不會產(chǎn)生錯誤提示信息，故錯誤較難排除，需要程序員仔細地閱讀分析程序。 第 11章 程序調(diào)試和出錯處理 (1) 選擇 “ 幫助 ” 按鈕 ， Visual Basic將提供這一錯誤的幫助信息 ， 包括錯誤說明 、 錯誤代號和引起該錯誤的可能原因 ，用戶可參考提示排除錯誤 。這時，用戶必須單擊“確定”按鈕，關(guān)閉出錯提示窗，然后對出錯行進行修改。 第 11章 程序調(diào)試和出錯處理 3． 運行錯誤 運行錯誤指 Visual Basic在運行代碼時發(fā)生的錯誤，這類錯誤往往是指令代碼執(zhí)行了一非法操作引起的。 (2) 選擇 “ 調(diào)試 ” 按鈕 ， 進入調(diào)試窗 ， 光標停留在引起出錯的那一句上 ， 此時允許修改代碼 。 第 11章 程序調(diào)試和出錯處理 調(diào) 試 和 排 錯 調(diào)試窗口 在逐行運行應用程序的語句時 ， 可用調(diào)試窗口監(jiān)視表達式和變量的值 。 中斷表達式是一個監(jiān)視表達式 ， 當定義的某個條件為真時 ， 它將使 Visual Basic進入中斷模式 。在過程中一個標志的值每次改變時都可能會希望應用程序進入中斷模式。 第 11章 程序調(diào)試和出錯處理 (2) 通過快速監(jiān)視對話框添加監(jiān)視表達式的步驟如下： ① 在調(diào)試窗口的代碼段中選取要觀察的表達式 。 逐語句執(zhí)行應用程序代碼的下一個可執(zhí)行行 ， 并跟蹤到過程中 。 如果要停止運行 ， 從 “ 運行 ”菜單中選擇 “ 結(jié)束 ” 命令或單擊工具欄中的 “ 結(jié)束 ” 按鈕 。使用同樣的方法，可清除當前程序行已設置的斷點信號。 調(diào)試工具的使用只能用于清除程序代碼中存在的錯誤 ， 無法處理運行過程中發(fā)生的非程序語法或語義的錯誤 ， 幸而 Visual Basic提供了一系列運行錯誤處理的方法和函數(shù) 。On Error語句有如下三種形式 。 由于是對 A盤操作 ， 就可能存在 A盤未準備好或文件不存在的錯誤 。 53號錯誤為 文件不存在 ，在 MsgBox窗內(nèi)給出出錯提示 Msg = 文件不存在！ 39。將錯誤分為文件不存在和 A盤未準備好兩種可預知的錯誤以及其它不可預知的錯誤。 55號 文件己打開 錯誤 Close 1 39。 440OLE自動化出錯 Msg = “ 打開 OLE對象出錯！” 第 11章 程序調(diào)試和出錯處理 MsgBox Msg 39。 (2) 利用 Error Err方法作為解決自己無力處理或不可預測錯誤的最后手段 。 若錯誤是被零除、溢出或非法過程調(diào)用，則返回 Null 第 11章 程序調(diào)試和出錯處理 Else 39。 圖 當除數(shù)為 0時的出錯顯示結(jié)果 第 11章 程序調(diào)試和出錯處理 當我們考慮錯誤處理時 ， 如果要在每個函數(shù)或過程中加上出錯處理 ， 將導致程序繁冗拖長 ， 大量重復的錯誤處理代碼將使得程序變得累贅 。 文件未找到 Public Const errBadFileMode＝ 54 39。 設備未準備好 Public Const errDiskNotReady＝ 71 39。 MsgBox( )中按鈕類型 Dim Response As Integer 39。 Errors 64 amp。 如果發(fā)生程序中約定的錯誤，用 MsgBox( )等待用戶選擇，根據(jù)選 39。 其它情況返回 3， 用 Error Err方法 End Select End Function 第 11章 程序調(diào)試和出錯處理 以下代碼用于說明如何調(diào)用出錯函數(shù) FileErrors( )。?[*]* Or NewFileName Like *]* Then 第 11章 程序調(diào)試和出錯處理 Error errBadFileName 39。當錯誤代碼被省略時，返回運行錯誤對應的字符串信息。 argumentlist參數(shù)是命名的參數(shù)列表，這些參數(shù)可通過方法傳遞。 第 11章 程序調(diào)試和出錯處理 習 題 十 一 概述 Visual Basic程序調(diào)試中錯誤類型的分類。 For ErrorNumber = 61 To 64 39。 以下 If語句判定文件存在否，用變量 FileExists標記文件是否存在 If Dir(NewFileName) = Then FileExists = False Else FileExists = True End If If Not FileExists Then ? 如果文件不存在，用 MsgBox( )讓用戶選擇是 否要建立新文件 Msg = 文件 + NewFileName + 不存在 Msg = Msg + 是否要建立？ 第 11章 程序調(diào)試和出錯處理 If MsgBox(Msg, 1, 建立文件？ ) = 2 Then 39。 Function FileOpener(NewFileName As String) As Integer Dim NewFileNum As Integer 39。 按 OK或 Retry按鈕 FileErrors = 0 39。 Error 76 Msg = 路徑不存在 Case errBadFileMode 39。 MsgBox( )中的提示 39。 路徑不存在 在本模塊文件內(nèi)定義一個文件錯誤處理函數(shù) FileErrors( )，其形參 errVal代表出錯號 。 文件己打開 Public Const errDeviceIO =57 ? I/O錯 Public Const errFileAlreadyExists＝ 58 39。 當某個函數(shù)或過程在執(zhí)行中產(chǎn)生運行錯誤時 ， 立即調(diào)用公用錯誤處理程序 ， 公用錯誤處理程序在處理錯誤后 ， 再返回到上層調(diào)用程序繼續(xù)執(zhí)行 ， 這種處理方式稱為集中式錯誤處理 。 Msg = Msg amp。 第 11章 程序調(diào)試和出錯處理 【 例 114】 下列程序處理由 “ 被零除 ” 、 “ 溢出 ” 和 “ 非法的過程調(diào)用 ” 三種情況產(chǎn)生的錯誤 ， 以下 Function過程捕獲這些錯誤并返回 Null。 第二行語句打開文件 。 Sub ResumeStatementDemo( ) On Error GoTo ErrorHandler 39。此時，用戶可關(guān)閉好 A驅(qū)動器小門或重插入軟盤，再按下 Retry按鈕，本過程會用 Resume命令再次執(zhí)行原出錯語句，若執(zhí)行成功，則結(jié)束，否則，再重復出現(xiàn) MsgBox窗，直至錯誤排除。 VbCritical提示