教育教学中文笔记6错误处理调试及文件输入输出.doc

6. Error-Handling, Debugging and File Input/Output 错误类型 　　　语法错误、运行时错误、逻辑错误 语法错误：不符合VB语法的错误，如关键字出错、非法的参数等。 运行时错误：超出了程序的控制范围，如变量的范围范围溢出、文件没有找到等。VB允许你跟踪这样的错误，并努力改正它们。 逻辑错误：最难发现的，带有逻辑错误的程序可以运行，但运行结果通常是错误的。VB的调试器有助于发现这种错误。 减少错误的方式： 仔细设计应用程序，设计时间越长，调试所需的时间就越少。 适度使用程序注释 对变量、对象及过程使用一致、有意义的名称。 跟踪运行错误并处理它 运行时错误时可跟踪的，这意味着VB能够发现错误，并允许你跟踪及修正它。 跟踪错误使用关键字On Error，语法如下： On Error GoTo errlabel 此行下面的语句如果出现错误，将跳到errlabel标签处执行。例如： Sub SubExample() . . [Declare variables, ...] . On Error GoTo HandleErrors　　‘错误跟踪开始 . . [Procedure code] ‘在执行这段代码过程中出现任何错误时，程序都将跳到HandleErrors处开始执行 . Exit Sub HandleErrors: . . [Error handling code]　‘根据错误类型，选择处理方法 . End Sub 如果在过程中想关闭错误跟踪，则可以使用On Error GoTo 0 对象Err的属性Number表示与当前的错误条件相关。函数Error()把错误号当作参数并返回一个字符串来描述对应的错误。 当错误被跟踪并采取一定的措施后，程序执行流程必须返回到应用程序，这种控制是通过Resume语句实现的，Resume有三种表达形式： Resume　　　重新执行引起错误的语句，这可能比较危险，因为如果错误没有被正确处理，没会出现死循环。 Resume Next 　程序将从出现错误的语句的下一条语句起开始执行 Resume 标号 程序将从标号所标示的语句开始执行 一般的错误处理过程： HandleErrors: Select Case MsgBox(Error(Err.Number), vbCritical + vbAbortRetryIgnore, Error Number + Str(Err.Number)) Case vbAbort Resume ExitLine Case vbRetry　　‘实际应用程序中在这个位置需要添加修复错误的语句 Resume Case vbIgnore Resume Next End Select ExitLine: Exit Sub 功能：向用户提供一个错误发生、错误描述并请用户选择操作的对话框。 如何把这段代码放置到过程中，如下所示： Sub SubExample() . . [Declare variables, ...] . On Error GoTo HandleErrors . . [Procedure code] . Exit Sub HandleErrors: Select Case MsgBox(Error(Err.Number), vbCritical + vbAbortRetryIgnore, Error Number + Str(Err.Number)) Case vbAbort Resume ExitLine Case vbRetry Resume Case vbIgnore Resume Next End Select ExitLine: Exit Sub End Sub 为了测试带有错误处理的过程，可以使用如下语句模拟一个运行进错误发生： Err.Raise 错误号 千万不要忘记在测试完成之后，把这些语句清除掉，可以通过如下语句清除错误发生的条件： Err.Clear 例　6－1　　简单的错误跟踪程序 设计界面如下： Private Sub cmdGenError_Click() On Error GoTo HandleErrors Err.Raise Val(txtError.Text) Err.Clear Exit Sub HandleErrors: Select Case MsgBox(Error(Err.Number), vbCritical + vbAbortRetryIgnore, Er