第11章程序調(diào)試和出錯(cuò)處理(參考版)
2024-10-02 16:42本頁(yè)面
【正文】 。 第 11章 程序調(diào)試和出錯(cuò)處理 習(xí) 題 十 一 概述 Visual Basic程序調(diào)試中錯(cuò)誤類型的分類。 argumentlist參數(shù)是命名的參數(shù)列表，這些參數(shù)可通過(guò)方法傳遞。在代碼中可用 Raise方法捕捉錯(cuò)誤。 輸出出錯(cuò)提示 Next ErrorNumber 當(dāng)測(cè)試應(yīng)用程序，或想要處理等價(jià)于 Visual Basic運(yùn)行時(shí)錯(cuò)誤的具體條件時(shí)，對(duì)錯(cuò)誤進(jìn)行模擬是非常有用的。 For ErrorNumber = 61 To 64 39。當(dāng)錯(cuò)誤代碼被省略時(shí)，返回運(yùn)行錯(cuò)誤對(duì)應(yīng)的字符串信息。 如果發(fā)生錯(cuò)誤，調(diào)用文件錯(cuò)誤處理函數(shù) FileErrors( )， Err將錯(cuò)誤號(hào) 39。 調(diào)用函數(shù)子過(guò)程 FreeFile，確定文件號(hào) 39。 以下 If語(yǔ)句判定文件存在否，用變量 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。?[*]* Or NewFileName Like *]* Then 第 11章 程序調(diào)試和出錯(cuò)處理 Error errBadFileName 39。 設(shè)置錯(cuò)誤陷阱 39。 標(biāo)記文件存在否 Dim Action As Integer 39。 Function FileOpener(NewFileName As String) As Integer Dim NewFileNum As Integer 39。 其它情況返回 3， 用 Error Err方法 End Select End Function 第 11章 程序調(diào)試和出錯(cuò)處理 以下代碼用于說(shuō)明如何調(diào)用出錯(cuò)函數(shù) FileErrors( )。 按 Cancel或 Abort按鈕 FileErrors = 2 39。 按 Ignore按鈕 FileErrors = 1 39。 按 OK或 Retry按鈕 FileErrors = 0 39。 如果發(fā)生程序中約定的錯(cuò)誤，用 MsgBox( )等待用戶選擇，根據(jù)選 39。 如果發(fā)生其它不可預(yù)知的錯(cuò)誤， 39。 Error 55 Msg = 文件己打開(kāi) 第 11章 程序調(diào)試和出錯(cuò)處理 Case errInputPastEndOfFile 39。 Error 76 Msg = 路徑不存在 Case errBadFileMode 39。 Errors 64 amp。 5為 Retry和 Cancel按鈕 Case errDiskNotReady 39。 以下語(yǔ)句根據(jù) errVal的值給出不同的提示 Select Case errVal Case errDeviceUnavailable 39。 MsgBox( )中的提示 39。 MsgBox( )中按鈕類型 Dim Response As Integer 39。 第 11章 程序調(diào)試和出錯(cuò)處理 Function FileErrors(errVal As Integer) As Integer 39。 第 11章 程序調(diào)試和出錯(cuò)處理 出口參數(shù)可由用戶自行約定 ， 本例中出口參數(shù)的含義分別如下： 0 選擇 OK或 Retry按鈕 ， 表示上層程序?qū)⒂?Resume方法處理運(yùn)行錯(cuò)誤 。 路徑不存在 在本模塊文件內(nèi)定義一個(gè)文件錯(cuò)誤處理函數(shù) FileErrors( )，其形參 errVal代表出錯(cuò)號(hào) 。 設(shè)備未準(zhǔn)備好 Public Const errDiskNotReady＝ 71 39。 文件名有誤 Public Const errTooManyFiles＝ 67 39。 磁盤(pán)滿 第 11章 程序調(diào)試和出錯(cuò)處理 Public errInputPastEndOfFile＝ 62 39。 文件己打開(kāi) Public Const errDeviceIO =57 ? I/O錯(cuò) Public Const errFileAlreadyExists＝ 58 39。 文件未找到 Public Const errBadFileMode＝ 54 39。 Public Const errBadFileNameOrNumber=52 39。 第 11章 程序調(diào)試和出錯(cuò)處理 【 例 115】 下列程序?qū)崿F(xiàn)各種與文件或磁盤(pán)操作有關(guān)的錯(cuò)誤處理 ， 整個(gè)程序作為一個(gè)公用模塊 (.bas)文件保存于磁盤(pán) 。 當(dāng)某個(gè)函數(shù)或過(guò)程在執(zhí)行中產(chǎn)生運(yùn)行錯(cuò)誤時(shí) ， 立即調(diào)用公用錯(cuò)誤處理程序 ， 公用錯(cuò)誤處理程序在處理錯(cuò)誤后 ， 再返回到上層調(diào)用程序繼續(xù)執(zhí)行 ， 這種處理方式稱為集中式錯(cuò)誤處理 。 圖 當(dāng)除數(shù)為 0時(shí)的出錯(cuò)顯示結(jié)果 第 11章 程序調(diào)試和出錯(cuò)處理 當(dāng)我們考慮錯(cuò)誤處理時(shí) ， 如果要在每個(gè)函數(shù)或過(guò)程中加上出錯(cuò)處理 ， 將導(dǎo)致程序繁冗拖長(zhǎng) ， 大量重復(fù)的錯(cuò)誤處理代碼將使得程序變得累贅 。 總在 Exit函數(shù)語(yǔ)句處繼續(xù)執(zhí)行 End Function 39。 MsgBox Msg, vbExclamation End If 39。 Msg = Msg amp。 若錯(cuò)誤是被零除、溢出或非法過(guò)程調(diào)用，則返回 Null 第 11章 程序調(diào)試和出錯(cuò)處理 Else 39。 聲明常量，用于代表被零除、溢出和非法的過(guò)程調(diào)用三種錯(cuò)誤號(hào) Const mnErrDivByZero = 11 Const mnErrOverFlow = 6 Const mnErrBadCall = 5 On Error GoTo MathHandler Divide = number / denom 39。 (2) 程序代碼如下： 39。 第 11章 程序調(diào)試和出錯(cuò)處理 【 例 114】 下列程序處理由 “ 被零除 ” 、 “ 溢出 ” 和 “ 非法的過(guò)程調(diào)用 ” 三種情況產(chǎn)生的錯(cuò)誤 ， 以下 Functio
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1