【導讀】義變量、遺漏關鍵字等原因產(chǎn)生的不正確的代碼而引起的錯誤。那一行被高亮度顯示，同時VisualBasic停止編譯。誤往往是指令代碼執(zhí)行了一非法操作引起的。有時，即使調用VisualBasic或Windows系統(tǒng)提供的標。準系統(tǒng)函數(shù)或過程，也會發(fā)生錯誤。準備好或磁盤讀寫有錯，就會發(fā)生錯誤。個子窗口，提示出錯信息。窗口內第一行顯示運行錯誤代號，在窗口的下方給出4個按鈕，分別是。助信息，包括錯誤說明、錯誤代號和引起該錯誤的可能原因，如，使用了不正確的變量類型或指令的次序不對。環(huán)中起終值不正確。有三個調試窗口，它們是“立即”窗口、“監(jiān)視”。否則，“值”列只顯示一條消息，指出語句不在上下文中，列之間的分界線來調整。VisualBasic自動對監(jiān)視表達式進行監(jiān)視。例如，在循環(huán)計數(shù)器達到一個特定值時，可用一個監(jiān)視表。則觀察表達式的值；若選取“當監(jiān)視值為真時中斷”按鈕，用逐過程跳過已檢查過的運行正常的過程。味著逐行運行程序且檢查每條命令。令可進入指定的運行跟蹤方式。

　　

【正文】 n 39。 Error 55 Msg = 文件己打開 第 11章 程序調試和出錯處理 Case errInputPastEndOfFile 39。 Error 62 Msg = 有一個不正確的文件結束標志 Msg = Msg + 或企圖越界讀文件 Case Else 39。 如果發(fā)生其它不可預知的錯誤， 39。 則設置出錯函數(shù)返回值為 3，跳出本過程 FileErrors = 3 Exit Function End Select 39。 如果發(fā)生程序中約定的錯誤，用 MsgBox( )等待用戶選擇，根據(jù)選 39。 擇，給出錯函數(shù)設置一個返回值 Response = MsgBox(Msg, MsgType, 出錯處理 ) 第 11章 程序調試和出錯處理 Select Case Response Case 1, 4 39。 按 OK或 Retry按鈕 FileErrors = 0 39。 出錯函數(shù)返回 0， 用 Resume方法 Case 5 39。 按 Ignore按鈕 FileErrors = 1 39。 函數(shù)返回 1， 用 Resume Next方法 Case 2, 3 39。 按 Cancel或 Abort按鈕 FileErrors = 2 39。 出錯函數(shù)返回 2， 用 Error Err方法 Case Else FileErrors = 3 39。 其它情況返回 3， 用 Error Err方法 End Select End Function 第 11章 程序調試和出錯處理 以下代碼用于說明如何調用出錯函數(shù) FileErrors( )。 函數(shù)FileOpener的功能是模擬文件打開對話框 ， 形參 NewFileName指定文件名 ， 文件打開不成功 ， FileOpener返回 0。 Function FileOpener(NewFileName As String) As Integer Dim NewFileNum As Integer 39。新文件號 Dim FileExists As lnteger 39。 標記文件存在否 Dim Action As Integer 39。 錯誤選擇 Dim Msg As String On Error GoTo OpenerError 39。 設置錯誤陷阱 39。 以下 If句判定文件名是否合法 If NewFileName Like *[。?[*]* Or NewFileName Like *]* Then 第 11章 程序調試和出錯處理 Error errBadFileName 39。 常量 errBadFileName = 64 End If 39。 以下 If語句判定文件存在否，用變量 FileExists標記文件是否存在 If Dir(NewFileName) = Then FileExists = False Else FileExists = True End If If Not FileExists Then ? 如果文件不存在，用 MsgBox( )讓用戶選擇是 否要建立新文件 Msg = 文件 + NewFileName + 不存在 Msg = Msg + 是否要建立？ 第 11章 程序調試和出錯處理 If MsgBox(Msg, 1, 建立文件？ ) = 2 Then 39。 用戶選擇不要建立新文件 FileOpener = 0 Exit Function End If End If NewFileNum = FreeFile 39。 調用函數(shù)子過程 FreeFile，確定文件號 39。 用 Open語句打開指定的文件 Open NewFileName For Output As NewFileNum FileOpener = NewFileNum Exit Function OpenerError: 第 11章 程序調試和出錯處理 39。 如果發(fā)生錯誤，調用文件錯誤處理函數(shù) FileErrors( )， Err將錯誤號 39。 傳遞給 FileErrors( )處理，并將返回值賦予變量 Action Action = FileError(Err) Select Case Action Case 0 Resume Case Else FileOpener = 0 Exit Function End Select End Function 第 11章 程序調試和出錯處理 Visual Basic提供了 Error和 Error$函數(shù)用于返回錯誤代碼和出錯信息 ， 其語法格式為： Error[錯誤代碼 ] 和 Error$[錯誤代碼 ] 錯誤代碼必須是 1～ 32 767之間的整數(shù)。當錯誤代碼被省略時，返回運行錯誤對應的字符串信息。 第 11章 程序調試和出錯處理 【 例 116】 本程序塊使用錯誤代碼輸出出錯提示 。 For ErrorNumber = 61 To 64 39。 使用數(shù)值 61～ 64控制循環(huán) Print Error(ErrorNumber) 39。 輸出出錯提示 Next ErrorNumber 當測試應用程序，或想要處理等價于 Visual Basic運行時錯誤的具體條件時，對錯誤進行模擬是非常有用的。例如，用一個定義在外部應用程序中的對象編寫模塊并希望應用程序的其余部分把該對象返回的錯誤作為實際的 Visual Basic錯誤來處理。在代碼中可用 Raise方法捕捉錯誤。 第 11章 程序調試和出錯處理 argumentlist 通常， object參數(shù)是 Err，它是 Visual Basic定義的全局錯誤對象。 argumentlist參數(shù)是命名的參數(shù)列表，這些參數(shù)可通過方法傳遞。例如，使用代碼“ Number＝ 71”模擬“磁盤未準備”錯誤。 第 11章 程序調試和出錯處理 習 題 十 一 概述 Visual Basic程序調試中錯誤類型的分類。 編寫除數(shù)為 0時的錯誤捕獲程序。