新VisualBasic实用教程 薛亮 第11章.pptVIP

【例11-4】 下列程序处理由“被零除”、“溢出”和“非法的过程调用”三种情况产生的错误，以下Function过程捕获这些错误并返回Null。 (1) 界面设计只有一个测试按钮，调用Function过程，用对话框显示结果。 (2) 程序代码如下： 子过程Devide测试运算符／的结果 Function Divide(number As Integer, denom As Integer) As Variant Dim Msg As String 声明常量，用于代表被零除、溢出和非法的过程调用三种错误号 Const mnErrDivByZero = 11 Const mnErrOverFlow = 6 Const mnErrBadCall = 5 On Error GoTo MathHandler Divide = number / denom 计算 Exit Function MathHandler: If Err.number = mnErrDivByZero Or Err.number = ErrOverFlow _ Or Err.number = ErrBadCall Then Divide = Null 若错误是被零除、溢出或非法过程调用，则返回 Null Else 显示意想不到的出错信息 Msg = Unanticipated error Err.number Msg = Msg : Err.Description MsgBox Msg, vbExclamation End If 不管什么情况， Resume Next Resume Next 总在Exit函数语句处继续执行 End Function 测试按钮，调用函数用对话框显示结果： Private Sub Command1_Click( ) MsgBox Divide(10, 5) End Sub (3) 当除数为0时运行结果如图11.1所示。 图11.1 当除数为0时的出错显示结果 当我们考虑错误处理时，如果要在每个函数或过程中加上出错处理，将导致程序繁冗拖长，大量重复的错误处理代码将使得程序变得累赘。事实上，在一个应用程序中，能出现的错误类型是有限的，我们只要按其性质将其归类，用一个或几个公用的程序处理这些错误就可以了。当某个函数或过程在执行中产生运行错误时，立即调用公用错误处理程序，公用错误处理程序在处理错误后，再返回到上层调用程序继续执行，这种处理方式称为集中式错误处理。 下面用一个示例来说明集中式错误处理的方法。 * 第11章 程序调试和出错处理 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： 第11章 程序调试和出错处理 11.1 错误类型 11.2 调试和排错 11.3 出错处理 习题十一 11.1 错 误 类 型 1．语法错误 当编写代码时，Visual Basic会对程序进行语法检查，当发现程序中存在打字错误、遗漏关键字或标点符号使用不当等语法错误时，Visual Basic在Form窗口中弹出一个子窗口，提示出错信息，出错的那一行变成红色，出错部分被高亮度显示，这时，用户必须单击“确定”按钮，关闭出错提示窗，然后对出错行进行修改。 2．编译错误 编译错误指Visual Basic在编译应用程序时，由于用户未定义变量、遗漏关键字等原因产生的不正确的代码而引起的错误。这时，Visual Basic也弹出一个子窗口，提示出错信息，出错的那一行被高亮度显示，同时Visual Basic停止编译。这时，用户必须单击“确定”按钮，关闭出错提示窗，然后对出错行进行修改。 3．运行错误 运行错误指Visual Basic在运行代码时发生的错误，这类错误往往是指令代码执行了一非法操作引起的。例如，除法时分母为零。有时，即使调用Visual Basic或Windows系统提供的标准系统函数或过程，也会发生错误。例如，当调用Visual Basic的Dir$( )函数判断一个文件是否存在时，若被操作的驱动器未准备好或磁盘读写有错，就会发生错误。运行错误也将弹出一个子窗口，提示出错信息。窗口内第一行显示