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