调试与错误处理.docVIP

第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 ３