1、全国计算机等级考试二级 VISUAL+BASIC 真题 2011 年 9 月及答案解析(总分：92.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列叙述中正确的是( )。（分数：2.00）A.算法就是程序B.设计算法时只需要考虑数据结构的设计C.设计算法时只需要考虑结果的可靠性D.以上三种说法都不对2.下列关于线性链表的叙述中，正确的是( )。（分数：2.00）A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素D.以上三种说法都不对
2、3.下列关于二叉树的叙述中，正确的是( )。（分数：2.00）A.叶子结点总是比度为 2 的结点少一个B.叶子结点总是比度为 2 的结点多一个C.叶子结点数是度为 2 的结点数的两倍D.度为 2 的结点数是度为 1 的结点数的两倍4.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。（分数：2.00）A.学生成绩管理系统B.C 语言编译程序C.UNIX 操作系统D.数据库管理系统5.某系统总体结构图如下图所示：（分数：2.00）A.B.C.D.6.程序调试的任务是( )。（分数：2.00）A.设计测试用例B.验证程序的正确性C.发现程序中的错误D.诊断和
3、改正程序中的错误7.下列关于数据库设计的叙述中，正确的是( )。（分数：2.00）A.在需求分析阶段建立数据字典B.在概念设计阶段建立数据字典C.在逻辑设计阶段建立数据字典D.在物理设计阶段建立数据字典8.数据库系统的三级模式不包括( )。（分数：2.00）A.概念模式B.内模式C.外模式D.数据模式9.有三个关系 R、S 和 T 如下：（分数：2.00）A.B.C.D.10.下列选项中属于面向对象设计方法主要特征的是( )。（分数：2.00）A.继承B.自顶向下C.模块化D.逐步求精11.以下描述中错误的是( )。（分数：2.00）A.窗体的标题通过其 Caption 属性设置B.窗体的名称
4、(Name 属性)可以在运行期间修改C.窗体的背景图形通过其 Picture 属性设置D.窗体最小化时的图标通过其 Icon 属性设置12.在设计阶段，当按 Ctrl+R 键时，所打开的窗口是( )。（分数：2.00）A.代码窗口B.工具箱窗口C.工程资源管理器窗口D.属性窗口13.设有如下变量声明语句：Dim a, b As Boolean则下面叙述中正确的是( )。（分数：2.00）A.a 和 b 都是布尔型变量B.a 是变体型变量，b 是布尔型变量C.a 是整型变量，b 是布尔型变量D.a 和 b 都是变体型变量14.下列可作为 Visual Basic 变量名的是( )。（分数：2.0
5、0）A.A#AB.4ABCC.?xyD.Print Text15.假定一个滚动条的 LargeChange 属性值为 100，则 100 表示( )。（分数：2.00）A.单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量B.滚动框位置的最大值C.拖动滚动框时滚动框位置的变化量D.单击滚动条箭头时滚动框位置的变化量16.在窗体上画一个命令按钮，然后编写如下事件过程；Private Sub Command1_Click()MsgBox Str(123+321)End Sub程序运行后，单击命令按钮，则在信息框中显示的提示信息为( )。（分数：2.00）A.字符串“123+321”B.字符串“4
6、44”C.数值“444”D.空白17.假定有以下程序：Private Sub Form_Click()a=1: b=aDo Until a=5x=a*bPrint b:xa=a+bb=b+aLoopEnd Sub程序运行后，单击窗体，输出结果是( )。（分数：2.00）A.1 12 3B.1 12 4C.1 13 8D.1 13 618.在窗体上画一个名称为 List1 的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在 List1 Click 事件过程中能正确实现上述功能的语句是( )。（分数：2.00）A.List1. RemoveItem List1
7、. TextB.List1. RemoveItem List1. ClearC.List1. RemoveItem List1. ListCountD.List1. RemoveItem List1. ListIndex19.列表框中的项目保存在一个数组中，这个数组的名字是( )。（分数：2.00）A.ColumnB.StyleC.ListD.MultiSelect20.有人编写了如下程序：Private Sub Form_Click()Dim s As Integer, x As Integers=0x=0Do While s=10000x=x+1s=s+x2LoopPrint sEnd S
8、ub上述程序的功能是：计算 s=1+22+32+n2+，直到 s10000 为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是( )。（分数：2.00）A.把 x=0 改为 x=1B.把 Do While s=10000 改为 Do While s=10000C.把 Do While s=10000 改为 Do while s10000D.交换 x=x+1 和 s=s+x2 的位置21.设有如下程序：Private Sub Form_Click()Dim s As Long, f As LongDim n As Integer, i As Integerf=1n=4For
9、 i=1 To nf=f*is=s+fNext iPrint sEnd Sub程序运行后，单击窗体，输出结果是( )。（分数：2.00）A.32B.33C.34D.3522.阅读下面的程序段：a=0For i=1 To 3For i=1 To iFor k=i To 3a=a+1Next kNext jNext i执行上面的程序段后，a 的值为( )。（分数：2.00）A.3B.9C.14D.2123.设有如下程序：Private Sub Form_Click()Clsa$=“123456“For i=1 To 6Print Tab(12-i);_Next iEnd Sub程序运行后，单击窗体
10、，要求结果如图所示，则应填入的内容为( )。（分数：2.00）A.B.C.D.24.设有如下程序：Private Sub Form_Click()Dim i As Integer, x As String, y As Stringx=“ABCDEFG“For i=4 To 1 Step-1y=Mid(x, i, i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为( )。（分数：2.00）A.ABCCDEDEFGB.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG25.设有如下程序：Private Sub Form_Click()Dim ary(
11、1 To 5)As IntegerDim i As IntegerDim sum As IntegerFor i=1 To 5ary(i)=i+1sum=sum+ary(i)Next iPrint sumEnd Sub程序运行后，单击窗体，则在窗体上显示的是( )。（分数：2.00）A.15B.16C.20D.2526.有一个数列，它的前 3 个数为 0，1，1，此后的每个数都是其前面 3 个数之和，即0，1，1，2，4，7，13，24，要求编写程序输出该数列中所有不超过 1000 的数。某人编写程序如下：Private Sub Form Click()Dim i As Integer, a
12、As Integer, b As IntegerDim c As Integer, d As Integera=0:b=1:c=1d=a+b+ci=5While d=1000Print d;a=b:b=c:c=dd=a+b+ci=i+1WendEnd Sub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是( )。（分数：2.00）A.把 While d=1000 改为 While d1000B.把 i=5 改为 i=4C.把 i=i+1 移到 while d=1000 的下面D.在 i=5 的上面增加一个语句：Print a;b;c;27.下面的语句用 Array 函数为数组
13、变量 a 的各元素赋整数值：a=Array(1，2，3，4，5，6，7，8，9)针对 a 的声明语句应该是( )。（分数：2.00）A.Dim aB.Dim a As IntegerC.Dim a(9) As IntegerD.Dim a() As Integer28.下列描述中正确的是( )。（分数：2.00）A.Visual Basic 只能通过过程调用执行通用过程B.可以在 Sub 过程的代码中包含另一个 Sub 过程的代码C.可以像通用过程一样指定事件过程的名字D.Sub 过程和 Function 过程都有返回值29.阅读程序：Function fac(ByVal n As Integ
14、er)As IntegerDim temp As Integertemp=1For i%=1 To ntemp=temp*i%Next i%fac=tempEnd FunctionPrivate Sub Form_Click()Dim nsum As Integernsum=1For i%=2 To 4nsum=nsum+fac(i%)Next i%Print nsumEnd Sub程序运行后，单击窗体，输出结果是( )。（分数：2.00）A.35B.31C.33D.3730.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，然后编写如下代码：Sub s(x
15、As Integer, y As Integer)Static z As Integery=x*x+zz=yEnd SubPrivate Sub Command1 Click()Dim i As Integer, z As Integerm=0z=0For i=1 To 3S i, Zm=m+zNext iLabell. Caption=Str(m)End Sub程序运行后，单击命令按钮，在标签中显示的内容是( )。（分数：2.00）A.50B.20C.14D.731.以下说法中正确的是( )。（分数：2.00）A.MouseUp 事件是鼠标向上移动时触发的事件B.MouseUp 事件过程中的
16、 x，y 参数用于修改鼠标位置C.在 MouseUp 事件过程中可以判断用户是否使用了组合键D.在 MouseUp 事件过程中不能判断鼠标的位置32.假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为 a1，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是( )。（分数：2.00）A.Private Sub Form_MouseDown(Button AS Intege, _Shift As Integer, X As Single, Y As Single)If Button=1 And Button=2 ThenPopupMenu a1En
17、d IfEnd SubB.Private Sub Form MouseDown(Button As Integeg_Shift As Integer, X As Single, Y As Single)PopupMenu a1End SubC.Private Sub Form MouseDown(Button As Intege_Shift As Integeg, X As Single, Y As Single)If Button=1 ThenPopupMenu a1End IfEnd SubD.Private Sub Form_MouseDown(Button As Integer, _S
18、hift As Integer, X As Single, Y As Single)If Button=2 ThenPopupMenu a1End IfEnd sub33.在窗体上画一个名称为 CD1 的通用对话框，并有如下程序：Private Sub Form_Load()CD1. DefaultExt=“doc“CD1. FileName=“c:/file1.txt“CD1.Filter=“应用程序(*.exe)|*.exe“End Sub程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是( )。（分数：2.00）A.应用程序(*.exe)B.*.docC.*.
19、txtD.不确定34.以下描述中错误的是( )。（分数：2.00）A.在多窗体应用程序中，可以有多个当前窗体B.多窗体应用程序的启动窗体可以在设计时设定C.多窗体应用程序中每个窗体作为一个磁盘文件保存D.多窗体应用程序可以编译生成一个 EXE 文件35.以下关于顺序文件的叙述中，正确的是( )。（分数：2.00）A.可以用不同的文件号以不同的读写方式同时打开同一个文件B.文件中各记录的写入顺序与读出顺序是一致的C.可以用 Input#或 Line Input#语句向文件写记录D.如果用 Append 方式打开文件，则既可以在文件末尾添加记录，也可以读取原有记录二、填空题(总题数：11，分数：2
20、2.00)36.数据结构分为线性结构与非线性结构，带链的栈属于_。（分数：2.00）填空项 1:_37.在长度为 n 的顺序存储的线性表中插入一个元素，最坏情况下需要移动表中 1 个元素。（分数：2.00）填空项 1:_38.常见的软件开发方法有结构化方法和面向对象方法。对某应用系统经过需求分析建立数据流图(DFD) ，则应采用 1 方法。（分数：2.00）填空项 1:_39.数据库系统的核心是 1。（分数：2.00）填空项 1:_40.在进行关系数据库的逻辑设计时，E-R 图中的属性常被转换为关系中的属性，联系通常被转换为 1。（分数：2.00）填空项 1:_41.为了使标签能自动调整大小以
21、显示标题(Caption 属性)的全部文本内容，应把该标签的 1 属性设置为True。（分数：2.00）填空项 1:_42.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()x=1Result=1While x=10Result=_x=x+1WendPrint ResultEnd Sub上述事件过程用来计算 10 的阶乘。请填空。（分数：2.00）填空项 1:_43.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()t=0:m=1:Su
22、m=0Dot=t+ (8) Sum=Sum+ (9) m=m+2Loop While (10) Print SumEnd Sub该程序的功能是，单击命令按钮，则计算并输出以下表达式的值：1+(1+3)+(1+3+5)+(1+3+5+39) 请填空。（分数：2.00）填空项 1:_44.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码：Private Sub Command1_Click()Dim M(10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Print M(2+M(x)End Sub程序运行后，单击命令按钮，输出
23、结果是_。（分数：2.00）填空项 1:_45.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim n As Integern=Val(InputBox(“请输入一个整数:“)If n Mod 3=0 And n Mod 2=0 And n Mod 5=0 ThenPrint n+10End IfEnd Sub程序运行后，单击命令按钮，在输入对话框中输入 60，则输出结果是_。（分数：2.00）填空项 1:_46.在窗体上画一个命令按钮，名称为 command1，然后编写如下程序：Private Sub Com
24、mand1_Click()Dim ct As StringDim nt As IntegerOpen “e:/stud. txt“ (13) Do While Truect=InputBox(“请输入姓名:“)If ct= (14) Then Exit Dont=Val(InputBox(“请输入总分:“)Write #1, (15) LoopClose #1End Sub以上程序的功能是，程序运行后，单击命令按钮，则向 e 盘根目录下的文件 stud. txt 中添加记录(保留已有记录)，添加的记录由键盘输入；如果输入“end”，则结束输入。每条记录包含姓名(字符串型)和总分(整型)两个数据
25、。请填空。（分数：2.00）填空项 1:_全国计算机等级考试二级 VISUAL+BASIC 真题 2011 年 9 月答案解析(总分：92.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列叙述中正确的是( )。（分数：2.00）A.算法就是程序B.设计算法时只需要考虑数据结构的设计C.设计算法时只需要考虑结果的可靠性D.以上三种说法都不对 解析：解折所谓算法是指解题方案的准确而完整的描述。是一组严谨地定义运算顺序的规则，并且每一个规则都是有效的，且是明确的，此顺序将在有限的次数下终止。算法不等于程序，也不等于计算方法。设计算法时不仅要考虑对数据对象的运算和操作，
26、还要考虑算法的控制结构。2.下列关于线性链表的叙述中，正确的是( )。（分数：2.00）A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素 D.以上三种说法都不对解析：解析 线性表的链式存储结构称为线性链表。在链式存储结构中，存储数据结构的存储空间可以不连续各数据结点的存储顺序与数据元素之间的逻辑关系可以不一致，而数据元素之间的逻辑关系是由指针域来确定的。3.下列关于二叉树的叙述中，正确的是( )。（分数：2.00）A.叶子结点总是比度为 2 的结点少一个B.叶子
27、结点总是比度为 2 的结点多一个 C.叶子结点数是度为 2 的结点数的两倍D.度为 2 的结点数是度为 1 的结点数的两倍解析：解析 由二叉树的性质可以知道在二叉树中叶子结点总是比度为 2 的结点多一个。4.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。（分数：2.00）A.学生成绩管理系统 B.C 语言编译程序C.UNIX 操作系统D.数据库管理系统解析：解析 学生成绩管埋系统为应用软件。5.某系统总体结构图如下图所示：（分数：2.00）A.B.C. D.解析：解析 这个系统总体结构图是一棵树结构，在树结构中，根结点在第 1 层，同一层上所有子结点
28、都在下一层，由系统总体结构图可知，这棵树共 3 层。在树结构中，树的最大层次称为树的深度。所以这棵树的深度为 3。6.程序调试的任务是( )。（分数：2.00）A.设计测试用例B.验证程序的正确性C.发现程序中的错误D.诊断和改正程序中的错误 解析：解析 所谓程序调试，是将编制的程序投入实际运行前，用于工或编译程序等方法进行测试，修正语法错误和逻辑错误的过程。其任务是诊断和改正程序中的错误。7.下列关于数据库设计的叙述中，正确的是( )。（分数：2.00）A.在需求分析阶段建立数据字典 B.在概念设计阶段建立数据字典C.在逻辑设计阶段建立数据字典D.在物理设计阶段建立数据字典解析：解析 数据库
29、设计目前一般采用生命周期法，即将整个数据库应用系统的开发分解成目标独立的若干阶段。分别是：需求分析阶段、概念设计阶段、逻辑设计阶段、物理设计阶段、编码阶段、测试阶段、运行阶段、进一步修改阶段。数据字典是对系统中数据的详尽描述，是各类数据属性的清单。对数据设计来讲，数据字典是进行详细的数据收集和数据分析所获得的主要结果。8.数据库系统的三级模式不包括( )。（分数：2.00）A.概念模式B.内模式C.外模式D.数据模式 解析：解析 数据库系统的三级模式包括概念模式、外模式和内模式(物理模式)。9.有三个关系 R、S 和 T 如下：（分数：2.00）A.B. C.D.解析：解析 由三个关系 R、S
30、 和 T 的结构可以知道，关系 T 是由关系 R、S 经过差运算得到的。10.下列选项中属于面向对象设计方法主要特征的是( )。（分数：2.00）A.继承 B.自顶向下C.模块化D.逐步求精解析：解析 面向对象设计方法的主要特征有封装性、继承性和多态性。而结构化程序设计方法的主要原则有自顶向下，逐步求精，模块化限制使用 goto 语句。11.以下描述中错误的是( )。（分数：2.00）A.窗体的标题通过其 Caption 属性设置B.窗体的名称(Name 属性)可以在运行期间修改 C.窗体的背景图形通过其 Picture 属性设置D.窗体最小化时的图标通过其 Icon 属性设置解析：解析 对象
31、的属性设置除了可以在设计阶段进行设置之外，也可以通过在程序中编写代码来设置对象的部分属性，在程序中用代码访问对象属性的语法为：对象名属性名。对于对象的某些只读属性，如 Name 属性，只能在程序设计时设置，不能在程序中通过代码访问方式设置。其余的属性均为窗体的基本属性。12.在设计阶段，当按 Ctrl+R 键时，所打开的窗口是( )。（分数：2.00）A.代码窗口B.工具箱窗口C.工程资源管理器窗口 D.属性窗口解析：解析 在 VB 集成环境中，存在若干窗口，这些窗口都可以使用相应的快捷键打开，例如Ctrl+R可以打开工程资源管理器窗口；F4可以打开属性设置窗口；Ctrl+G可以打开立即窗口等
32、。13.设有如下变量声明语句：Dim a, b As Boolean则下面叙述中正确的是( )。（分数：2.00）A.a 和 b 都是布尔型变量B.a 是变体型变量，b 是布尔型变量 C.a 是整型变量，b 是布尔型变量D.a 和 b 都是变体型变量解析：解析 每个变量都有数据类型，包括基本数据类型和用户定义的数据类型。在一个 Dim 语句中定义多个变量时，每个变量都要用 As 子句声明其类型，如果没有 As 子句或者类型说明符的变量则被看做是变体类型。14.下列可作为 Visual Basic 变量名的是( )。（分数：2.00）A.A#AB.4ABCC.?xyD.Print Text 解析
33、：解析 变量是用一个名称来表示的，给变量命名时应遵循规则：名称只能由字母、数字和下划线组成；名称的第一个字符必须是英文字母，最后一个字符可以是类型说明符；名称的有效字符为 255 个：不能用 VB 的保留字作变量名，但变量名中可以包含保留字，如 ConstA：变量名也不能是末尾带有类型说明符的保留字，如 Dim!是不合法的变量名；不区分字母的大小写。15.假定一个滚动条的 LargeChange 属性值为 100，则 100 表示( )。（分数：2.00）A.单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量 B.滚动框位置的最大值C.拖动滚动框时滚动框位置的变化量D.单击滚动条箭头时滚动框
34、位置的变化量解析：解析 滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。滚动条的LargeChange 属性用于设置或返回单击滚动条中滚动框前面或后面的部位时，Value 属性增加或减小的增量值；SmallChange 属性用于设置或返回单击滚动条两端的箭头时，Value 属性增加或减小的增量值。16.在窗体上画一个命令按钮，然后编写如下事件过程；Private Sub Command1_Click()MsgBox Str(123+321)End Sub程序运行后，单击命令按钮，则在信息框中显示的提示信息为( )。（分数：2.00）A.字符串“123+321”B.字符串“44
35、4” C.数值“444”D.空白解析：解析 str 函数将数值转换为对应的字符串，如 345 转换为字符串“345”，在本题中 str 函数的参数是一个数值表达式，需要先计算表达式的值之后再将计算结果转换为字符串。17.假定有以下程序：Private Sub Form_Click()a=1: b=aDo Until a=5x=a*bPrint b:xa=a+bb=b+aLoopEnd Sub程序运行后，单击窗体，输出结果是( )。（分数：2.00）A.1 12 3B.1 12 4C.1 13 8D.1 13 6 解析：解析 本题的循环执行两次，第一次执行循环 x 的值为 1*1=1，随后 a
36、的值变为 2，b 的值变为3；第二次执行循环 x 的值为 2*3=6，a 的值为 5，b 值为 8。18.在窗体上画一个名称为 List1 的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在 List1 Click 事件过程中能正确实现上述功能的语句是( )。（分数：2.00）A.List1. RemoveItem List1. TextB.List1. RemoveItem List1. ClearC.List1. RemoveItem List1. ListCountD.List1. RemoveItem List1. ListIndex 解析：解析
37、列表框的 ListIndex 属性用于返回或设置控件中当前选择项目的索引(下标)，设计时不可用。当 ListIndex 的值设置为-1 时，表示未选定项目，第一项的索引值为 0。列表框的 RemoveItem 方法用于删除列表框中指定的项目，每次只能删除一项，其格式为：列表框RemoveItem 索引值。本题要求单击列表框的时候删除选择的项，所以删除的索引值应该为列表框的 ListIndex 属性。19.列表框中的项目保存在一个数组中，这个数组的名字是( )。（分数：2.00）A.ColumnB.StyleC.List D.MultiSelect解析：解析 列表框的 List 属性是一个字符串
38、数组，数组的一项就是一个列表项目，可以通过下标访问数组中的值。Column 属性用于确定列表框的列数，默认值为 0。设置为 0 时，列表项目以单列方式显示；设置为 1 时，列表项目以多行多列方式显示；设置值大于 1 且小于列表框中的项目数，列表项目以单行多列显示。Style 属性用于确定控件外观，只能在设计时设置。其值可以设置为 0(标准形式)和 1(复选框形式)两种。MultiSelect 属性用于表示是否能够在控件中进行复选以及如何进行复选。MultiSelect 属性可取 0、1、2 这 3 种值，默认时为 0，表示不允许复选。20.有人编写了如下程序：Private Sub Form_
39、Click()Dim s As Integer, x As Integers=0x=0Do While s=10000x=x+1s=s+x2LoopPrint sEnd Sub上述程序的功能是：计算 s=1+22+32+n2+，直到 s10000 为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是( )。（分数：2.00）A.把 x=0 改为 x=1B.把 Do While s=10000 改为 Do While s=10000 C.把 Do While s=10000 改为 Do while s10000D.交换 x=x+1 和 s=s+x2 的位置解析：解析 Do 型
40、循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是什么，至少执行一次循环体。在 Until 循环中条件为 False 时执行循环体，条件为 True 时退出循环；在 While 循环中条件为 True 时执行循环体，条件为False 时退出循环。本题中循环的条件为 s=10000，意味着只有当 s=10000 时才会继续循环，而实际情况是只有当 s10000 的时候才会退出循环，故此循环条件应该改为 s=10000。21.设有如下程序：Private Sub Form_Click()Dim s As Long, f As
41、 LongDim n As Integer, i As Integerf=1n=4For i=1 To nf=f*is=s+fNext iPrint sEnd Sub程序运行后，单击窗体，输出结果是( )。（分数：2.00）A.32B.33 C.34D.35解析：解析 本题是一个典型的 For 循环结构，f 的值在每次循环中都会乘上当前的循环变量，然后累加到变量 s 中，循环共执行 4 次，即 1+1*2+1*2*3+1*2*3*4=33。22.阅读下面的程序段：a=0For i=1 To 3For i=1 To iFor k=i To 3a=a+1Next kNext jNext i执行上面
42、的程序段后，a 的值为( )。（分数：2.00）A.3B.9C.14 D.21解析：解析 本题是一个三重循环语句，但是要注意到中层循环和内层循环的循环次数是不一定的，取决于其上层循环变量的当前取值。在第一次外循环中，i 的取值为 1，则中层循环 i 只能取值为 1 循环一次，内层循环会执行 3 次，即 a 的值会增加 3；在第二次外层循环中，i 的取值为 2，中层循环会执行两次，其中 i=1 时内循环执行 3 次，j=2 的时候内循环执行 2 次，在本次循环中 a 的值总共会增加 5；在第三次外层循环中，i 的取值为 3，中层循环会执行 3 次，其中-j=1 时内循环执行 3 次，i=2 的时
43、候内循环执行 2 次，i=3 的时候内循环执行 1 次，在本次外循环中 a 的值总共会增加 6。外循环结束后，a 的值为3+5+6=14。23.设有如下程序：Private Sub Form_Click()Clsa$=“123456“For i=1 To 6Print Tab(12-i);_Next iEnd Sub程序运行后，单击窗体，要求结果如图所示，则应填入的内容为( )。（分数：2.00）A. B.C.D.解析：解析 字符串截取函数包括左部截取函数(Left)、右部截取函数(Right)和中部截取函数(Mid)。左部截取函数的书写格式为：Left(Str，n)，表示返回字符串“Str”
44、的前 n 个字符；右部截取函数的书写格式为：Right(Str,n)，表示返回字符串“Str”的最后 n 个字符；中部截取函数的书写格式为：Mid(Str,i,n)，表示返回从字符串“Str”的第 i 个字符开始的 n 个字符，i 和 n 都是整型常量。本题中数据输出的特点是输出的每一行都由两部分组成，首先是若干个空格，然后是字符串 a 的一部分，具体来讲就是第 i 行输出 a 的前 i 个字符。24.设有如下程序：Private Sub Form_Click()Dim i As Integer, x As String, y As Stringx=“ABCDEFG“For i=4 To 1
45、Step-1y=Mid(x, i, i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为( )。（分数：2.00）A.ABCCDEDEFG B.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG解析：解析 本题同样是一个循环取出字符串的一部分问题。本题的循环变量是由大到小进行变化的，第一次循环取出字符串 x 的第 4 位开始的 4 个字符；第二次循环取出 x 的第 3 位开始开始的 3 个字符以此类推。另外，要注意到在每次循环过程中都将取出的新子串插入到原有字符串的前面。25.设有如下程序：Private Sub Form_Click()Dim a
46、ry(1 To 5)As IntegerDim i As IntegerDim sum As IntegerFor i=1 To 5ary(i)=i+1sum=sum+ary(i)Next iPrint sumEnd Sub程序运行后，单击窗体，则在窗体上显示的是( )。（分数：2.00）A.15B.16C.20 D.25解析：解析 本题是一个简单的循环累加问题，在每次循环中累加 i+1，即最后输出结果为2+3+4+5+6=20。26.有一个数列，它的前 3 个数为 0，1，1，此后的每个数都是其前面 3 个数之和，即0，1，1，2，4，7，13，24，要求编写程序输出该数列中所有不超过 10
47、00 的数。某人编写程序如下：Private Sub Form Click()Dim i As Integer, a As Integer, b As IntegerDim c As Integer, d As Integera=0:b=1:c=1d=a+b+ci=5While d=1000Print d;a=b:b=c:c=dd=a+b+ci=i+1WendEnd Sub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是( )。（分数：2.00）A.把 While d=1000 改为 While d1000B.把 i=5 改为 i=4C.把 i=i+1 移到 while d=
48、1000 的下面D.在 i=5 的上面增加一个语句：Print a;b;c; 解析：解析 本题使用循环输出数列，根据数列的特点，使用 a、b、c 来代表前三项，然后利用三者相加得到 d 作为第四项，接下来让 b、c、d 分别赋值给 a、b、c 作为新的前三项，这样就能继续计算后面的项了。根据程序可知，第一次循环输出第 4 项，第二次循环输出第 5 项以此类推。与题中数列对比可以看出少输出了前三项，因此需要在循环开始前输出 a、b、c 的值。27.下面的语句用 Array 函数为数组变量 a 的各元素赋整数值：a=Array(1，2，3，4，5，6，7，8，9)针对 a 的声明语句应该是( )。（分数：2.00）A.Dim a B.Dim a As IntegerC.Dim a(9) As IntegerD.Dim a() As Integer解析：解析 利用 Array 函数，可以在程序运行之前初始化数组。Array 函数是用于为数组元素赋值，即把一个数据集读入指定数组中。其格式为：数组变量=Array(数组元素值列表)。其中，“数组变量”是预先定义的数组名，后面不带括号和下标。之所以称为“数组变量”，是因为它作为数组使用，但预先定义时是以变量的形式来定义的，它既没有维
