第12章 vb

Leabharlann 12.1.2 程序的调试和排错



例如，用户想打印出每次递归后的函数结果， 可以在递归代码里输入： Debug.Print "第"; i; "次递归的结果"; myResult 运行结果如图12-4所示。 在中断模式时，可以直接激活立即窗口，在其 上打印或者计算表达式的值。输入如图12-5所 示的语句，按回车键即可打印出r和lngNum的 值。

12.1.3 错误处理和条件编译
2. 错误处理 实际上硬件出的问题或用户出乎意料的 操作都会造成运行时错误，这些错误会 使代码终止，而且通常无法恢复应用程 序的运行。其他的一些错误也许不会中 断代码，但是这些错误可能使代码产生 意想不到的操作。
2. 错误处理
例如，用户可以在上例的代码中加入下面的代 码，从而使代码能够处理无效驱动器或空软盘驱 动器等诸如此类的装置问题： Function FileExists(FileName) As Boolean Dim Msg As String '如果检测到任何一个错误，则开始捕获错误，从而响 应错误处理程序 On Error GoTo CheckError FileExists = (Dir(FileName) <> "") Exit Function '如果未出现错误，则避免使用错误处 理程序 CheckError: '如果出现错误，则在此分支

3. 条件编译
下面将详细讨论如何按照以上三个步骤设计错 误处理代码。 1）设置错误捕获 当Visual Basic执行On Error语句时会激活错误 捕获，并使应用程序指向用户设计的错误处理 程序。 2）编写错误处理例程 书写错误处理例程的第一步是添加行标签，标 志着错误处理例程开始。 Err对象的Number属性包含有数值代码，代码 代表最新的运行时错误。借助Err对象与Select Case或If...Then...Else语句的组合，这样，用 户可对出现的任何错误采取针对性的操作。

3. 条件编译
在这三种情况中，用户可使用以下Function过程 捕获这些错误并返回Null： 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:
第12章 调试与帮助
本章要点 在应用程序中查找并修改错误的过程称之为调试。为 了分析应用程序的操作方式，Visual Basic提供了几 种调试工具。这些调试工具不但对查出错误根源特别 有用，而且还能用来尝试着改变应用程序，或用来了 解其他应用程序的工作方式。 本章将介绍如何使用Visual Basic中的调试工具，以 及如何处理在运行时产生的运行时错误，这类错误往 往是由于试图完成无效操作而造成的。 本章重点 （1）使用Visual Basic调试工具。 （2）Err对象属性与方法的应用。 （3）对程序错误的处理。
12.1.1 错误的类型
图12-2 编译错误提示窗口
12.1.1 错误的类型
3. 运行错误 运行错误指Visual Basic在编译通过后，运行代 码时发生的错误。这类错误往往是由指令代码 执行了一非法操作引起的，如类型不匹配、试 图打开一个不存在的文件等。 4. 逻辑错误 程序运行后，得不到所期望的结果，这说明程 序存在逻辑错误。
3. 条件编译


当Visual Basic生成“磁盘未准备”的错 误时，代码显示一段信息，通知用户选 择两个按钮中的其中一个：“确定”或 “取消”。 错误处理程序是应用程序中捕获和响应 错误的例程。用户对于预感可能会出错 的任何过程均要添加错误处理程序。
3. 条件编译
设计错误处理程序的进程包括三步： （1）当错误发生时，通知应用程序在分支 点（执行错误处理例程的地方）设置或 激活错误捕获。 （2）编写错误处理例程。 （3）退出错误处理例程。

第12章 调试与帮助

12.1 程序的调试 12.2 帮助的使用
12.1 程序的调试

12.1.1 错误的类型 12.1.2 程序的调试和排错 12.1.3 错误处理和条件编译
12.1.1 错误的类型
1. 语法错误 当用户在代码窗口编辑代码时，Visual Basic会对程序直接进行语法检查，当发 现程序中存在语法错误，如语句没输入 完、关键字输入不正确等，Visual Basic 会弹出一个子窗口，提示出错信息，如 图12-1所示。
1）Err对象的属性
（3）HelpFile：返回或设置一个字符串表达式， 表示帮助文件的完整限定路径。可读/可写。 （4）HelpContext：返回或设置一个字符串表达 式，包含 Microsoft Windows 帮助文件中的主 题的上下文ID。可读/可写。 （5）Source：返回或设置一个字符串表达式， 指明最初生成错误的对象或应用程序的名称， 即错误来源。可读/可写。
2. 错误处理
ElseIf Err.Number = mnErrDeviceUnavailable Then Msg = "This drive Or path does not exist：" Msg = Msg & FileName MsgBox Msg, vbExclamation Resume Next Else Msg = "Unexpectederror #" & Str(Err.Number) Msg = Msg & "occurred：" & Err.Description '用“Stop”信号灯图标和“确定”按钮显示消息框 MsgBox Msg, vbCritical Stop End If Resume End Function
2）Err对象的方法
Err对象的方法有： （1）Clear方法：清除 Err 对象的所有属性设置。 语法： 对象.Clear 对象在这里总是Err对象。 （2）Raise 方法：产生运行时错误。 语法： 对象.Raise number, source, description, helpfile, helpcontext
2. 错误处理
'定义常数以表示固定的Visual Basic错误代码
Const mnErrDiskNotReady = 71, mnErrDeviceUnavailable = 68 'vbExclamat On、vbOK、vbCancel、vbCritical和vbOKCancel是 '定义在Visual BasicA类型库中的常数 If (Err.Number = mnErrDiskNotReady) Then Msg = "Put a flOPPY d主sk土n the drive" Msg = Msg & "and Close the door．" '显示具有感叹号图标以及“确定”和“取消”按钮的消息框 If MsgBox(Msg, vbExclamation & vbOKCancel) & _ vbOK Then Resume Else Resume Next End If
12.1.1 错误的类型
图12-1 语法错误提示窗口
12.1.1 错误的类型
2. 编译错误 编译错误指单击了“启动”按钮，Visual Basic开始运行程序前，先编译执行程序 段时产生的错误。此类错误是由于用户 未定义变量、遗漏关键字等原因而产生 的。这时，Visual Basic 也会弹出一个子 窗口，如图12-2所示，提示出错信息。

3. 条件编译
3）退出错误处理例程 FileExists函数示例使用错误处理程序内 的Resume语句重新执行最初导致错误的 那条语句，使用Resume Next语句执行 返回到出错语句之后的那条语句，还有 其他退出错误处理例程的方法。
3. 条件编译
例如，在以下代码示例中，Function过程用错 误处理来对参数施行“安全”除法，却不揭示 可能发生的错误。当施行除法时，可能产生的 错误有： （1）被零除：分子非零，但分母为零。 （2）溢出：分子和分母都为零（在浮点除法 中）。 （3）非法的过程调用：分子或分母不是数值 （或不能认为是数值）。
12.1.2 程序的调试和排错
1. 调试工具 Visual Basic提供了一组调试程序的工具， 通过调试工具在运行中及时追踪变量的 值或控件的属性进行分析，从而得到错 误的代码并进行程序排错。
12.1.2 程序的调试和排错
可单击“视图”菜单中的对应命令打开这三种 窗口，这三种窗口对调试程序有很大作用。 1）立即窗口 立即窗口（Immediate Windows）是在调试状 态下最常使用的窗口，在此窗口可以允许用户 在调试程序时，执行单个的过程、对表达式求 值，或者给变量、属性赋予新的值，也可以在 该窗口中显示或者计算变量和表达式的值。
12.1.2 程序的调试和排错
2. 使用中断模式调试 中断模式可随时中止应用程序的执行， 并提供有关应用程序的运行情况。因为 变量和属性设置值被保留下来。所以， 用户可以藉此分析应用程序的当前状态 并对内容进行修改，这些修改将影响应 用程序的运行。
12.1.2 程序的调试和排错
1）在有问题的语句处进入中断模式 进入中断模式后，在Visual Basic的标题 栏显示“[break]”的字样，如图12-9所示。
12.1.2 程序的调试和排错
4）使用断点中断程序的执行 在运行时，一个断点会在执行一行代码之前告 诉Visual Basic中止运行。当Visual Basic正在运 行一个过程并遇到一行具有断点的代码时，它 就切换到中断模式。用户可在中断模式下或设 计时，设置或删除断点。 5）使用Stop语句 在过程中放置一条Stop语句是设置断点的一个 变通方法。每当Visual Basic遇到Stop语句时， 这条语句就中止执行并切换到中断模式。