第11章程序調(diào)試和出錯(cuò)處理(存儲(chǔ)版)
【正文】 0。 聲明常量，用于代表被零除、溢出和非法的過(guò)程調(diào)用三種錯(cuò)誤號(hào) Const mnErrDivByZero = 11 Const mnErrOverFlow = 6 Const mnErrBadCall = 5 On Error GoTo MathHandler Divide = number / denom 39。 總在 Exit函數(shù)語(yǔ)句處繼續(xù)執(zhí)行 End Function 39。 Public Const errBadFileNameOrNumber=52 39。 文件名有誤 Public Const errTooManyFiles＝ 67 39。 第 11章 程序調(diào)試和出錯(cuò)處理 Function FileErrors(errVal As Integer) As Integer 39。 5為 Retry和 Cancel按鈕 Case errDiskNotReady 39。 如果發(fā)生其它不可預(yù)知的錯(cuò)誤， 39。 按 Cancel或 Abort按鈕 FileErrors = 2 39。 設(shè)置錯(cuò)誤陷阱 39。 如果發(fā)生錯(cuò)誤，調(diào)用文件錯(cuò)誤處理函數(shù) FileErrors( )， Err將錯(cuò)誤號(hào) 39。在代碼中可用 Raise方法捕捉錯(cuò)誤。 。 輸出出錯(cuò)提示 Next ErrorNumber 當(dāng)測(cè)試應(yīng)用程序，或想要處理等價(jià)于 Visual Basic運(yùn)行時(shí)錯(cuò)誤的具體條件時(shí)，對(duì)錯(cuò)誤進(jìn)行模擬是非常有用的。 調(diào)用函數(shù)子過(guò)程 FreeFile，確定文件號(hào) 39。 標(biāo)記文件存在否 Dim Action As Integer 39。 按 Ignore按鈕 FileErrors = 1 39。 Error 55 Msg = 文件己打開 第 11章 程序調(diào)試和出錯(cuò)處理 Case errInputPastEndOfFile 39。 以下語(yǔ)句根據(jù) errVal的值給出不同的提示 Select Case errVal Case errDeviceUnavailable 39。 第 11章 程序調(diào)試和出錯(cuò)處理 出口參數(shù)可由用戶自行約定 ， 本例中出口參數(shù)的含義分別如下： 0 選擇 OK或 Retry按鈕 ， 表示上層程序?qū)⒂?Resume方法處理運(yùn)行錯(cuò)誤 。 磁盤滿 第 11章 程序調(diào)試和出錯(cuò)處理 Public errInputPastEndOfFile＝ 62 39。 第 11章 程序調(diào)試和出錯(cuò)處理 【 例 115】 下列程序?qū)崿F(xiàn)各種與文件或磁盤操作有關(guān)的錯(cuò)誤處理 ， 整個(gè)程序作為一個(gè)公用模塊 (.bas)文件保存于磁盤 。 MsgBox Msg, vbExclamation End If 39。 (2) 程序代碼如下： 39。Err函數(shù)返回 55號(hào)出錯(cuò)號(hào) 。 企圖刪除一個(gè)打開的文件 On Error GoTo 0 39。 第 11章 程序調(diào)試和出錯(cuò)處理 【 例 112】 下列程序用于處理企圖刪除一個(gè)已打開的文件所產(chǎn)生的錯(cuò)誤。 若按下 Cancel按鈕，放棄處理 Exit Sub End If Case 71 39。 由標(biāo)號(hào) ErrorHandler指明的錯(cuò)誤處理程序塊 On Error GoTo ErrorHandler Open A:\testfile For Output As 1 Exit Sub 39。 指令 Resume可單獨(dú)使用 ， 它具有重新執(zhí)行的能力 ， 提供了退出錯(cuò)誤處理程序方法 。在程序適當(dāng)?shù)牡胤郊尤胍恍┱Z(yǔ)句來(lái)捕捉錯(cuò)誤，一旦錯(cuò)誤發(fā)生，程序的運(yùn)行將轉(zhuǎn)移到錯(cuò)誤處理程序，根據(jù)所捕獲到的錯(cuò)誤代碼告訴應(yīng)用程序應(yīng)當(dāng)怎樣操作。 由于在執(zhí)行含有斷點(diǎn)的行之前，這個(gè)斷點(diǎn)中止執(zhí)行應(yīng)用程序，因此，如果要觀察設(shè)有斷點(diǎn)的行在運(yùn)行時(shí)發(fā)生了什么，就必須至少再運(yùn)行一個(gè)語(yǔ)句，為此要使用逐語(yǔ)句或逐過(guò)程運(yùn)行?？稍谥袛嗄Ｊ较禄蛟O(shè)計(jì)時(shí)設(shè)置或刪除斷點(diǎn)，當(dāng)應(yīng)用程序處于空閑時(shí)，也可在運(yùn)行時(shí)設(shè)置或刪除斷點(diǎn)。 在每行命令運(yùn)行后 ， 查看程序做了什么 。 中斷模式可使程序執(zhí)行暫停 ， 提供一個(gè)查看當(dāng)前程序情況的機(jī)會(huì) 。 ③ 在“上下文”框中選取相應(yīng)的過(guò)程或模塊。 第 11章 程序調(diào)試和出錯(cuò)處理 Visual Basic自動(dòng)對(duì)監(jiān)視表達(dá)式進(jìn)行監(jiān)視。例如，使用 Print語(yǔ)句打印表達(dá)式的值，也可以在程序代碼中利用 把輸出送到“立即”窗口。例如，使用了不正確的變量類型或指令的次序不對(duì)。運(yùn)行錯(cuò)誤也將彈出一個(gè)子窗口，提示出錯(cuò)信息。第 11章 程序調(diào)試和出錯(cuò)處理 第 11章 程序調(diào)試和出錯(cuò)處理 錯(cuò)誤類型 調(diào)試和排錯(cuò) 出錯(cuò)處理 習(xí)題十一 第 11章 程序調(diào)試和出錯(cuò)處理 錯(cuò) 誤 類 型 1． 語(yǔ)法錯(cuò)誤 當(dāng)編寫代碼時(shí)， Visual Basic會(huì)對(duì)程序進(jìn)行語(yǔ)法檢查，當(dāng)發(fā)現(xiàn)程序中存在打字錯(cuò)誤、遺漏關(guān)鍵字或標(biāo)點(diǎn)符號(hào)使用不當(dāng)?shù)日Z(yǔ)法錯(cuò)誤時(shí)， Visual Basic在 Form窗口中彈出一個(gè)子窗口，提示出錯(cuò)信息，出錯(cuò)的那一行變成紅色，出錯(cuò)部分被高亮度顯示，這時(shí)，用戶必須單擊“確定”按鈕，關(guān)閉出錯(cuò)提示窗，然后對(duì)出錯(cuò)行進(jìn)行修改。例如，當(dāng)調(diào)用 Visual Basic的 Dir$( )函數(shù)判斷一個(gè)文件是否存在時(shí)，若被操作的驅(qū)動(dòng)器未準(zhǔn)備好或磁盤讀寫有錯(cuò)，就會(huì)發(fā)生錯(cuò)誤。這類錯(cuò)誤往往是程序存在邏輯上的缺陷所引起的。 (1) “立即”窗口顯示代碼中正在調(diào)試的語(yǔ)句所產(chǎn)生的信息，或直接往窗口中鍵入的命令所請(qǐng)求的信息。否則，“值”列只顯示一條消息，指出語(yǔ)句不在上下文中，“類型”列指明表達(dá)式類型，監(jiān)視窗內(nèi)列的寬度可用鼠標(biāo)拖曳列之間的分界線來(lái)調(diào)整。 ② 在 “ 表達(dá)式 ” 框中 ， 輸入想要求值的表達(dá)式 (也可預(yù)先用鼠標(biāo)在程序中標(biāo)記某一表達(dá)式 ， 它將自動(dòng)填入表達(dá)式框中 )。 為了能在調(diào)試窗口內(nèi)查看程序內(nèi)變量 、 屬性和語(yǔ)句的值 ， 可使用中斷模式 。 逐語(yǔ)句或逐過(guò)程意味著逐行運(yùn)行程序且檢查每條命令 。斷點(diǎn)可設(shè)在懷疑存在問(wèn)題的地方，斷點(diǎn)信號(hào)是臨時(shí)的，不和程序代碼存儲(chǔ)在一起。 檢查應(yīng)用程序的結(jié)果是很容易的 ， 因?yàn)榭梢栽趹?yīng)用程序的窗體和模塊 、 “ 代碼 ” 窗口以及調(diào)試窗口之間移動(dòng)焦點(diǎn) 。 常規(guī)下通過(guò)以下步驟在應(yīng)用程序中增加指令捕捉和處理運(yùn)行錯(cuò)誤： (1) 設(shè)置錯(cuò)誤陷阱。 于是在錯(cuò)誤處理程序塊中可使用 “ Select Case ”或 “ If =”語(yǔ)句編寫出錯(cuò)處理 。 以下語(yǔ)句行設(shè)置錯(cuò)誤陷阱 ， 當(dāng)發(fā)生錯(cuò)誤時(shí)跳轉(zhuǎn)到 39。 等待用戶處理決定 If Response = vbCance
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1