调试与错误分类

为了防止上述情况的发生，就需要在该
程序中加入错误捕获和处理程序，提高程序
的可靠性。这样当出现任何异常时，程序会
向用户提示，不再因此而异常退出。
演示char9.3.1
34
程序代码设计
Private Sub Form_Load() '设置控件的有效状态 Drive1.Enabled = True Dir1.Enabled = True File1.Enabled = True '设置过滤器 File1.Pattern = "*.exe" '设置控件的初始驱动器 Drive1.Drive = "c:\"
End Sub
38
9.3.2 设计错误处理程序的三个步骤
1.捕获错误，并强制程序跳转 即在发生错误时，捕获错误将告知应用程序转 向哪段代码进行错误处理。VB语句通常可采用On Error GoTo 语句启用错误捕获机制。如果出现运 行时错误，即可借助On Error GoTo 语句，强制程 序跳转到指定的标记处。需要注意的是， On Error GoTo 语句只能在一个过程内部跳转，并且 在一个过程中一次只能启用一个错误捕获。如果要 使错误捕获失效，因可使用On Error GoTo 0 之类 的语句。
26
使用MsgBox语句的调试技巧示例
设计一个将小写金额转换为大写金额的简化 转换程序，将输入的用数字表示的金额转换为 有汉字表示的大写金额。 Private Sub form_click() '本程序将根据MyNumber的值返回大写数值 Dim Mstr(9) As String Dim MyNumber As String Dim Lstr As String Dim i, j As Integer Dim Convert As String
31
9.3 错误捕获及处理方法
1.没有错误捕获及处理过程的程序执行 效果
演示char10.2.1 正确情况下。程序不会出现任何错误，单 如果指定的驱动器是软盘驱动器时。则只 有驱动器内有磁盘且驱动器关闭时，该程 序才能正确执行，否则产生“设备不可用” 之类的错误使程序终止执行。
32
33
2. 加入错误捕获及处理过程的程序执行效果
29
P226 习题 一、问答题
3. 简述常用的程序调试技巧。 答： 1）事先做好备份； 2）分离受怀疑的程序； 3）缩小搜索范围； 4）使用MsgBox语句。
30
P226 习题 一、问答题
4. 简要说明VB程序调试的主要方法和工具。
答：VB 程序调试的主要方法：用编译器提示错误； 使用调试工具来发现和改正错误；采用常用的调 试技巧，如事先做好备份，分离受怀疑的程序， 缩小搜索范围，使用MsgBox语句等。 主要工具：“调试”菜单下的“逐语句”、“逐过 程”、“跳出”、“运行到光标处”、“添加监 视”、“快速监视”、“切换断点”等子菜单项。
10
9.2 程序调试方法
VB本身不能改正错误，但它提供了 一些调试工具辅助程序员查找，分析错 误。有了调试工具，程序员就能够深入 到应用程序内部，彻底地了解发生了什 么，以及为什么会发生。
11
9.2.1 用编译器提示错误
VB集成环境提供了“自动语法检测”功 能，可以在程序员编写程序时自动检测和提 示语法错误。如果使用了该选项，那么程序 员每书写完一行语句并键入回车符时，VB编 译器就会解释该行语句。当发现错误时，就 会加亮显示出现语法错误的语句并显示一个 消息框来解释错误原因并提供帮助，以方便 程序员更正错误。 在“工具”菜单上，单击“选项”子菜 单，可以设置或消除“自动语法检测”选项。
2
3
9.1.2 实时错误
实时错误是指应用程序出现期间，一 条语句试图执行一条不可能执行的操作而 生的错误。例如下面的语句：
Private Sub Form_Load() x = 0: y = 100 Print y / x End Sub
这段语句在语法上是正确的，VB编译 器不能检测出错误，因此不会产生编译错 误。但等到实际运行时，当除数Number等 于0时，就会出现实时错误。
28
For i = 1 To Len(MyNumber) '从高位到低位逐位取输入数字 j = Val(Mid(MyNumber, i, 1)) '用MsgBox提示当前的数字 MsgBox "当前的数字是：" + Str(j) '取当前数字对应单位左边的字串 Lstr = Mid(MyNumber, i) '从高位到低位逐位转换成汉语大写字符 Convert=Convert+Mstr(j)+Mid(MUnit,Len(Lstr),1) '用MsgBox提示从高位到低位转换的结果 MsgBox "转换后的字符串是：" + Convert Next i End Sub
4
5
9.1.3 逻辑错误
逻辑错误是指程序的运行结果和程
序员是设想有出入时产生的错误。这类
错误并不导致程序在编译期间出现错误， 较难发现，验证程序是否存在逻辑错误 的唯一方法就是将运行结果与设计方案 进行对照比较。比如你想用以下格式显
示一段诗：
6
Байду номын сангаас 7
程序员用下列语句实现上述设计： Private Sub Form_Load() MsgBox "床前明月光，疑是地上霜；" + _ "举头望明月，低头思故乡。", vbOKOnly, _ "静夜思" End Sub结果出现逻辑错误。
16
P226 习题 二、程序设计题
1.程序调试。 （3）修改后的程序：
17
P226 习题 二、程序设计题
1.程序调试。 （4）程序修改后运行结果：
18
9.2.2 使用调试工具来发现和改正错误
利用VB提供的调试工具，除了可以完成 断点设置、中断表达式、监视表达式、单步 执行、显示变量和属性值外，还能够在实现 应用程序处于中断模式时进行编译、设置下 一条执行语句，进行过程测试等功能。 “调试工具”菜单如下：
25
可供参考的调试技巧：
3.缩小搜索范围 如果有可能的话，可删除工程中任何第三方控件 和自定义控件，或者看来与问题无关的代码，逐 步缩小搜索范围。或者采用相反的策略，先调试 某一段代码或窗体，再像搭积木似的逐步扩大调 试范围。 2.使用MsgBox语句 如果怀疑程序的错误是由于执行路径或者变量的 值不正确等原因造成的，除了采用设置断点的方 法进行调试以外，还可以借助于MsgBox语句。即 在程序运行的关键点上插入一系列的语句，用来 展示程序的运行路径和这样变量的值。
27
Mstr(0) = “零”:Mstr(1) = “壹”:Mstr(2) = “贰” Mstr(3) = “叁”:Mstr(4) = “肆”:Mstr(5) = “伍” Mstr(6) = “陆”:Mstr(7) = “柒”:Mstr(8) = "捌 " Mstr(9) = "玖" MUnit = "元拾佰仟万拾佰仟亿拾佰仟" MyNumber = InputBox(“请输入一个数字”, _ "输入数字")
End Sub
35
程序代码设计
Sub Dir1_Change()
'改变目录 File1.Path = Dir1.Path End Sub
36
程序代码设计
Private Sub Drive1_Change() On Error GoTo CheckError ’改变驱动器 Dir1.Path = Drive1.Drive Exit Sub CheckError: 错误代码处理 FileExixts = False Mystr = "发生了以下错误：" + Err.Description Mystr = Mystr + vbCr + "错误号是：" + Str(Err.Number) Mystr = Mystr + vbCr + "你输入的文件路径：" + Dir1.Path MsgBox Mystr, vbQuestion, "错误捕获与处理演示" End Sub
19
20
调试菜单各功能项的主要含义
1.逐语句：每按一次F8键，应用程序就执 行一条语句，因此也称单步执行。是一 种常见的调试方法。如果程序调用了另 一个过程，逐语句也会执行该过程中的 每一行。 2.逐过程：与逐语句执行过程相似，但如 果程序调用了另一个过程，逐过程不会 进入该过程。 3.跳出：执行当前过程的其它部分，并在 调用该过程的下一 行语句处中断执行。
如果程序的运行结果和预想的不一样， 通常可在编辑器中浏览代码，查找并直 接修改可能产生问题的代码。但多数情 况下，即使是非常有经验的程序员也很 难一眼就找处错误，此时常用的方法就 是在程序运行的关键路径上设置一系列 断点，并重新启动应用程序。
24
可供参考的调试技巧：
1.事先做好备份 避免在程序调试过程中，被意外地修改、覆盖或 删除必要的代码部分。 2.分离受怀疑的程序 对于那些代码规模较大，窗口众多的程序而言， 如果能将错误的范围定位于某个窗体或某段代码， 则可以使用分离程序的调试方法。基本思路是找 出错误的代码行（块）或窗体，选择这些代码并 将其复制到一个新的工程中，最后运行新工程， 看一看是否还会出现同样的错误。这样就可以尽 可能地排除程序其它部分的干扰，提高调试效率。
21
调试菜单各功能项的主要含义
4.运行到光标处：执行程序，当下一条语 句为光标所在语句时，中断执行。 5.添加监视：添加对变量和表达式的跟踪， 以便在程序运行时，随时观察变量和表 达式的值。 6.编辑监视：在程序运行时，动态改变所 要监视的变量或表达式。 7.快速监视：主要用于快速查看光标后面 的变量的值。