第11章程序調(diào)試和出錯(cuò)處理-wenkub.com
2024-09-24 16:42 本頁面
【正文】 編寫除數(shù)為 0時(shí)的錯(cuò)誤捕獲程序。 第 11章 程序調(diào)試和出錯(cuò)處理 argumentlist 通常， object參數(shù)是 Err，它是 Visual Basic定義的全局錯(cuò)誤對象。 使用數(shù)值 61～ 64控制循環(huán) Print Error(ErrorNumber) 39。 傳遞給 FileErrors( )處理，并將返回值賦予變量 Action Action = FileError(Err) Select Case Action Case 0 Resume Case Else FileOpener = 0 Exit Function End Select End Function 第 11章 程序調(diào)試和出錯(cuò)處理 Visual Basic提供了 Error和 Error$函數(shù)用于返回錯(cuò)誤代碼和出錯(cuò)信息 ， 其語法格式為： Error[錯(cuò)誤代碼 ] 和 Error$[錯(cuò)誤代碼 ] 錯(cuò)誤代碼必須是 1～ 32 767之間的整數(shù)。 用戶選擇不要建立新文件 FileOpener = 0 Exit Function End If End If NewFileNum = FreeFile 39。 以下 If句判定文件名是否合法 If NewFileName Like *[。新文件號 Dim FileExists As lnteger 39。 出錯(cuò)函數(shù)返回 2， 用 Error Err方法 Case Else FileErrors = 3 39。 出錯(cuò)函數(shù)返回 0， 用 Resume方法 Case 5 39。 則設(shè)置出錯(cuò)函數(shù)返回值為 3，跳出本過程 FileErrors = 3 Exit Function End Select 39。 Error 54 Msg = 文件類型不正確 ， 無法打開 Case errFileAlreadyOpen 39。 Error 71 第 11章 程序調(diào)試和出錯(cuò)處理 Msg = 驅(qū)動器未準(zhǔn)備好 Case errDiskFull Msg = 磁盤滿 Case errBadFileName, errBadFileNameOrNumber 39。 以下語句設(shè)置變量值，使 MsgBox( )中顯示警告信息圖標(biāo) (值 48) MsgType = vbExclamation 39。 以下三行語句聲明變量 Dim MsgType As Integer 39。 當(dāng)上層程序調(diào)用本錯(cuò)誤處理函數(shù)時(shí) ，由 Err傳入出錯(cuò)號給形參 errVal， FileErrors( )函數(shù)利用 MsgBox( )提示相應(yīng)的出錯(cuò)信息 ， 并根據(jù)用戶所選擇的錯(cuò)誤處理方法通過函數(shù)名返回一個(gè)出口參數(shù)給上層調(diào)用本錯(cuò)誤處理函數(shù)的過程或函數(shù) 。 文件大多 Public Const errDeviceUnavailable＝ 68 39。 文件己存在 Public Const errDiskFull＝ 61 39。 不正確的文件名或文件號 Public Const errFileNotFound＝ 53 39。 下面用一個(gè)示例來說明集中式錯(cuò)誤處理的方法。 測試按鈕，調(diào)用函數(shù)用對話框顯示結(jié)果： Private Sub Command1_Click( ) MsgBox Divide(10, 5) End Sub 第 11章 程序調(diào)試和出錯(cuò)處理 (3) 當(dāng)除數(shù)為 0時(shí)運(yùn)行結(jié)果如圖 。 : amp。 計(jì)算 Exit Function MathHandler: If = mnErrDivByZero Or = ErrOverFlow _ Or = ErrBadCall Then Divide = Null 39。 (1) 界面設(shè)計(jì)只有一個(gè)測試按鈕 ， 調(diào)用 Function過程 ， 用對話框顯示結(jié)果 。 第 11章 程序調(diào)試和出錯(cuò)處理 錯(cuò)誤處理是應(yīng)用程序設(shè)計(jì)中必須考慮的問題 ， 一般編寫錯(cuò)誤處理可按 Visual Basic所建議的三條錯(cuò)誤處理原則進(jìn)行： (1) 編寫一個(gè)有安全出口的處理程序 ， 使程序中的各種錯(cuò)誤最后都有一個(gè)歸宿 。 第三行語句在沒有關(guān)閉該文件的前提下 ， 企圖刪除該文件 。 企圖啟動一個(gè)不存在的對象 If = 440 Then 39。 設(shè)置錯(cuò)誤陷阱 Open testfile For Output As 1 Kill testfile 39。 企圖刪除一個(gè)打開的文件 Exit Sub ErrorHandler: Select Case Case 55 39。若在 MsgBox窗內(nèi)給出出錯(cuò)提示后按下 Cancel按鈕，變量 Response接收到Cancel信息，經(jīng) If語句判定，退出本程序。 Resume再次執(zhí)行原出錯(cuò)語句 End Sub 第 11章 程序調(diào)試和出錯(cuò)處理 本過程根據(jù) Err函數(shù)返回的錯(cuò)誤號，做相應(yīng)的錯(cuò)誤處理。 等待用戶處理決定 If Response = vbCancel Then 39。 以下語句利用 Err對象的 Number屬性指示的錯(cuò)誤號處理出錯(cuò) Select Case Case 53 39。 以下語句行設(shè)置錯(cuò)誤陷阱 ， 當(dāng)發(fā)生錯(cuò)誤時(shí)跳轉(zhuǎn)到 39。 第 11章 程序調(diào)試和出錯(cuò)處理 【 例 111】 下列程序要打開 A驅(qū)動器上的 testfile文件 。 于是在錯(cuò)誤處理程序塊中可使用 “ Select Case ”或 “ If =”語句編寫出錯(cuò)處理 。 Visual Basic提供 On Error語句設(shè)置錯(cuò)誤陷阱 ， 捕捉錯(cuò)誤 。 常規(guī)下通過以下步驟在應(yīng)用程序中增加指令捕捉和處理運(yùn)行錯(cuò)誤： (1) 設(shè)置錯(cuò)誤陷阱。 第 11章 程序調(diào)試和出錯(cuò)處理 顯然 ， Visual Basic這種錯(cuò)誤的處理方式不盡合理 。 檢查應(yīng)用程序的結(jié)果是很容易的 ， 因?yàn)榭梢栽趹?yīng)用程序的窗體和模塊 、 “ 代碼 ” 窗口以及調(diào)試窗口之間移動焦點(diǎn) 。 設(shè)置了斷點(diǎn)后， Visual Basic將以粗體形式突出顯示選定的行，所用顏色為“選項(xiàng)”對話框的“編輯器格式”選項(xiàng)卡上所指定的顏色 (默認(rèn)紅色 )，該對話框可從“工具”菜單中獲得。斷點(diǎn)可設(shè)在懷疑存在問題的地方，斷點(diǎn)信號是臨時(shí)的，不和程序代碼存儲在一起。 按 F8或從 “ 調(diào)試 ” 菜單中選擇 “ 逐語句 ” 或 “ 逐過程
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1