习题十一及答案
习题十一
1．简答题
（1）Visual Basic有哪几种工作模式？
（2）Visual Basic中错误类型有哪几种？
（3）简要说明VB程序调试的主要方法和工具。
（4）“立即”窗口、“监视”窗口和“本地”窗口有什么区别？
2．判断题
（1）在VB集成环境中只有运行程序才能发现程序错误。 ( )
（2）设置错误的捕捉陷阱，指在程序中可能出现错误的地方放置捕捉语句来捕获产生错误的语句。 ( ) （3）On Error Resume Next语句的功能是忽略错误，继续往下执行。 ( )
（4）VB程序中出现编译错误时，不会产生错误提示。 ( )
3．选择题
（1）当语句不符合文法规则时，出现的错误是（）。
A）逻辑错误 B）运行时期错误 C）语法错误 D）以上都不对
（2）下列陈述中正确的是（）。
A）中断点只能在设计过程中设置。
B）中断点只能在执行过程中设置。
C）中断点可以在设计过程或在执行过程中设置。
D）中断点可以在设计过程中设置，也可以在执行过程或中断过程中设置。
（3）下列属性中，属于Err对象的有（）。
A） Number B） Caption C） Description D） Text
4．填空题
（1）设置断点的快捷键是。
（2）VB单步执行的快捷键是。
（3）错误码为11时表示发生的错误是。
5．编写一段程序，如果出现数组下标越界时，则给出错误的描述并结束程序的运行。
习题十一参考答案：
一、简答题
1．Visual Basic有哪几种工作模式？
（1）设计模式
启动Visual Basic后，即进入设计模式，在主窗口标题栏上显示“设计”字样。建立一
个应用程序的所有步骤基本上都在设计模式下完成，包括窗体设计、建立控件、编写程序代
码以及利用属性窗口设置属性值或查看当前属性值等。但在设计阶段不能执行程序，也不能
使用调试工具，只可设置断点。
应用程序可以直接从设计阶段进入运行阶段，但不可以进入中断模式。
（2）执行模式
执行“运行”菜单中的“启动”命令（或按下F5键、或单击工具条上的“启动”按钮），
即进入执行模式，此时标题栏上原来显示“设计”的地方已被“运行”字样所代替。当整个
应用程序进入运行阶段后，开始执行程序代码。在运行阶段只可以执行代码，不能修改代码。
（3）中断模式
进入中断模式后，主窗口标题栏上显示“Break”字样。在中断模式下，可以在没有运行结束的情况下中止应用程序，此时可以检查程序代码，并进行修改，也可以检查数据是否正确，修改完后，可继续执行程序。Visual Basic所有调试手段均可以在中断模式中运用。2．Visual Basic中错误类型有哪几种？
在Visual Basic 编程中，可能遇到的错误类型有三种：
（1）编译错误
编译错误是由于不正确的使用代码造成的，如输入关键字不正确、函数或过程调用方式不正确、循环语句For...Next不配套等，这些错误非常容易发现并排除。VB有自动语法检查功能，如果出现语法错误会提醒用户注意。
（2）运行错误
运行错误是由于语句试图执行一个不可能的操作引起的，最常见的如被零除、试图打开的文件不存在等错误。这类错误是可以捕获的，可以由VB检测出来。要处理这些错误需要使用VB的错误处理语句。
（3）逻辑错误
逻辑错误是由于对程序如何运行的错误理解而导致的错误，它使程序产生不正确或是与预期结果不同的结果。逻辑错误不能被VB检测出来，然而却在所有错误中占据很大的比例。这种错误非常隐蔽，也是程序调试中最难发现和处理的。程序开发人员必须使用VB提供的各种调试工具找到出错的地方，这通常是一个繁琐枯橾的过程，有时甚至不得不逐句检查。3．简要说明VB程序调试的主要方法和工具。
程序调试的主要方法有：跟踪程序运行、设置断点和使用调试窗口等。
调试工具主要包括：切换程序模式、设置和取消断点、逐语句或逐过程调试、监视变量和表达式的值等。
4．“立即”窗口、“监视”窗口和“本地”窗口有什么区别？
在立即窗口中输入可执行代码后将立即执行并得到结果。程序处于中断模式时，立即窗口可显示代码中正在调试的语句所产生的信息。
“本地”窗口的功能是在中断模式下，显示当前过程的所有变量和活动窗体的所有属性的值，并可以改变它们。
监视窗口用于查看监视表达式的值。
二、判断题
(1) ╳
(2)╳
(3) √
(4) ╳
三、选择题
（1）C (2) D (3) A C
四、填空题
(1) F9 (2) F8 或SHIFT + F8 (3) 某数被0除
五、编写一段程序，如果出现数组下标越界时，则给出错误的描述并结束程序的运行。Private Sub Command1_Click()
Dim a(10) As Integer, i As Integer
On Error GoTo ww '设置错误陷阱For i = 1 To 11
a(i) = i
Next i
Print "****************"
Exit Sub '错误处理代码ww:
If Err.Number = 9 Then
MsgBox "数组下标越界！", 16, "错误"
End If
Resume aa
aa:
End
End Sub
