第15章 程序调试与出错处理.ppt

第十五章程序调试与出错处理 本章要求: 1.掌握VB程序调试方法 2.学会查找和修改和分析程序错误的方法 3.了解错误处理的方法：捕捉错误，设计的程序来处 理不同错误 4.了解程序的打包和发布 1编译错误 指由于违反了VB的有关语法而产生的错误（也称语法错 误）常见的编译错误有： 15.1 常见错误类型 Visual Basic程序的错误分为： 编译错误 运行时错误 逻辑错误 （1）标点符号错（程序中只能使用西文标点）；关键字 输入错（例：Dim写成Din）；一行语句没有写完整等， （2）对象名称（Name属性）写错； （3）对象的属性名、方法名，内部函数名写错； （4）变量未定义或变量名写错（可在通用声明段加Option Explicit，采用变量显式声明）； （3）块If没有对应的EndIf语句；For循环没有对应的Next语 句；Do循环没有对应的Loop语句等，这类错误当VB开始运 行时提示出错信息，且将出错位置用反色显示， 2运行错误 VB在运行代码时指令代码执行了一非法操作引起的 误指例如，除法时分母为零，被操作的驱动器未准备好 或磁盘读写有错或数组下标超界、数据溢出等 运行出错也将弹出一个子窗口，提示出错信息。

3逻辑错误 程序存在逻辑上的缺陷引起程序运行后，得不到所期望 的结果 例如，使用了不正确的变量类型或指令的次序不对又 如，循环中起终值不正确逻辑错误也可以产生运行错误 通常，逻辑错误不会产生错误提示信息，需要程序员仔 细地阅读分析程序 15.2VB6.0系统调试工具 15.2.1设置自动语法检测 在VB集成开发环境 中，选择“工具”菜单 的“选项”命令，再在 打开的“选项”对话框 中选“编辑器”标签， 15.2.2VB调试工具 Visual Basic 的调试包括：断点、中断表达式、监视表 达式、通过代码一次经过一个语句或一个过程、显示变 量和属性的值 1、调试工具栏 15.3调试和排错方法 15.3.1VB的三种工作模式 设计模式、运行模式和中断模式 15.3.2控制程序的运行 1启动对象及控制程序的运行 （1）逐语句运行 （2）逐过程运行 （3）从过程中跳出 2设置断点 15.3.3程序调试窗口 有三个调试窗口，它们是：“立即”窗口、“监视”窗口、 和“本地”窗口可单击视图菜单中的对应命令打开这些窗口 （1）“立即”窗口 显示代码中正在调试的语句所产生的信息，或直接往 窗口中键入的命令所请求的信息。

（2）在中断模式下，可自动显示出所有在当前过程 中的变量声明及变量值单击调试工具栏上的“本地窗 口”按扭或选择“视图”菜单的“本地窗口”显示），如 图15-8所示 （3） “监视”窗口显示当前的监视表达式，在代码运行 过程中可决定是否监控这些表达式的值 例15.1、调试第六章例6.4传值、传址例题，观察变量的虚实 结合过程 15.4出错处理 所谓错误处理，就是允许编写的应用程序对错误进行响应 当一个错误发生了，程序能捕捉到这一错误，并可按程序设 计者事先设计的方法来处理这一错误常规下通过以下步骤在 应用程序中增加指令捕捉和处理运行错误： 1、设置错误陷阱 在程序适当的地方加入一些语句来捕捉错误，一旦错误发 生，程序的运行将转移到错误处理程序，根据所捕获到的错误 代码告诉应用程序应当怎样操作 2、编写错误处理程序 当程序中出现运行错误时，程序的运行将转到错误处理程 序，错误处理程序根据可预知的错误类型决定采取何种措施 1 设置错误陷阱 使用On Error语句可设置陷阱，捕捉错误On Error语句 有如下形式： (1)OnErrorResumeNext 发生错误时，忽略错误行，继续执行下一语句。

(2)OnErrorGoTo语句标号 发生错误时，使程序转跳到语句标号所指示的程序块 (3)OnErrorGoTo0 表示当发生错误时，不使用错误处理程序块 2编写错误处理程序 编写错误处理程序一般要使用到Err 对象，它是一个系统 对象，可以通过Err对象来获取错误的消息当出现VB错误 时，有关错误的信息存储在Err对象中Err对象每次只维护 一个错误的信息当出现新的错误时，Err对象将更新为新 的错误信息 Err 对象的缺省属性是Number属性当运行时错误发生时， Err对象的属性被填入明确识别错误的信息以及处理这个错 误所使用的信息 当On Error捕捉到错误后，Err对象的属性Number指示对应 错误号在错误处理程序块中可使用“Select Case Err.Number”或“If Err.Number = ”语句编写出错处理 例如，下面的Test过程是Number属性在错误处理过 程中的典型用法 Private Sub test() On Error GoTo out Dim x, y x = 1 / y 引发一个“除以零”的错误 Exit Sub out: MsgBox Err.Number MsgBox Err.Description 检查是否发生“除以零”的错误 If Err.Number = 11 Then y = y + 1 End If Resume End Sub 3退出错误处理 在错误处理程序中，当遇到 Exit Sub、Exit Function、 End Sub、End Function等语句时，将退出错误捕获。

在错误处理程序结束后，要恢复原有的运行可用Resume 语句 语法： （1）Resume 重新执行产生错误的语句 （2）Resume Next 重新执行产生错误的语句的下一语句 （3）Resume 语句标号 从语句标号初恢复执行 一般来说，一些可以修正的错误，可使用 Resume， 而在错误处理程序不能修正错误时使用 Resume Next或 Resume 语句标号 例15.2 编写一个判断一个给定的文件是否存在的函数 ，并能处理无效驱动器或软盘驱动器没有磁盘等设备出错 问题 例15.3 编写简单的错误处理程序处理当在文本中输 入数据超过整型数的最大值32767时给出错误提示，并可 重新输入 15.5生成执行文件和制作安装程序 15.5.1生成执行文件 从“文件”菜单中选取“生成projectname.exe”，将打开 “生成工程”对话框，如图15-17所示这里 “projectname” 是工程的应用程序名 15.5.2使用安装向导创建安装程序 为应用程序制作安装程序，打包是创建一个软件包的 操作，该软件包可以将你的应用程序安装到用户的计算机 上软件包由一个或多个.CAB文件组成，文件中包含了用 户安装和运行应用程序所需的被压缩的工程文件和任何其 他必需的文件。

这些文件可能包括安装程序、辅助的.CAB 文件、或其他必需的文件这些附加的文件根据你创建的 软件包类型不同而不同 以一个VB工程为例，演示打包和展开应用程序 15.5.3检测安装程序 。