1、二级 VISUAL+BASIC-59 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列选项中属于面向对象设计方法主要特征的是_。（分数：2.50）A.继承B.自顶向下C.模块化D.逐步求精2.数据库系统的三级模式不包括_。（分数：2.50）A.概念模式B.内模式C.外模式D.数据模式3.程序调试的任务是_。（分数：2.50）A.设计测试用例B.验证程序的正确性C.发现程序中的错误D.诊断和改正程序中的错误4.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是_。（分数：2.50）A.学生成绩管理系统B.
2、C 语言编译程序C.UNIX 操作系统D.数据库管理系统5.某系统总体结构图如下图所示： （分数：2.50）A.7B.6C.3D.26.下列关于二叉树的叙述中，正确的是_。（分数：2.50）A.叶子结点总是比度为 2 的结点少一个B.叶子结点总是比度为 2 的结点多一个C.叶子结点数是度为 2 的结点数的两倍D.度为 2 的结点数是度为 1 的结点数的两倍7.下列关于数据库设计的叙述中，正确的是_。（分数：2.50）A.在需求分析阶段建立数据字典B.在概念设计阶段建立数据字典C.在逻辑设计阶段建立数据字典D.在物理设计阶段建立数据字典8.下列关于线性链表的叙述中，正确的是_。（分数：2.50）
3、A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素D.以上三种说法都不对9.有三个关系 R、S 和 T 如下： （分数：2.50）A.自然连接B差C交D并10.下列叙述中正确的是_。（分数：2.50）A.算法就是程序B.设计算法时只需要考虑数据结构的设计C.设计算法时只需要考虑结果的可靠性D.以上三种说法都不对11.以下描述中错误的是_。（分数：2.50）A.窗体的标题通过其 Caption 属性设置B.窗体的名称(Name 属性)可以在运行期间修改C.窗体的背景
4、图形通过其 Picture 属性设置D.窗体最小化时的图标通过其 Icon 属性设置12.在设计阶段，当按 Ctrl+R 键时，所打开的窗口是_。（分数：2.50）A.代码窗口B.工具箱窗口C.工程资源管理器窗口D.属性窗口13.设有如下变量声明语句： Dim a, b As Boolean 则下面叙述中正确的是_。（分数：2.50）A.a 和 b 都是布尔型变量B.a 是变体型变量，b 是布尔型变量C.a 是整型变量，b 是布尔型变量D.a 和 b 都是变体型变量14.下列可作为 Visual Basic 变量名的是_。（分数：2.50）A.A#AB.4ABCC.?xyD.Print_Tex
5、t15.假定一个滚动条的 LargeChange 属性值为 100，则 100 表示_。（分数：2.50）A.单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量B.滚动框位置的最大值C.拖动滚动框位置的变化量D.单击滚动条箭头时滚动框位置的变化量16.在窗体上面有一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() MsgBox Str(123+321) End Sub 程序运行后，单击命令按钮，则在信息框中显示的提示信息为_。（分数：2.50）A.字符串“123+321”B.字符串“444”C.数值“444”D.空白17.假定有以下程序： Priv
6、ate Sub Form_Click() a=1: b=a Do Until a=5 x=a*b Print b; X a=a+b b=b+a Loop End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.50）A.1 12 3B.1 12 4C.1 13 8D.1 13 618.窗体上有一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮，并有如下事件过程： Private Sub Command1_Click() CommonDialog.DefaultExt=“doc“ CommonDialog.FileName=“VB.txt“ C
7、ommonDialog.Filter=“All(*.*)|*.*|Word|.Doc|“ CommonDialog.FilterIndex=1 CommonDialog.ShowSave End Sub 运行上述程序，如下叙述中正确的是_。（分数：2.50）A.打开的对话框中文件“保存类型”框中显示 All(*.*)B.实现保存文件的操作，文件名是 VB.txtC.DefaultExl 属性与 FileName 属性所指明的文件类型不一致，程序出错D.对话框的 Filter 属性没有指出 txt 类型，程序运行出错19.列表框中的项目保存在一个数组中，这个数组的名字是_。（分数：2.50）A.
8、ColumnB.StyleC.ListD.MultiSelect20.有人编写了如下程序： Private Sub Form_Click() Dim s As Integer, x As Integer s=0 x=0 Do While s=1000 x=x+1 s=s+x2 Loop Print s End Sub 上述程序的功能是：计算 s=1+2 2 +3 2 +.+n 2 +，直到 s10000 为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是_。（分数：2.50）A.把 x=0 改为 x=1B.把 Do While s=10000 改为 Do While s=
9、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 Long Dim n As Integer, i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Ptint s End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.50）A.32B.33C.34D.3522.阅读下面的程序段： a=0 For i=1 To 3 For j=1 To i
10、 For k=j To 3 a=a+1 Next k Next j Next i 执行上面的程序段后，a 的值为_。（分数：2.50）A.3B.9C.14D.2123.设有如下程序： Private Sub Form_Click() Cls a$=“123456“ For i=1 To 6 Print Tab(12-i); _ Next i End Sub 程序运行后，单击窗体，要求结果如图所示，则在_处填入的内容为_。 （分数：2.50）A.Left(a$, i)B.Mid(a$, 8-i, i)C.Right(a$., i)D.Mid(a$, 7, i)24.设有如下程序： Private
11、 Sub Form_Click() Dim i As Integer, x AS String, y As String x=“ABCDEFG“ For i=4 To 1 Step-1 y=Mid(x, i, i)+y Next i Print y End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.50）A.ABCCDEDEFGB.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG25.设有如下程序： Private Sub Form_Click() Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As In
12、teger For i=1 To 5 ary(i)=i+1 sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是_。（分数：2.50）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 As Integer, b As Integer Dim c As Int
13、eger, d As Integer a=0: b=1: c=1 d=a+b+c i=5 While d=1000 Print d; a=b: b=c: c=d d=a+b+c i=i+1 Wend End Sub 运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是_。（分数：2.50）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 函数组变量 a 的各元素赋整数值： a=Array(1,
14、2,3,4,5,6,7,8,9) 针对 a 的声名语句应该是_。（分数：2.50）A.Dim aB.Dim a As IntegerC.Dim a(9) As IntegerD.Dim a() As Integer28.下列描述中不正确的是_。（分数：2.50）A.Visual Basic 只能通过过程调用执行通用过程B.可以在 Sub 过程的代码中包含另一个 Sub 过程的代码C.可以像通用过程一样指定事件过程的名字D.Sub 过程和 Function 过程都有返回值29.阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As I
15、nteger temp=1 For i%=1 To n temp=temp*i% Next i% fac=temp End Function Private Sub Form_Click() Dim nsum As Integer nsum=1 For i%=2 To 4 nsum=nsum+fac(i%) Next i% Print nsum End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.50）A.35B.31C.33D.3730.在窗体上面画一个命令按钮和一个标签，其名称分别为 Command1 和 Labell，然后编写如下代码： Sub S(x As Integer,
16、 y As Integer) Static z As Integer y=x*x+z z=y End Sub Private Sub Command1_Click() Dim i As Integer, z As Integer m=0 z=0 For i=1 To 3 S i, z m=m+z Next i Label1.Caption=Str(m) 程序运行后，单击命令按钮，在标签中显示的内容是_。（分数：2.50）A.50B.20C.14D.731.以下说法中正确的是_。（分数：2.50）A.MouseUp 事件是鼠标向上移动时触发的事件B.MouseUp 事件过程中的 x，y 参数用于
17、修改鼠标位置C.在 MouseUp 事件过程中可以判断用户是否使用了组合键D.在 MouseUp 事件过程中不能判断鼠标的位置32.假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为 a1，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是_。（分数：2.50）A.Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single,Y As Single)If Button=1 And Button=2 ThenPopupMenu a1End IfEnd SubB
18、.Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single,Y AS Single)PopupMenu a1End SubC.Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single,Y As Single)If Button=1 ThenPopupMenu a1End IfEnd SubD.Private Sub Form MouseDown(Button As Integer, _Shift As I
19、nteger, 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.50）A.应用程序(*.exe)B.*.docC.*.txtD.不确定3
20、4.以下描述中错误的是_。（分数：2.50）A.在多窗体应用程序中，可以有多个当前窗体B.多窗体应用程序的启动窗体可以在设计时设定C.多窗体应用程序中每个窗体作为一个磁盘文件保存D.多窗体应用程序不可以编译生成一个 EXE 文件35.以下关于顺序文件的叙述中，正确的是_。（分数：2.50）A.可以用不同的文件号以不同的读写方式同时打开同一个文件B.文件中各记录的写入顺序与读出顺序是一致的C.可以用 Input #或 Line Input #语句向文件写记录D.如果用 Append 方式打开文件，则既可以在文件末尾添加记录，也可以读取原有记录36.现有如下一段程序： Option Base 1
21、Privalc Sub Command1_Click() Dim a a=Array(3,5,7,9) x=1 For i=4 To j Step-1 s=s+a(i)*x x=x*10 Next i Print s End Sub 执行程序，单击 Command1 命令按钮键，执行上述事件过程，输出结果是_。（分数：2.50）A.9753B.3579C.35D.7937.设有一个命令按钮 Command1 的事件过程以及一个函数过程。程序如下： Private Sub Command1_Click() Static x As Integer x=f(x+5) Cls Print x End
22、Sub Private Function f(x As Integer)As Integer f=x+x End Function 连续单击命令按钮 3 次，第 3 次单击命令按钮后，窗体显示的计算结果是_。（分数：2.50）A.10B.30C.60D.7038.以下关于菜单设计的叙述中错误的是_。（分数：2.50）A.各菜单项可以构成控件数组B.每个菜单项可以看成是一个控件C.设计菜单时，菜单项的“有效”选，即有效，表示该菜单项不显示D.菜单项只响应单击事件39.以下关于多窗体的叙述中，正确的是_。（分数：2.50）A.任何时刻，只有一个当前窗体B.向一个工程添加多个窗体，存盘后生成一个窗体
23、文件C.打开一个窗体时，其他窗体自动关闭D.只有第一个建立的窗体才是启动窗体40.在窗体上面一个名称为 List1 的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在 List1_Click 事件过程中能正确实现上述功能的语句是_。（分数：2.50）A.List1.RemoveItem List1.TextB.List1.RemoveItem List1.ClearC.List1.RemoveItem List1.ListCountD.List1.RemoveItem List1.ListIndex二级 VISUAL+BASIC-59 答案解析(总分：10
24、0.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列选项中属于面向对象设计方法主要特征的是_。（分数：2.50）A.继承 B.自顶向下C.模块化D.逐步求精解析：解析 面向对象程序设计的主要特征就是继承，所以答案选择 A。2.数据库系统的三级模式不包括_。（分数：2.50）A.概念模式B.内模式C.外模式D.数据模式 解析：解析 数据库系统三种模式为：内模式、外模式和概念模式，所以答案选择 D。3.程序调试的任务是_。（分数：2.50）A.设计测试用例B.验证程序的正确性C.发现程序中的错误D.诊断和改正程序中的错误 解析：解析 程序调试的主要任务是改正程序中
25、的错误，而软件测试是发现错误。4.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是_。（分数：2.50）A.学生成绩管理系统B.C 语言编译程序 C.UNIX 操作系统D.数据库管理系统解析：解析 应用软件(application software)是用户可以使用的备种程序设计语言，以及用各种程序设计语言编制的应用程序的集合，分为应用软件包和用户程序。所以答案选择 B。5.某系统总体结构图如下图所示： （分数：2.50）A.7B.6C.3 D.2解析：解析 由题可知结构图的深度为 3。6.下列关于二叉树的叙述中，正确的是_。（分数：2.50）A.叶子结点总是比
26、度为 2 的结点少一个B.叶子结点总是比度为 2 的结点多一个 C.叶子结点数是度为 2 的结点数的两倍D.度为 2 的结点数是度为 1 的结点数的两倍解析：解析 叶子结点和度数为 2 的结点之间的关系为，叶子结点的个数=度数为 2 的结点个数+1。7.下列关于数据库设计的叙述中，正确的是_。（分数：2.50）A.在需求分析阶段建立数据字典 B.在概念设计阶段建立数据字典C.在逻辑设计阶段建立数据字典D.在物理设计阶段建立数据字典解析：解析 在数据库设计时必须在需求分析阶段建立数据字典，确定数据库中所需要的数据。8.下列关于线性链表的叙述中，正确的是_。（分数：2.50）A.各数据结点的存储空
27、间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素 D.以上三种说法都不对解析：解析 线性链表中。各个数据节点的存储空间可以不连续，存储顺序与逻辑顺序也可以不一致，所以 A 和 B 选项错误。线性链表在插入和删除数据时只需要修改指针的指向，不需要移动表中的元素。9.有三个关系 R、S 和 T 如下： （分数：2.50）A.自然连接B差 C交D并解析：解析 关系之间的操作分为自然连接、投影、交、并、差等，由图可知此操作为差操作。10.下列叙述中正确的是_。（分数：2.50）A.算法就是程
28、序B.设计算法时只需要考虑数据结构的设计C.设计算法时只需要考虑结果的可靠性D.以上三种说法都不对 解析：解析 程序(program)是为实现特定目标或解决特定问题而用计算机语言编写的命令序列的集合。设计算法时是要考虑到数据结构的设计，但是不仅仅是要考虑到数据结构的设计，还要考虑到其他程序结构的问题。设计算法时不能只考虑结果的正确性和可靠性，还需要考虑到程序的时间冗余度等方面。所以答案选择 D。11.以下描述中错误的是_。（分数：2.50）A.窗体的标题通过其 Caption 属性设置B.窗体的名称(Name 属性)可以在运行期间修改 C.窗体的背景图形通过其 Picture 属性设置D.窗体
29、最小化时的图标通过其 Icon 属性设置解析：解析 在窗体的控件中有些属性叫做只读属性，而这些属性在运行期间是不能修改的，比如 NAME属性，所以答案选择 B。12.在设计阶段，当按 Ctrl+R 键时，所打开的窗口是_。（分数：2.50）A.代码窗口B.工具箱窗口C.工程资源管理器窗口 D.属性窗口解析：解析 考查简单的设计环境，Ctrl+R 打开的是工程资源管理器窗口，答案选择 C。13.设有如下变量声明语句： Dim a, b As Boolean 则下面叙述中正确的是_。（分数：2.50）A.a 和 b 都是布尔型变量B.a 是变体型变量，b 是布尔型变量 C.a 是整型变量，b 是布
30、尔型变量D.a 和 b 都是变体型变量解析：解析 考查 VB 中变量的声明，在变量声明中，如果有多个变量应当分开声明变量的类型，如果没有进行说明则默认为变体型变量，所以本题中 a 为变体型变量，b 为布尔型变量，答案选择 B。14.下列可作为 Visual Basic 变量名的是_。（分数：2.50）A.A#AB.4ABCC.?xyD.Print_Text 解析：解析 标识符的命名规则为只能由字母下划线和数字组成，并且必须由字母和下划线开头，所以答案选择 D。15.假定一个滚动条的 LargeChange 属性值为 100，则 100 表示_。（分数：2.50）A.单击滚动条箭头和滚动框之间某
31、位置时滚动框位置的变化量 B.滚动框位置的最大值C.拖动滚动框位置的变化量D.单击滚动条箭头时滚动框位置的变化量解析：解析 LangeChange 和 SmallChange 都是滚动框位置变化属性，SmallChange 属性是单击滚动条箭头的变化值，而 LangeChange 属性是单击滚动条箭头和滚动框之间某个位置时的变化值，所以答案选择A。16.在窗体上面有一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() MsgBox Str(123+321) End Sub 程序运行后，单击命令按钮，则在信息框中显示的提示信息为_。（分数：2.50）A.
32、字符串“123+321”B.字符串“444” C.数值“444”D.空白解析：解析 Str 函数是将数字转换成字符串，而在 Str 函教中没有用引号所以代表一个数值常量，所以先计算 123+321 为 444，然后转换成字符串进行输出，答案为 B。17.假定有以下程序： Private Sub Form_Click() a=1: b=a Do Until a=5 x=a*b Print b; X a=a+b b=b+a Loop End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.50）A.1 12 3B.1 12 4C.1 13 8D.1 13 6 解析：解析 本考题考查简单的
33、Do 语句，当 a=1 时，b=a=1 此时执行 x=a*b，x=1*1=1，所以第一行输出为 1 1，此时继续执行 a=a+b，所以 a=1+1=2，b=2+1=3，循环继续执行，此时 a=2，b=3，所以 x=2*3=6，此时 a=2，b=3，继续执行 a=a+b=2+3=5，b=5+3=8，所以第二行输出结果为 3 6，所以答案选择 D。18.窗体上有一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮，并有如下事件过程： Private Sub Command1_Click() CommonDialog.DefaultExt=“doc“ Com
34、monDialog.FileName=“VB.txt“ CommonDialog.Filter=“All(*.*)|*.*|Word|.Doc|“ CommonDialog.FilterIndex=1 CommonDialog.ShowSave End Sub 运行上述程序，如下叙述中正确的是_。（分数：2.50）A.打开的对话框中文件“保存类型”框中显示 All(*.*) B.实现保存文件的操作，文件名是 VB.txtC.DefaultExl 属性与 FileName 属性所指明的文件类型不一致，程序出错D.对话框的 Filter 属性没有指出 txt 类型，程序运行出错解析：解析 本程序中
35、 DefaultExt 表示默认的文件是 doc，默认出现的文件名为“VB.tex”，Filter 表示允许出现的文件的扩展名，FilterIndex=1 表示当打开通用对话框后的默认文件扩展名的索引为 1，也就是 All(“*”)，所以根据题意，答案为 A。19.列表框中的项目保存在一个数组中，这个数组的名字是_。（分数：2.50）A.ColumnB.StyleC.List D.MultiSelect解析：解析 本题考查基本概念，在列表框中 List 属性表示的一个数组，该教组中保存这列表框中的项目，而 Column 表示是列表框中的某一列，Style 代表列表框的样式，MultiSelec
36、t 代表列表框是否可以多选，所以答案选择 C。20.有人编写了如下程序： Private Sub Form_Click() Dim s As Integer, x As Integer s=0 x=0 Do While s=1000 x=x+1 s=s+x2 Loop Print s End Sub 上述程序的功能是：计算 s=1+2 2 +3 2 +.+n 2 +，直到 s10000 为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是_。（分数：2.50）A.把 x=0 改为 x=1B.把 Do While s=10000 改为 Do While s=10000 C.把
37、 Do While s=10000 改为 Do While s10000D.交换 x=x+1 和 s=s+x2 的位置解析：解析 本题考查简单的循环问题，Do While(条件)表示当条件为真时，循环才能执行，针对于本题中只有当 s=10000 是循环才能够进行执行，而程序的功能是计算 s=1+2 2 +3 2 +10000 2 ，所以当s=10000 时执行才能实现此功能，所以答案选择 B。21.设有如下程序： Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f=1 n=4 Fo
38、r i=1 To n f=f*i s=s+f Next i Ptint s End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.50）A.32B.33 C.34D.35解析：解析 本题考查 For 循环，当 f=1 时，i=1，计算 f=f*i=1*1=1；s=s+f=0+1=1，循环继续，当 i=2时，f=f*i=1*2=2，s=s+f=1+2=3，循环继续，当 i=3 时，f=f*i=2*3=6，s=s+f=3+6=9，循环继续，当 i=4时，f=f*i=6*4=24，s=s+f=9+24=33，所以最后输出结果为 33，答案选择 B。22.阅读下面的程序段： a=0 For
39、i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i 执行上面的程序段后，a 的值为_。（分数：2.50）A.3B.9C.14 D.21解析：解析 本题考查三重循环，当 i=1 时，j=1，则 For k=j To 3 执行 3 次，所以 a=3，当 i=2 时，For j=1 To i 执行 2 次 For k=j To 3 执行 3 次，所以总共执行 5 次，所以此时 a=3+5=8 当 i=3 时，For i=1 To i 执行 3 次，For k=j To 3 执行 3 次，所以总共执行了 6 次，所以 a=3+5+
40、8=14 次。23.设有如下程序： Private Sub Form_Click() Cls a$=“123456“ For i=1 To 6 Print Tab(12-i); _ Next i End Sub 程序运行后，单击窗体，要求结果如图所示，则在_处填入的内容为_。 （分数：2.50）A.Left(a$, i) B.Mid(a$, 8-i, i)C.Right(a$., i)D.Mid(a$, 7, i)解析：解析 本题考查简单的字符串取值函数，由图可知，其中显示的字符是从 a$中从左边开始取的 i项的值然后进行输出，所以答案选择 A。24.设有如下程序： Private Sub F
41、orm_Click() Dim i As Integer, x AS String, y As String x=“ABCDEFG“ For i=4 To 1 Step-1 y=Mid(x, i, i)+y Next i Print y End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.50）A.ABCCDEDEFG B.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG解析：解析 本题也是考查字符串的取值，当 i=4 时，y=Mid(x,4,4)+y=DEFG，当 i=3 时，y=Mid(x,3,3)+y=CDEDEFG，当 i=2 时，y=Mid(x,2,2
42、)+y=BCCDEFG，当 i=1 时，y=Mid(x,1,1)+y=ABCCDEFG，所以答案选择 A。25.设有如下程序： Private Sub Form_Click() Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+1 sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是_。（分数：2.50）A.15B.16C.20 D.25解析：解析 本题中因为 i 是从 15 递增，当 i=1 时，ary(1)
43、=1+i=2，sum=sum+2=2，当 i=2 时，ary(2)=1+i=2+1=3，sum=sum+3=2+3=5，同理当 i=3 时，ary(3)=4，sum=9，当 i=4 时，ary(4)=5，sum=14，当i=5 时，ary(5)=6，sum=20，所以答案选择 C。26.有一个数列，它的前 3 个数为 0，1，1，此后的每个数都是其前面 3 个数之和，即0，1，1，2，4，7，13，24， 要求编写程序输出该数列中所有不超过 1000 的数。 某人编写程序如下： Private Sub Form_Click() Dim i As Integer, a As Integer, b
44、 As Integer Dim c As Integer, d As Integer a=0: b=1: c=1 d=a+b+c i=5 While d=1000 Print d; a=b: b=c: c=d d=a+b+c i=i+1 Wend End Sub 运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是_。（分数：2.50）A.把 while d=1000 改为 while d1000B.把 i=5 改为 i=4C.把 i=i+1 移到 While d=1000 的下面D.在 i=5 的上面增加一个语句：Print a;b;c; 解析：解析 本题程序中分别用 a、b、
45、c、d 代表 1、2、3、4 项，从第 5 项开始输出 d 的值，同时使用前 3 项的结果得出第 4 项的值，在程序中只输出了 d 的值即指输出了计算出的第 4 项的值，所以数列不完整。程序中需要在 i=5 的上面添加 Print a；b；c；语句，此时数列才会输出完整。27.下面的语句用 Array 函数组变量 a 的各元素赋整数值： a=Array(1,2,3,4,5,6,7,8,9) 针对 a 的声名语句应该是_。（分数：2.50）A.Dim a B.Dim a As IntegerC.Dim a(9) As IntegerD.Dim a() As Integer解析：解析 array
46、函数可以生成一个数组，但是数组的返回值必须赋给一个变体型的变量，在声明时不能将变量声明成任何类型的变量。所以答案选择 A。28.下列描述中不正确的是_。（分数：2.50）A.Visual Basic 只能通过过程调用执行通用过程B.可以在 Sub 过程的代码中包含另一个 Sub 过程的代码 C.可以像通用过程一样指定事件过程的名字D.Sub 过程和 Function 过程都有返回值解析：解析 在 VB 中 Sub 过程不能嵌套定义另一个 Sub 过程，所以答案选择 B。29.阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As I
47、nteger temp=1 For i%=1 To n temp=temp*i% Next i% fac=temp End Function Private Sub Form_Click() Dim nsum As Integer nsum=1 For i%=2 To 4 nsum=nsum+fac(i%) Next i% Print nsum End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.50）A.35B.31C.33 D.37解析：解析 本题考查的是函数的调用，Function 函数的意义是某个数的阶乘，所以通过计算结果为4!+3!+2!+1!=3330.在窗体上面画一个
48、命令按钮和一个标签，其名称分别为 Command1 和 Labell，然后编写如下代码： Sub S(x As Integer, y As Integer) Static z As Integer y=x*x+z z=y End Sub Private Sub Command1_Click() Dim i As Integer, z As Integer m=0 z=0 For i=1 To 3 S i, z m=m+z Next i Label1.Caption=Str(m) 程序运行后，单击命令按钮，在标签中显示的内容是_。（分数：2.50）A.50B.20 C.14D.7解析：解析 本题中有 Sub 过程，此过程中 S 函数使用的参数传递为地址传递，并且 z 变量为静态变量，所以变量 z 将会保存上一次计算的值，而 z=y 是为静态变量进行赋值。在 Click 事件中的 z 和 Sub 过程中的 z 只是同名，没有其他的关系，所以当 i=1 时调
