第7章 程序调试

精品课件！
精品课件！
7.4.4 错误处理的步骤
使用VB错误调试工具进行错误处理的基本步骤是：
(1) 设置错误陷阱。 (2) 利用错误对象（Err）记录错误的类型、出错原因等。 (3) 强制转移到用户自编的“错误处理程序段”的入口。 (4) 在“错误处理程序段”内，根据具体错误进行处理。 如果有解决方法，在处理后返回原程序某处继续执行；否 则，停止程序执行。 [例7.2]错误处理程序示例。
7.4.2 设置错误陷阱
在应用程序代码中，使用On Error语句可以设置错 误陷阱。其语法格式如下： On Error Goto标号|Resume Next 其中，标号是以字母开头的任意字符序列，它必须 与本语句处于同一过程中。
设置错误陷阱有两种用法： （1）On Error Goto标号 通常，该语句放置在过程的开始位置。在程序运行过 程中，当该语句后面的代码出错时，程序会自动跳转到 标号所指定的程序行去运行。标号所指示的程序行通常 为错误处理程序段的开始行。 （2）On Error Resume Next
1．主要属性
(1) Number属性 本属性用于返回当前错误的错误代码，其值为整型数， 范围为0～65535。VB可以标识80多种错误，表7 – 2 列出了部分错误代码及其说明。
表7 - 2部分错误代码及其说明
错误代码 5 6 9 11 13 16 35 说明 无效的过程调用 溢出 下标越界 除数为零 类型不匹配 表达式太复杂 过程未定义 错误代码 53 57 61 68 71 76 380 说明 找不到指定的文 件 I/O设备错 磁盘已满 设备不可用 磁盘未准备好 路径找不到 无效的属性值
当程序出错时，忽略该错误，继续执行该语句的下一条 语句。
7.4.3 退出错误处理语句
当指定的错误处理完成后，应该控制程序返回到原程序 中合适的位置继续执行。返回语句Resume有三种用法： (1) Resume (2) Resume Next (3) Resume标号 程序返回到出错语句处继续执行。 程序返回到出错语句的下一语句。 程序返回到标号处继续执行。
调试工具
启动
中断 结束 切换断点 逐语句调试 逐过程调试 跳出 本地窗口 立即窗口 监视窗口
用
中断程序运行，进入中断模式。
途
启动窗体开始运行程序，初始化所有变量。
停止程序运行，返回到设计模式。 在代码窗口中确定一行，VB在该行中断程序的执行。 执行应用程序代码的下一个可执行语句，并可跟踪到过程中。 执行应用程序代码的下一个可执行语句，但不跟踪到过程中。 执行当前过程的其他部分，并在调用过程的下一行处中断执 行。 显示局部变量的当前值。 当应用程序处于中断模式时，允许执行代码或查询变量值。 显示选定表达式的值。
2．运行程序，观察初步执行结果
由于程序的输出采用Debug.Print的形式，所以输出结果是在立即窗 口中，如图所示。
3．在程序中设置断点，如图所示。
4．运行程序。程序在执行到断点时停止，此时循环只 执行了一次，打开本地窗口，如图所示。
7.4
错误处理
7.4.1 错误对象（Err）
Err是VB提供的用于错误捕捉的对象，可根据其属性 来实现错误的捕捉和处理。
(1) 监视表达式：监视表达式是否正确。
(2) 当监视值为真时中断：当监视表达式的值为“True”时产生中断。 这时，监视表达式也称为中断表达式。
(3) 当监视值改变时中断：当监视表达式的值或参数的值发生变化时 产生中断。
为了访问监视窗口，可选定“视图”菜单中的“监视窗口”命令，或 通过调试工具栏打开监视窗口，如图7.7所示。
快速监视
调用堆栈
当应用程序处于中断模式时，列出表达式的当前值。
当应用程序处于中断模式时，呈现一个对话框来显示所有已 被调用但尚未完成运行的过程。
7.2.3 跟踪调试
1．切换断点
“断点”通常安排在程序代码中能反映程序执行状况的
部位。VB程序一般都由若干个过程组成。在某些过程中设 置断点，就可对相关的过程进行跟踪检查，从而保证程序 每个组成部分的正确性。所以，在程序中设置断点，是检 查并排除逻辑错误和比较复杂的运行错误的重要手段。 四种设置断点的方法 :
4．跳出 当使用逐语句方式执行，进入被调用过程以后，如 果不想执行该过程的全部代码，选择“跳出”可以立即
回到调用该过程的语句的下一条语句。
7.2.4 使用调试窗口
调试窗口是VB的重要调试工具，在逐语句运行时可用调试窗 口监视表达式和变量的值。有三个调试窗口：本地窗口、立 即窗口和监视窗口。
1．本地窗口 “本地”窗口可显示当前过程所有局部变量的当前值（如 图）。 第一行的Me表示当前窗体，用鼠标单击Me前的加号，打开窗 体中各个控件对象的属性，即可查看各个属性的当前值。
(2) Source属性 返回错误产生的对象或应用程序的名称。本属性值为字 符串类型，如果当前应用程序没有发生错误，则返回空 字符串。 (3) Description属性 返回与当前错误代码相对应的错误信息描述。本属性值 为字符串类型。 2．常用方法 Clear方法 本方法用于清除Err对象的当前属性值。
7.2 程序调试
7.2.1 应用程序的工作模式
1．设计模式（“设计”）
用户创建应用程序的大部分工作是在设计模式下完成的。在此模式 下，用户可以设计窗体、绘制控件、编写代码，并使用“属性”窗 口来设置或查看属性值。此时，可以设置断点和创建监视表达式， 但不能运行代码或使用调试工具。
2．运行模式（“运行”）
(4) 在程序运行时，单击工具栏上的“中断”按钮，或选择“运 行”菜单中的“中断”，命令，或按Ctrl+Break键。
(5)当程序运行出现错误时，也会自动切换到中断模式。
7.2.2 调试工具
调试工具栏：专门用于程序调试
切换断点 逐过程
本地窗口 监视窗口 调用堆栈
逐语句
跳出
立即窗口 快速监视
表7 – 1 调试工具的用途
(1) 在代码中插入Stop语句，当程序运行到该语句处就会停下来， 进入中断模式。调试结束以后，再删除所有的Stop语句。
Stop语句的使用格式为： Stop
(2) 在代码窗口中，把光标移到要设置断点的那一行，选择“调 试”菜单中的“切换断点”命令（或按下快捷键F9）。
(3) 在代码窗口中，设置断点。见7.2.3节。
2．运行错误(Run Time Error)
运行错误是指并没有出现语法错误，而是在程序的运行
过程中，执行了非法操作而导致应用程序执行中断。 例如，用LoadPicture装载图形文件时，若指定的图形文 件不存在，除法运算中除数为0等。这类错误只有在程序运 行时才能被发现。出现这类错误时，系统将中止程序的运行， 显示相应的信息。
Debug.Print a(i);
这样也可以不必中断程序，在应用程序运行的同时，在立即窗口观察查 看的数据。除了可以在立即窗口输出变量或属性值外，也可以在立即窗 口给变量或属性赋新值。
3．监视窗口
监视窗口用于查看指定表达式的值。指定的表达式称为“监视表达 式”。监视表达式在设计模式时设置，选择“调试”菜单中的“添加 监视”命令，出现如图7.6所示对话框。 在“表达式”中输入要监视的表达式或参数名，在“上下文”区域中 选择参数或表达式所在的过程和模块名，然后在“监视类型”中选择：
应用程序运行时即进入运行模式。此时可以查看应用程序的工作状 况，但不能直接修改代码。
3．中断模式（“Break”）
中断模式，指应用程序没有运行结束而被中止。此时可以查看并修 改代码、检查或修改数据，也可以选择重新启动应用程序、结束运 行或从中止处继续运行。
进入中断模式的方法很多，常用的几种途径有：
3．逐过程 选择“调试”菜单的“逐过程”命令，或者单击“调试” 工具栏的“逐过程”按钮，也可以直接按Shift+F8键，就可以 进入逐过程方式执行。 逐语句方式和逐过程方式的区别是：逐语句方式一次只能 执行一条语句，如果当前语句是过程调用语句，则逐语句方式 将进入该过程并执行该过程中的第一条语句。逐过程方式每执 行一次，或是执行一条语句或是执行一个过程，这与当前语句 的内容有关。如果当前语句是一条普通语句，则逐过程方式和 逐语句方式是一样的；如果当前语句是一条过程调用语句，则 逐过程方式是一次执行完该过程，然后回到当前过程的下一条 语句。
a(i) = Int(Rnd * 100) + 1
Debug.Print a(i); Next i Debug.Print j = 1: k = 5
调试过程如下： 1．分析程序结构
程序在声明部分声明了两个数组，显然数组a用于存放原序列，数 组 b 用于存放新生成的序列。程序中采用了三个 For 循环，第一个 For循环的功能是利用随机函数生成10个随机数，存放到a数组，作 为原序列。第二个For循环的功能是对原序列重新排列。第三个For 循环的功能是输出排列后的新序列。
3．逻辑错误(Logic Error)
逻辑错误是指程序既没有语法错误也没有运行错误，而是由 于程序代码未能实现预定的处理要求而导致了错误的运行结果。
产生这类错误的原因很多，例如算法不正确、变量没有初始 化、运算符使用不正确、循环条件错误等。减少这类错误的办法 是积累编程经验，养成良好的程序设计风格，使用结构化、模块 化的程序设计方法，并提高程序的可读性。这样既可以减少程序 的出错概率，增加程序的可靠性和可维护性，又提高了程序的质 量并且方便调试。
图7.6
图7.7
Байду номын сангаас
7.3 程序调试示例
[例7.1]下面程序的功能是把一个正整数序列重新排列。新序列 的排列规则是：奇数排在系列左边，偶数排在序列右边，排列
时，奇、偶数依次从序列两端向序列中间排放。
Option Explicit Option Base 1 Private Sub Form_Click() Dim a(10) As Integer, i As Integer, j As Integer Dim b(10) As Integer, k As Integer For i = 1 To 10 For i = 1 To 10 If a(i) Mod 2 = 0 Then b(j) = a(i) j=j+1 Else b(k) = a(i) k=k+1 End If Next i For i = 1 To 10 Debug.Print b(i); Next i End Sub