Visual Basic程序设计教程（医药类） 陈素 附录A.pptVIP

4、错误处理 当在Visual Basic环境下运行应用程序时，如果发生错误，Visual Basic将中止应用程序的执行，并返回到Visual Basic环境中，设计者可通过调试工具处理错误，并继续执行该程序。 当应用程序连编成EXE文件，在Windows系统环境下执行时，一旦发生错误，Windows将终止应用程序的执行，并从内存中清除该应用程序的代码。 设置错误处理是保证应用程序有效运行的必要手段。 4、错误处理 设置错误捕获 Visual Basic使用On Error语句设置错误捕获，当程序运行中出现错误时将根据On Error语句指定的方式处理错误。 On Error Resume Next 当发生错误时，忽略错误行，继续执行下一个语句。 On Error GoTo 指定语句标号 当发生错误时，控制程序跳转到语句标号所指示的程序块。 On Error Goto 0 发生错误时，不使用已经设置的错误处理程序块。 注意，这里的Goto 0并不是指第0行。 4、错误处理 设置错误捕获 第一行利用On Error GoTo noFile语句指定后面的语句如果发生错误，则执行noFile标号指示的程序块即msgBox “文件不存在”。 因此，当score.txt文件被误删除或还没有创建的情况下，利用Open语句打开一个不存在的文件就引发了错误，此时将显示警告对话框并保证程序正常执行，而不会显示53号错误后直接退出应用程序。 第3行就使用了 On Error GoTo 0 取消了发生错误显示文件不存在的错误处理设置。 4、错误处理 编写错误处理程序 如果非常明确错误发生的原因时可以直接编写错误处理语句。 一般而言，当On Error捕捉到错误后，在错误处理程序中一般可以使用Select Case Err.Number或If Err.Number=的方式编写出错处理，其中Err对象的Number属性指示对应的错误号。 4、错误处理 退出错误处理程序 指令Resume提供了退出错误处理程序的方式。 使用Resume语句重新执行引起错误的语句或指令。 使用Resume Next将忽略错误行继续执行下一条语句。 启动 出错语句 错误处理程序 出错语句的下一句 Resume Resume Next 结束 Resume和Resume Next的程序流程 Resume Next例程 Function Divide (numer, denom) as Variant Dim Msg as String Const mnErrDivByZero = 11, mnErrOverFlow = 6 Const mnErrBadCall = 5 ? On Error GoTo MathHandler Divide = numer / denom Exit Function ? MathHandler: If Err.Number = MnErrDivByZero Or Err.Number = ErrOverFlow _ Or Err = ErrBadCall Then 如果错误是被零除、溢出或非法过程调用，则返回 NULL。 Divide = Null Else 显示意想不到的错误信息。 Msg = Unanticipated error Err.Number Msg = Msg : Err.Description MsgBox Msg, vbExclamation End If Resume Next 不管什么情况，Resume Next总在 Exit 函数处继续执行。 End Function 小 结 小 结 * * * VB程序设计教程 主编 陈素教授 附录A 程序调试及错误处理 VB程序中的错误类型 1 程序调试工具 2 程序调试方法 3 错误处理 4 1、VB程序中的错误类型 编译错误 编译错误是由于不正确构造代码而产生的。 常见的编译错误包括遗漏关键词、拼写错误、结构不完整、标点使用不当等、引用无效属性等错误。 运行错误 运行错误，也称实时错误。 代码执行了非法操作所引起的错误。 逻辑错误 程序运行后，未按预期方式执行或得不到所期望的结果时，说明程序存在逻辑错误。这类错误往往是程序存在逻辑上的缺陷所引起的。 （1）常见编译错误 遗漏关键词 例如，在command1按钮的click事件中，如果仅输入了“If day = 2”代码，忘记输入“then”关键词。 （1）常见编译错误 拼写错误 在代码编辑窗口中可以看