第9章调试与错误处理
一、问答题
1.请思考如何避免错误。
答：1）事先精心设计应用程序，描述清楚相关事件以及代码响应每一事件的方法，为每一事件过程和每个普通过程都指定一个特点的、明确的目标。
2）多加注释。如果用注释说明每个过程的目的，在以后分析代码时，能更深入地理解这些代码。
3）对过程中用到的每个变量或对象都应该在过程开始部分加以定义。
4）在应用程序中对变量和对象提出一种前后一致的命名方案。
2．请简要设计错误处理程序的三个步骤。
答：1）捕获错误，并强制程序跳转
2）编写错误处理程序
3）退出错误处理程序
3．简述常用的程序调试技巧。
答：1）事先做好备份；
2）分离受怀疑的程序；
3）缩小搜索范围；
4）使用MsgBox语句。
4．简要说明VB程序调试的主要方法和工具。
答：VB 程序调试的主要方法：用编译器提示错误；使用调试工具来发现和改正错误；采用常用的调试技巧，如事先做好备份，分离受怀疑的程序，缩小搜索范围，使用MsgBox语句等。
主要工具：“调试”菜单下的“逐语句”、“逐过程”、“跳出”、“运行到光标处”、“添加监视”、“快速监视”、“切换断点”等子菜单项。
5．VB程序错误大体可分为哪几种，它们的含义是什么？
答：VB程序错误大体分为三种：编译错误、实时错误和语法错误。
编译错误是在编写程序时书写了有错误的语法的代码，导致VB编译器无法正确解释源代码而产生的错误，也称语法错误。实时错误是指在运行期间，一跳语句试图执行一条不可能执行的操作而产生的错误，也称运行时错误。逻辑错误是指程序的运行结果和程序员的设想有出入时产生的错误。
6．请说明On Error GoTo 与On Error Resume Next 的区别。
答：On Error GoTo 行标识符语句：当发生错误时，使用该语句强制改变程序的执行方向。而On Error Resume Next 语句：当发生错误时，VB程序将忽略引发错误的语句，并继续执行下一条语句。
二、程序设计题
1．程序改错。以前面学到的冒泡排序算法为例，开发以下程序，请上机练习排除其中的错误。
１
调试结果：
Private Sub Command1_Click()
Dim A(1 To 20) As Integer
Dim c, j As Integer
Dim T As String
'随机生成一组数据
For c = 1 To 20
A(c) = Int(Rnd * 100)
Next c
'排序
For c = 1 To 20
For j = c + 1 To 20
If A(c) > A(j) Then
T = A(j)
A(j) = A(c)
A(c) = T '将原来的A(j) = T修改为A(c)=T
End If
Next
Next
'在窗体上输出结果
Cls
For c = 1 To 20
Print A(c) ' 将原来的Print A(i)修改为Print A(c)
Next c
End Sub
2．错误处理。按下图设计一除法程序，请使用On Error GoTo 语句对除法程序进行处理，当出现除数为0或其他异常情况时，使用MsgBox提示错误信息。
程序代码：
Private Sub Command1_Click()
On Error GoTo ErrLB
Text3.Text = Trim(Str(Val(Text1.Text) / Val(Text2.Text)))
Exit Sub
ErrLB:
２
Dim strMsg As String
strMsg = "运算过程出现了如下错误：" + vbCr
strMsg = strMsg + "错误号是：" + Trim(Str(Err.Number)) + vbCr strMsg = strMsg + "错误描述是：" + Err.Description
MsgBox strMsg, vbQuestion + vbOKOnly, "错误提示"
Text2.SetFocus
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
３