第11章程序調(diào)試和出錯(cuò)處理(編輯修改稿)
2024-11-03 16:42 本頁面
【文章內(nèi)容簡(jiǎn)介】 與 Cancel按鈕 39。 VbCritical提示 Stop圖標(biāo)、 VbExclamation提示警告圖標(biāo) Style = vbRetryCancel + vbCritical + vbDefaultButton2 Title = 出錯(cuò)提示 第 11章 程序調(diào)試和出錯(cuò)處理 Response = MsgBox(Msg, Style, Title) 39。 等待用戶處理決定 If Response = vbCancel Then 39。 若按下 Cancel按鈕，放棄處理 Exit Sub End If Case 71 39。 71號(hào)錯(cuò)誤為 A盤未準(zhǔn)備好 錯(cuò)誤 Msg = A盤未準(zhǔn)備好 Style = vbRetryCancel + vbCritical + vbDefaultButton2 Title = 提示 Response = MsgBox(Msg, Style, Title) If Response = vbCancel Then Exit Sub 第 11章 程序調(diào)試和出錯(cuò)處理 End If Case Else 39。 當(dāng)發(fā)生其它不可預(yù)知的錯(cuò)誤時(shí)，退出本程序 MsgBox 其它錯(cuò)誤，退出本程序！ Exit Sub End Select Resume 39。 Resume再次執(zhí)行原出錯(cuò)語句 End Sub 第 11章 程序調(diào)試和出錯(cuò)處理 本過程根據(jù) Err函數(shù)返回的錯(cuò)誤號(hào)，做相應(yīng)的錯(cuò)誤處理。將錯(cuò)誤分為文件不存在和 A盤未準(zhǔn)備好兩種可預(yù)知的錯(cuò)誤以及其它不可預(yù)知的錯(cuò)誤。當(dāng)發(fā)生不可預(yù)知的錯(cuò)誤時(shí)，終止本程序的執(zhí)行，否則，在 MsgBox窗內(nèi)給出出錯(cuò)提示。此時(shí)，用戶可關(guān)閉好 A驅(qū)動(dòng)器小門或重插入軟盤，再按下 Retry按鈕，本過程會(huì)用 Resume命令再次執(zhí)行原出錯(cuò)語句，若執(zhí)行成功，則結(jié)束，否則，再重復(fù)出現(xiàn) MsgBox窗，直至錯(cuò)誤排除。若在 MsgBox窗內(nèi)給出出錯(cuò)提示后按下 Cancel按鈕，變量 Response接收到Cancel信息，經(jīng) If語句判定，退出本程序。 第 11章 程序調(diào)試和出錯(cuò)處理 【 例 112】 下列程序用于處理企圖刪除一個(gè)已打開的文件所產(chǎn)生的錯(cuò)誤。 Sub ResumeStatementDemo( ) On Error GoTo ErrHandler 39。 設(shè)置錯(cuò)誤陷阱 Open testfile For Output As 1 Kill testfile 39。 企圖刪除一個(gè)打開的文件 Exit Sub ErrorHandler: Select Case Case 55 39。 55號(hào) 文件己打開 錯(cuò)誤 Close 1 39。 處理方法：關(guān)閉文件 Case Else … Endselect Resume End Sub 第 11章 程序調(diào)試和出錯(cuò)處理 【 例 113】 下列程序采用忽略錯(cuò)誤的方法處理錯(cuò)誤 ， 錯(cuò)誤類型與上例中的錯(cuò)誤相同 。 Sub ResumeStatementDemo( ) On Error GoTo ErrorHandler 39。 設(shè)置錯(cuò)誤陷阱 Open testfile For Output As 1 Kill testfile 39。 企圖刪除一個(gè)打開的文件 On Error GoTo 0 39。 關(guān)閉錯(cuò)誤陷阱 On Error Resume Next 39。 忽略 Kill testfile出錯(cuò)行指令 ObjectRef = GetObject() 39。 企圖啟動(dòng)一個(gè)不存在的對(duì)象 If = 440 Then 39。 440OLE自動(dòng)化出錯(cuò) Msg = “ 打開 OLE對(duì)象出錯(cuò)！” 第 11章 程序調(diào)試和出錯(cuò)處理 MsgBox Msg 39。 清除出錯(cuò)號(hào) End If Exit Sub ErrorHandler: Select Case Case 55 Close 1 Case Else End Select Resume End Sub 第 11章 程序調(diào)試和出錯(cuò)處理 本過程中的第一行語句設(shè)置錯(cuò)誤陷阱 ， 其目的是當(dāng)發(fā)生錯(cuò)誤時(shí)轉(zhuǎn)跳到由標(biāo)號(hào) Error Handler指明的錯(cuò)誤處理程序塊 。 第二行語句打開文件 。 第三行語句在沒有關(guān)閉該文件的前提下 ， 企圖刪除該文件 。Err函數(shù)返回 55號(hào)出錯(cuò)號(hào) 。 由于第四行語句 On Error Goto 0的作用 ， 關(guān)閉了錯(cuò)誤陷阱 ，不使用錯(cuò)誤處理程序塊而執(zhí)行第五行語句 On Error Resume Next，它使 Kill testfile命令無效 。 第六行語句企圖啟動(dòng)一個(gè)不存在的對(duì)象，產(chǎn)生錯(cuò)誤號(hào)為 440，當(dāng) If 440錯(cuò)誤號(hào)后給出提示，然后用，使 0。 第 11章 程序調(diào)試和出錯(cuò)處理 錯(cuò)誤處理是應(yīng)用程序設(shè)計(jì)中必須考慮的問題 ， 一般編寫錯(cuò)誤處理可按 Visual Basic所建議的三條錯(cuò)誤處理原則進(jìn)行： (1) 編寫一個(gè)有安全出口的處理程序 ， 使程序中的各種錯(cuò)誤最后都有一個(gè)歸宿 。 (2) 利用 Error Err方法作為解決自己無力處理或不可預(yù)測(cè)錯(cuò)誤的最后手段 。 (3) 若不想讓函數(shù)或過程中出現(xiàn)的錯(cuò)誤交由上層程序處理，可用 Stop方法結(jié)束程序。 第 11章 程序調(diào)試和出錯(cuò)處理 【 例 114】 下列程序處理由 “ 被零除 ” 、 “ 溢出 ” 和 “ 非法的過程調(diào)用 ” 三種情況產(chǎn)生的錯(cuò)誤 ， 以下 Function過程捕獲這些錯(cuò)誤并返回 Null。 (1) 界面設(shè)計(jì)只有一個(gè)測(cè)試按鈕 ， 調(diào)用 Function過程 ， 用對(duì)話框顯示結(jié)果 。 (2) 程序代碼如下： 39。 子過程 Devide測(cè)試運(yùn)算符／的結(jié)果 Function Divide(number As Integer, denom As Integer) As Variant Dim Msg As String 第 11章 程序調(diào)試和出錯(cuò)處理 39。 聲明常量，用于代表被零除、溢出和非法的過程調(diào)用三種錯(cuò)誤號(hào) Const mnErrDivByZero = 11 Const mnErrOverFlow = 6 Const mnErrBadCall = 5 On Error GoTo MathHandler Divide = number / denom 39。 計(jì)算 Exit Function M
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1