程序调试与错误处理

本章主要内容 第9章 程序调试与错误处理 程序调试的主要任务：查找程序的错误和排除错误 VB程序中的错误类型 程序工作模式 程序调试

9.1 VB程序中的错误类型 三类错误类型：编译错误，逻辑错误和运行错误 1. 编译错误 编译错误是指在程序编译过程中出现的错误。通常是由于不正确书写代码而产生的。 如：关键字写错，遗漏标点符号，括号不匹配等。 举例： Foor t = 1 To 100 2. 运行错误 运行时的错误是指应用程序在运行期间执行了非法操作所发生的错误。 举例(“下标越界”): Dim D(20) As Integer, k As Integer For k=1 To 30 D(k)=k*K Next k

3. 逻辑错误 逻辑错误使程序运行时得不到预期的结果。这种程序没有语法错误，也能运行，但却得不到正确的结果。 例如，在一个算术表达式中，把乘号“*”写成了加号“+”，条件语句的条件写错，循环次数计算错误等 例如，要求10!，若采用： Private Sub Form_Load() Dim t As Integer For i=1 To 10 t=t*i Next i Show ：Print t End Sub 运行程序时输出的结果是0 通常，调试程序过程中所花的大部分时间和精力都在逻辑错误上

9.2 程序工作模式 三种工作模式：设计模式、运行模式和中断模式 9.2 程序工作模式 三种工作模式：设计模式、运行模式和中断模式 1．设计模式 在设计模式下，可以建立应用程序的用户界面，设置控件的属性，编写程序代码等 2. 运行模式 在运行模式下，可以测试程序的运行结果，可以与应用程序对话，还可以 查看程序代码，但不能修改程序 3. 中断模式 在中断模式下，可以利用各种调试手段检查或更改某些变量或表达式的值，或者在断点附近单步执行程序，以便发现错误或改正错误

在代码窗口中设置断点 例9.0 鼠标 单击

9.3 程序调试 9.3.1 静态检查与动态检查 程序调试一般包括静态检查和动态检查 静态检查程序的基本方法是逐行逐句地读程序，弄清楚每条语句的作用，预见每条语句和模块的执行结果，判断是否与预期结果相一致，这就是静态检查，也称人工检查。 静态检查无误后，就可以进行更有效的动态检查。通过上机调试来发现错误称为动态检查。 动态检查的基本方法是输入一组典型的数据来运行程序。程序对这些数据处理结果应是已知的，通过运行后实际结果和预想结果相比较，可以判断程序的正确性

9.3.2 使用VB调试工具 使用“调试”菜单或“调试”工具栏 1．切换断点 “切换断点”按钮用来设置断点 1．切换断点 “切换断点”按钮用来设置断点 2. 逐语句 逐条语句执行程序，每执行一条语句后就返回中断模式 如果执行的是过程调用的代码(如Call)，“逐语句”操作也会跟踪到被调过程中继续一条语句一条语句的执行 3. 逐过程 逐过程执行是以整个函数或过程为一个整体，一次执行。逐过程与逐语句一样，能够一条语句一条语句地执行代码。把被调用的函数或过程当作一个语句来看待 切换断点 逐过程 本地窗口 监视窗口 逐语句 跳出 立即窗口 快速监视

4. 跳出 单击“调试”工具栏上的“跳出”按钮，则VB将连续执行完该过程的其余部分，返回调用过程的下一条语句并回复中断模式 5. 本地窗口 显示当前过程中所有变量和活动窗体的所有属性值 Me代表当前窗体；单击“+”号或“-”号 6. 立即窗口 可以检查某个属性或者变量的值，也可以对表达式求值，或为变量或属性赋值等 7. 监视窗口 对用户定义的表达式进行监视 

例9.1 运行以下的窗体装载事件过程： Dim a% a% = 5: a = 5.4 c = 1 / (a - a%) End Sub 例9.1 运行以下的窗体装载事件过程： Private Sub Form_Load() Dim a% a% = 5: a = 5.4 c = 1 / (a - a%) End Sub  运行时出错，消息框提示发生“除数为零”的错误。 单击消息框中的“调试”按钮，即可进入中断模式，VB在代码窗口中用箭头指示发生错误的语句“C=1/(a-a%)”。 在立即窗口中键入以下命令来检查变量的值： ? a, a% ´?是Print的简写 出错前变量a的当前值为整数5，而不是5.4，故发生了“除数为零”的错误 例9.1

9.4 错误处理 对于某些可预见的错误，可以利用VB的错误处理程序捕获它，对其进行适当的处理，并使程序继续执行。这样就能够使开发的软件具有更强的适应性。 9.4.1 错误处理的步骤 (1) 利用Err对象记录错误的类型、出错原因等。 (2) 强制转移到用户自编的“错误处理程序段”的入口。 (3) 在“错误处理程序段”内，根据具体错误进行处理，如果问题有解决方法，则在处理后返回原程序某处继续执行，否则，停止程序执行

9.4.2 Err对象 Err对象是全局性的固有对象，用来保存最新的运行时错误信息，其属性由错误生成者设置 1. 主要属性 (1) Number属性：数值。范围为0～65535，保存错误号 (2) Source属性：字符串。指明错误产生的对象或应用程序的名称 (3) Description属性：字符串。用于记录简短的错误信息描述  2. 常用方法 (1) Clear方法：用于清除Err对象的当前属性值。 (2) Raise方法：产生错误，用于调试错误处理程序段。  例如，执行语句Err.Raise 55将产生55号运行时错误，即“文件已打开”错误

9.4.3 捕获错误语句(On Error) 使用On Error语句可以捕获错误，其语法格式如下： On Error 标号 通常，该语句放置在过程的开始位置。在程序运行过程中，当该语句后面的代码出错时，则程序就会自动跳转到标号所指定的程序行去运行 标号所指示的程序行通常为错误处理程序段的开始行  一个使用错误处理的示例： On Error GoTo ErrLine ‘以后出错时转移至ErrLine . . . ErrLine： ‘标号 . . . Resume ‘返回语句

9.4.4 退出错误处理语句(Resume) 当指定的错误处理完成后，应该控制程序返回到合适的位置继续执行。 返回语句Resume有三种用法： (1)Resume [0]：程序返回到出错语句处继续执行。 (2)Resume Next：程序返回到出错语句的下一语句。 (3)Resume 标号：程序返回到标号处继续执行。

错误处理流程 On Error GoTo 标号 …… 结束 标号： …… Resume 主程序 出错时转移 处理后返回 指定的位置 错误处理程序段 标号： 对错误进行处理 …… Resume

例9.3 错误处理程序示例 Private Sub Form_Load() 例9.3 错误处理程序示例 输入某个数，求该数的平方根。当用户输入负数时，使用On Error...Resume进行处理 Private Sub Form_Load() Dim x As Single, y As Single, i As String On Error GoTo errln '以下出错时转移到errln Show : i = "" ‘i 为实数标记 x = Val(InputBox("请输入一个数")) y = Sqr(x) ‘x 为负数时会出错 Print y; i : Exit Sub ‘显示及退出过程 errln: '标号 If Err.Number = 5 Then '本错误的错误码为5 x = -x '转换为正数 i = "i" '复数标记 Resume '返回 Else '其他错误处理 MsgBox ("错误发生在" & Err.Source & ", 代码为" & _ Err.Number & ", 即" & Err.Description) End End If End Sub 例9.3

程序运行时，当用户输入一个正数时，则显示出该数的平方根；如果输入的是一个负数，则因求负数的平方根(通过函数Sqr())而出错，此时会跳转到错误处理程序段。 在错误处理程序段中，先判断错误码，若是5(即发生求负数的平方根的错误)，则将该负数转换为正数，设置复数标记，然后执行Resume语句返回到原出错处继续执行。 如果发生的不是错误5，则显示有关信息后强制结束