1、二级 VISUAL+BASIC-6-2 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.下列叙述中正确的是_。（分数：1.00）A.算法就是程序B.设计算法时只需要考虑数据结构的设计C.设计算法时只需要考虑结果的可靠性D.以上三种说法都不对2.下列叙述中正确的是_。（分数：1.00）A.有一个以上根结点的数据结构不一定是非线性结构B.只有一个根结点的数据结构不一定是线性结构C.循环链表是非线性结构D.双向链表是非线性结构3.下列关于二叉树的叙述中，正确的是_。（分数：1.00）A.叶子结点总是比度为 2 的结点少一个B.叶子结点总是比度为
2、2 的结点多一个C.叶子结点数是度为 2 的结点数的两倍D.度为 2 的结点数是度为 1 的结点数的两倍4.软件生命周期中的活动不包括_。（分数：1.00）A.市场调研B.需求分析C.软件测试D.软件维护5.某系统总体结构图如下图所示： （分数：1.00）A.7B.6C.3D.26.程序调试的任务是_。（分数：1.00）A.设计测试用例B.验证程序的正确性C.发现程序中的错误D.诊断和改正程序中的错误7.下列关于数据库设计的叙述中，正确的是_。（分数：1.00）A.在需求分析阶段建立数据字典B.在概念设计阶段建立数据字典C.在逻辑设计阶段建立数据字典D.在物理设计阶段建立数据字典8.数据库系统
3、的三级模式不包括_。（分数：1.00）A.概念模式B.内模式C.外模式D.数据模式9.有三个关系 R、S 和 T 如下： （分数：1.00）A.自然连接B交C.投影D并10.下列选项中属于面向对象设计方法主要特征的是_。（分数：1.00）A.继承B.自顶向下C.模块化D.逐步求精11.以下合法的 VB 变量名是_。（分数：1.00）A.#_1B.123_aC.stringD.x_12312.以下关于 VB 的叙述中，错误的是_。（分数：1.00）A.VB 采用事件驱动方式运行B.VB 既能以解释方式运行，也能以编译方式运行C.VB 程序代码中，过程的书写顺序与执行顺序无关D.VB 中一个对象对
4、应一个事件13.有如下数据定义语句： Dim X,Y As Integer 以上语句表明_。（分数：1.00）A.X、Y 均是整型变量B.X 是整型变量，Y 是变体类型变量C.X 是变体类型变量，Y 是整型变量D.X 是整型变量，Y 是字符型变量14.以下关于控件数组的叙述中，正确的是_。（分数：1.00）A.数组中各个控件具有相同的名称B.数组中可包含不同类型的控件C.数组中各个控件具有相同的 Index 属性值D.数组元素不同，可以响应的事件也不同15.以下关于 VB 文件的叙述中，错误的是_。（分数：1.00）A.标准模块文件不属于任何一个窗体B.工程文件的扩展名为.frmC.一个工程只
5、有一个工程文件D.一个工程可以有多个窗体文件16.设 x 为一整型变量，且情况语句的开始为：Select Case x，则不符合语法规则的 Case 子句是_。（分数：1.00）A.Case Is20B.Case 1 To 10C.Case 0Is And IS20D.Case 2, 3, 417.现有如下语句： x=IIf(a50, Im(a/3), a Mod 2) 当 a=52 时，x 的值是_。（分数：1.00）A.0B.1C.17D.1818.设有如下数组定义语句： Dim a(-1 To 4, 3)As Integer 以下叙述中正确的是_。（分数：1.00）A.a 数组有 18
6、个数组元素B.a 数组有 20 个数组元素C.a 数组有 24 个数组元素D.语法有错19.以下叙述中错误的是_。（分数：1.00）A.Sub Main 是定义在标准模块中的特定过程B.一个工程中只能有一个 Sub Main 过程C.sub Main 过程不能有返回值D.当工程中含有 Sub Main 过程时，工程执行时一定最先执行该过程20.关于随机文件，以下叙述中错误的是_。（分数：1.00）A.使用随机文件能节约空间B.随机文件记录中，每个字段的长度是固定的C.随机文件中，每个记录的长度相等D.随机文件的每个记录都有一个记录号21.在名称为 Frame1 的框架中，有两个名称分别为 op
7、1、op2 的单选按钮，标题分别为“单程”、“往返”，如图所示。 （分数：1.00）A.若仅把 Frame1 的 Enabled 属性设为 False，则 op1、op2 仍可用B.对于上图，op1. Value 的值为 TmeC.对于上图，执行 Op1. Value=False 命令，则“往返”单选按钮被选中D.对于上图，执行 Op1. Value=0 命令，程序出错22.以下能够设置控件焦点的方法是_。（分数：1.00）A.SetFocusB.GotFocusC.LostFocusD.TabStop23.使用 Line 控件在窗体上画一条从(0，0)到(600，700)的直线，则其相应属性
8、的值应是_。（分数：1.00）A.X1=0, X2=600, Y1=0, Y2=700B.Y1=0, Y2=600, X1=0, X2=700C.X1=0, X2=0, Y1=600, Y2=700D.Y1=0, Y2=0, X1=600, X2=70024.设有窗体的 Form_MouseMove 事件过程如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If(Button And 3)=3 Then Print“检查按键“ End If End Sub
9、关于上述过程，以下叙述中正确的是_。（分数：1.00）A.按下鼠标左键时，在窗体上显示“检查按键”B.按下鼠标右键时，在窗体上显示“检查按键”C.同时按下鼠标左、右键时，在窗体上显示“检查按键”D.不论做何种操作，窗体上都不会显示25.窗体上有一个名称为 CD1 的通用对话框，一个名称为 Command1 的命令按钮，相应的事件过程如下： Private Sub Command1_Click() CD1. Filter=“All File|*.*|Text File|*.txt|PPT|*.ppt“ CD1. FiherIndex=2 CD1. InitDir=“C:/1“ CD1. File
10、Name=“default“ CD1. ShowSave End Sub 关于上述过程，以下叙述中正确的是_。（分数：1.00）A.默认过滤器为“*.ppt”B.指定的初始目录为“C：/”C.打开的文件对话框的标题为“default”D.上面事件过程实现保存文件的操作26.以下关于窗体的叙述中，错误的是_。（分数：1.00）A.Hide 方法能隐藏窗体，但窗体仍在内存中B.使用 Show 方法显示窗体时，一定触发 Load 事件C.移动或放大窗体时，会触发 Paint 事件D.双击窗体时，会触发 DblClick 事件27.下列控件中，没有 Caption 属性的是_。（分数：1.00）A.单
11、选按钮B.复选框C.列表框D.框架28.将数据项“Student”添加到名称为 List1 的列表框中，并使其成为列表框第一项的语句为_。（分数：1.00）A.List1. AddItem “Student“,0B.List1. AddItem “Student“, 1C.List1. AddItem0, “Student“D.List1. AddItem 1, “Student“29.下列针对框架控件的叙述中，错误的是_。（分数：1.00）A.框架是一个容器控件B.框架也有 Click 和 DblClick 事件C.框架也可以接受用户的输入D.使用框架的主要目的是为了对控件进行分组30.窗体
12、上有一个名为 Command1 的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(5)As Integer For k=1 To 5 arr(k)=k Next k prog arr() For k=1 To 5 Print arr(k); Next k End Sub Sub prog(a()As Integer) n=UBound(a) For i=n To 2 step-1 For j=1 To n-1 if a(j)a(j+1)Then t=a(5):a(j)=a(j+1):a(j+1)=t End If Next j Next i
13、 End Sub 程序运行时，单击命令按钮后显示的是_。（分数：1.00）A.1 2 3 4 5B.5 4 3 2 1C.0 1 2 3 4D.4 3 2 1 031.下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是_。 Private Sub Command1_Click() Dim count(25)As Integer, ch As String ch=UCase(InputBox(“请输入字母字符串“) For k=1 To Len(ch) n=Asc(Mid(ch, k, 1)-Asc(“A“) If n=0 Then count(n)=
14、count(n)+1 End If Next k m=count(0) For k=1 To 25 If mcount(k)Then m=count(k) End If Next k Print m End Sub（分数：1.00）A.0B.1C.2D.332.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(“Enter an integer“) b=Text1. Text Text1. Text=b+a End Su
15、b 程序运行后，在文本框中输入 456，然后单击命令按钮，在输入对话框中输入 123，则文本框中显示的内容是_。（分数：1.00）A.579B.123C.456123D.45633.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1. Text=Str(n) End Sub 程序运行后，单击命令按钮，在文
16、本框中显示的值是_。（分数：1.00）A.2B.3C.4D.534.设有如下的程序段： n=0 For i=1 To 3 For j=1 To i For k=j To 3 n=n+1 Next k Next j Next i 执行上面的程序段后，n 的值为_。（分数：1.00）A.3B.21C.9D.1435.在窗体上画一个名称为 Command1 的命令按钮，一个名称为 Label1 的标签，然后编写如下事件过程： Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 If x Mod 3=0 Then s=s+1 Next i La
17、bel1. Caption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是_。（分数：1.00）A.1B.5C.27D.4536.阅读程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox(“请输入一个整数“) y=Val(y) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、24、35、46，输出结果为_。（分数：1.00）A.100B.50C.120D.7037.在窗体上
18、画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=array1(2, 3)+array1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：1.00）A.15B.14C.13D.1238.在窗体上
19、画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() d=0 c=10 x=Array(10, 12, 21, 32, 24) For i=1 To 5 If x(i)c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：1.00）A.89B.99C.23D.7739.假定有以下通用过程： Function Fun(n As Integer)As Integer
20、x=n*n Fun=x-11 End Function 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer For i=1 To 2 y=Fun(i) Print y; Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是_。（分数：1.00）A.1 3B.10 8C.-10 -7D.0 540.设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Fun
21、ction 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x; y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。（分数：1.00）A.10 5B.20 40C.20 5D.10 40二、基本操作题(总题数：2，分数：18.00)41.在名称为 Form1 的窗体上添加一个标签(名称为 Label1，标题为空白，BorderStyle 属性为1，Visible 属性为 False)、一个文本框(名称
22、为 Text1，Text 属性初始内容为空)和一个命令按钮(名称为Command1，标题为“显示”)，如图 1 所示。然后编写命令按钮的 Click 事件过程。程序运行后，在文本框中输入“计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。程序运行后的窗体如图 2 所示。要求程序中不得使用任何变量。 图 1（分数：9.00）_42.在名称为 Form1 的窗体上添加一个文本框(名称为 Text1)和一个水平滚动条(名称为 HScroll1)，如图1 所示。存属件窗口中对滚动设詈加下属件： 编写适当的事件过程。程序运行后，通过改变滚动条上的刻度值，则可扩大或缩小文本框
23、的高度，并使得文本框的宽度始终是其高度的 1.2 倍。程序运行后的窗体如图 2 所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在 下，工程文件名保存为 sjt2.vbp，窗体文件名保存为 sjt2.frm。 图 1（分数：9.00）_三、简单应用题(总题数：2，分数：24.00)43.在考生文件夹下有一个工程文件 sjt3.vbp，请在窗体上添加两个单选按钮(名称分别为 Option1 和Option2，标题分别为“添加项目”和“删除项目”)，一个列表框(名称为 List1)和一个文本框(名称为Text1)，如图 1 所示。编写窗体的 Click 事件过程。程序运行后，如果选择“添加
24、项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目内容(内容任意，不少于三个)，并添加到列表框中；如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目内容，将其从列表框中删除。程序的运行情况如图 2 所示。 在考生文件夹下的工程文件 sjt3.vbp(相应的窗体文件名为 sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。 图 1（分数：12.00）_44.在考生文件夹下有一个工程文件 sjt4.vbp(相应的窗体文件名为 sjt4.frm)，其功能是通过调用过程Sort 将数组进行降序排序。程序运行后，分别向四个文本框中各输入一个整数(如图 1 所
25、示)，然后单击命令按钮，即可使数组按降序排序，并显示在文本框中(如图 2 所示)。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 图 1（分数：12.00）_四、综合应用题(总题数：1，分数：18.00)45.在窗体上建立三个菜单(名称分别为 Read、Calc 和 Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，然后添加一个文本框(名称为 Text1，可显示多行，ScrollBars 属性设置为 2)(如图所示)。程序运行后，如果执行“读入数据
26、”命令，则读入 datain1.txt 文件中的 100 个整数，放入一个数组中，数组的下界为 1；如果单击“计算并输出”按钮，则把该数组中小于 50 的元素显示在文本框中，求出它们的和，并把所求得的和显示在窗体上；如果单击“存盘”按钮，则将所求得的和存入 下的dataout.txt 文件中。 （分数：18.00）_二级 VISUAL+BASIC-6-2 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.下列叙述中正确的是_。（分数：1.00）A.算法就是程序B.设计算法时只需要考虑数据结构的设计C.设计算法时只需要考虑结果的可靠性D.以上三种
27、说法都不对 解析：解析 算法是指解题方案的准确而完整的描述，算法不等于程序，也不等于计算方法，所以 A 错误。设计算法时不仅要考虑对数据对象的运算和操作，还要考虑算法的控制结构。2.下列叙述中正确的是_。（分数：1.00）A.有一个以上根结点的数据结构不一定是非线性结构B.只有一个根结点的数据结构不一定是线性结构 C.循环链表是非线性结构D.双向链表是非线性结构解析：解析 线性结构应满足：有且只有一个根结点与每个结点最多有一个前件，也最多有一个后件，所以 B 正确。所以有一个以上根结点的数据结构一定是非线性结构，所以 A 错误。循环链表和双向链表都是线性结构的数据结构。3.下列关于二叉树的叙述
28、中，正确的是_。（分数：1.00）A.叶子结点总是比度为 2 的结点少一个B.叶子结点总是比度为 2 的结点多一个 C.叶子结点数是度为 2 的结点数的两倍D.度为 2 的结点数是度为 1 的结点数的两倍解析：解析 根据二叉树的基本性质 3：在任意一棵二叉树中，度为 0 的叶子结点总是比度为 2 的结点多一个。所以选择 B。4.软件生命周期中的活动不包括_。（分数：1.00）A.市场调研 B.需求分析C.软件测试D.软件维护解析：解析 软件生命周期可以分为软件定义、软件开发与软件运行维护三个阶段。主要活动阶段是：可行性研究与计划阶段，需求分析，软件设计，软件实现，软件测试，运行和维护，所以选择
29、 A。5.某系统总体结构图如下图所示： （分数：1.00）A.7B.6C.3 D.2解析：解析 根据总体结构图可以看出该树的深度为 3，比如：XY 系统功能 2功能 2.1，就是最深的度数的一个表现。6.程序调试的任务是_。（分数：1.00）A.设计测试用例B.验证程序的正确性C.发现程序中的错误D.诊断和改正程序中的错误 解析：解析 程序调试的任务是诊断和改正程序中的错误。7.下列关于数据库设计的叙述中，正确的是_。（分数：1.00）A.在需求分析阶段建立数据字典 B.在概念设计阶段建立数据字典C.在逻辑设计阶段建立数据字典D.在物理设计阶段建立数据字典解析：解析 数据字典是在需求分析阶段建
30、立，在数据库设计过程中不断修改、充实和完善的。8.数据库系统的三级模式不包括_。（分数：1.00）A.概念模式B.内模式C.外模式D.数据模式 解析：解析 数据库系统的三级模式是概念模式、外模式和内模式，所以选择 D。9.有三个关系 R、S 和 T 如下： （分数：1.00）A.自然连接 B交C.投影D并解析：解析 自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重复的属性列去掉，所以根据 T 中元组可以判断 R 和 S 做的是自然连接操作。10.下列选项中属于面向对象设计方法主要特征的是_。（分数：1.00）A.继承 B.自顶向下C.模块化D.逐
31、步求精解析：解析 面向对象基本方法的基本概念有对象、类和实例、消息、继承与多态性，所以选择 A。11.以下合法的 VB 变量名是_。（分数：1.00）A.#_1B.123_aC.stringD.x_123 解析：解析 VB 中变量的命名规则为：必须以字母或汉字开头由字母、汉字、数字或下划线组成不能使用 VB 已经占用的关键字。#_1 中#是类型符号，变量名中不能用 VB 保留符号。故不合法。123_a 以数字开头不合法。string 是 VB 的关键字，也不合法。故 D 选项正确。12.以下关于 VB 的叙述中，错误的是_。（分数：1.00）A.VB 采用事件驱动方式运行B.VB 既能以解释方
32、式运行，也能以编译方式运行C.VB 程序代码中，过程的书写顺序与执行顺序无关D.VB 中一个对象对应一个事件 解析：解析 VB 中一个对象可以对应一个或多个事件，事件可由用户或系统触发，触发后执行相应的事件过程。不过，不一定一个对象的所有事件过程都执行，响应哪个事件过程就执行哪个。故 D 选项错误。13.有如下数据定义语句： Dim X,Y As Integer 以上语句表明_。（分数：1.00）A.X、Y 均是整型变量B.X 是整型变量，Y 是变体类型变量C.X 是变体类型变量，Y 是整型变量 D.X 是整型变量，Y 是字符型变量解析：解析 用 Dim 可同时定义多个变量，但变量要分别声明其
33、数据类型，如果不声明数据类型，默认是 Variant 变体型变量。 本题中，变量 X 定义时没声明数据类型，所以为 Variant 型变量，变量 Y 是整型变量。故 C 选项正确。14.以下关于控件数组的叙述中，正确的是_。（分数：1.00）A.数组中各个控件具有相同的名称 B.数组中可包含不同类型的控件C.数组中各个控件具有相同的 Index 属性值D.数组元素不同，可以响应的事件也不同解析：解析 控件数组中各控件具有相同的名称，而且类型是相同的，但 Index 属性值不同。数组中各控件响应的事件是相同，用 Index 属性值来区分每个控件。故 A 选项正确，B、C、D 选项错误。15.以下
34、关于 VB 文件的叙述中，错误的是_。（分数：1.00）A.标准模块文件不属于任何一个窗体B.工程文件的扩展名为.frm C.一个工程只有一个工程文件D.一个工程可以有多个窗体文件解析：解析 工程文件的扩展名为.vbp，故 B 选项错误。16.设 x 为一整型变量，且情况语句的开始为：Select Case x，则不符合语法规则的 Case 子句是_。（分数：1.00）A.Case Is20B.Case 1 To 10C.Case 0Is And IS20 D.Case 2, 3, 4解析：解析 select Case 语句中表达式的形式可以是：常量或变量；若干符合条件的值用“,”隔开；表达式
35、 1 to 表达式 2；Is 关系表达式。 本题中选项 A、B 和 D 都符合语法规则。 选项 C 中 Is 关系表达式语法错误，它可以是 Is0 或 Is20，但不能是组合的 0Is And Is20。故 C选项错误。17.现有如下语句： x=IIf(a50, Im(a/3), a Mod 2) 当 a=52 时，x 的值是_。（分数：1.00）A.0B.1C.17 D.18解析：解析 首先计算 Int(a/3)即 Int(52/3)=Int(17)=17，52 MOD 2 结果为 0。 再计算 IIf(5250, 17, 0)，5250 结果为 True，所以 IIF 函数返回 17，则
36、x 值为 17，故选 C。18.设有如下数组定义语句： Dim a(-1 To 4, 3)As Integer 以下叙述中正确的是_。（分数：1.00）A.a 数组有 18 个数组元素B.a 数组有 20 个数组元素C.a 数组有 24 个数组元素 D.语法有错解析：解析 本题定义了一个二维数组，第一维的下标-1 to 4，即为-1，0，1，2，3，4(共 6 行)，第二维下标 3，即 0to 3(0，1，2，3 共 4 列)，6*4=24 二维数组有 24 个数组元素。故选 C。19.以下叙述中错误的是_。（分数：1.00）A.Sub Main 是定义在标准模块中的特定过程B.一个工程中只能
37、有一个 Sub Main 过程C.sub Main 过程不能有返回值D.当工程中含有 Sub Main 过程时，工程执行时一定最先执行该过程 解析：解析 VB 工程的启动对象有：Sub Main 过程(在标准模块中定义)、窗体(在多个窗体可选一个窗体启动)，我们可以通过在“工程属性”对话框中设置启动对象来实现，设置哪个就用哪个启动。所以当工程中含有 Sub Main 过程时，工程执行不一定最先执行该过程，也可以通过窗体启动。故选项 D 错误。20.关于随机文件，以下叙述中错误的是_。（分数：1.00）A.使用随机文件能节约空间 B.随机文件记录中，每个字段的长度是固定的C.随机文件中，每个记录
38、的长度相等D.随机文件的每个记录都有一个记录号解析：解析 随机文件中的每一行是一条记录，每条记录的长度是固定的、相等的，并且都有一个记录号。Open 语句中的 Len 用于指定记录长度，当指定长度小于记录实际长度时将产生错误；大于实际长度时，可以写入，但浪费空间，所以随机文件占据磁盘空间较大，故选项 A 错误。21.在名称为 Frame1 的框架中，有两个名称分别为 op1、op2 的单选按钮，标题分别为“单程”、“往返”，如图所示。 （分数：1.00）A.若仅把 Frame1 的 Enabled 属性设为 False，则 op1、op2 仍可用B.对于上图，op1. Value 的值为 Tm
39、e C.对于上图，执行 Op1. Value=False 命令，则“往返”单选按钮被选中D.对于上图，执行 Op1. Value=0 命令，程序出错解析：解析 当 Frame1 的 Enabled 属性设为 False 后，框架 Frame1 变为不可用，它里面放的两个单选按钮也就变为不可用，故 A 选项错误； 当 Op1.Value 为 False 时，“单程”和“往返”单选按钮都处于未选中状态，故 C 选项错误； Op1.Value 的值为 0，即为 False，语句正确，没有程序错误，故 D 选项说法错误； 根据图可只，“单程”单选按钮处于选中状态，Op1.Value 的值为 True，
40、故 B 选项正确。22.以下能够设置控件焦点的方法是_。（分数：1.00）A.SetFocus B.GotFocusC.LostFocusD.TabStop解析：解析 GotFocus 和 LostFocus 是控件获得焦点和失去焦点时触发的两个事件；TabStop 是控件的属性；SetFocus 方法是控件设置、获得焦点的方法。故选 A。23.使用 Line 控件在窗体上画一条从(0，0)到(600，700)的直线，则其相应属性的值应是_。（分数：1.00）A.X1=0, X2=600, Y1=0, Y2=700 B.Y1=0, Y2=600, X1=0, X2=700C.X1=0, X2=
41、0, Y1=600, Y2=700D.Y1=0, Y2=0, X1=600, X2=700解析：解析 X1、Y1、X2、Y2 属性是直线的起点、终点坐标。故选 A。24.设有窗体的 Form_MouseMove 事件过程如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If(Button And 3)=3 Then Print“检查按键“ End If End Sub 关于上述过程，以下叙述中正确的是_。（分数：1.00）A.按下鼠标左键时，在窗体上显示“检
42、查按键”B.按下鼠标右键时，在窗体上显示“检查按键”C.同时按下鼠标左、右键时，在窗体上显示“检查按键” D.不论做何种操作，窗体上都不会显示解析：解析 MoseMove 事件中的 Button 表示鼠标所有按键的状态。用 0、1、2 三个位表示左、右、中键，当按下某个键时，相应位是 1，否则是 0。三位的二进制数也可转换为十进制数，作为 Button 的值。如表： Button参数值 操作 000(十进制0) 未按任何键 001(十进制1) 左键被按下(默认) 010(十进制2) 右键被按下 011(十进制3) 左、右键同时被按下 100(十进制4) 中间键被按下 101(十进制5) 同时按
43、下中间和左键 110(十进制6) 同时按下中间和右键 n1(十进制7) 3 个键同时被按下 本题中当 Button 值为 011 或 111 时，(Button And 3)=3，条件才成立，窗体上显示“检查按键”。这说明只要同时按下鼠标的左右键时，在窗体上就显示“检查按键”。故选 C。25.窗体上有一个名称为 CD1 的通用对话框，一个名称为 Command1 的命令按钮，相应的事件过程如下： Private Sub Command1_Click() CD1. Filter=“All File|*.*|Text File|*.txt|PPT|*.ppt“ CD1. FiherIndex=2
44、CD1. InitDir=“C:/1“ CD1. FileName=“default“ CD1. ShowSave End Sub 关于上述过程，以下叙述中正确的是_。（分数：1.00）A.默认过滤器为“*.ppt”B.指定的初始目录为“C：/” C.打开的文件对话框的标题为“default”D.上面事件过程实现保存文件的操作解析：解析 通用对话框的 FiherIndex 属性为 1 时表示默认过滤器为第 1 个文件类型，为 2 时表示为第2 个文件类型。InitDir 属性值指定通用对话框的初始目录。FileName 属性表示对话框中默认的文件名。ShowSave 方法表示打开另存为对话框，
45、执行保存文件的操作。26.以下关于窗体的叙述中，错误的是_。（分数：1.00）A.Hide 方法能隐藏窗体，但窗体仍在内存中B.使用 Show 方法显示窗体时，一定触发 Load 事件 C.移动或放大窗体时，会触发 Paint 事件D.双击窗体时，会触发 DblClick 事件解析：解析 窗体的 Load 事件是把窗体装入工作区的事件，即装入内存，然后窗体才显示出来，使用Hide 方法可以使窗体隐藏，但窗体仍在内存中，使用 Show 方法能使窗体显示出来。当窗体被移动或放大时，或者窗口移动时覆盖了一个窗体时，触发 Paint 事件。双击窗体时会触发窗体的 DblClick 事件。27.下列控件
46、中，没有 Caption 属性的是_。（分数：1.00）A.单选按钮B.复选框C.列表框 D.框架解析：解析 列表框控件没有 Caption 属性。28.将数据项“Student”添加到名称为 List1 的列表框中，并使其成为列表框第一项的语句为_。（分数：1.00）A.List1. AddItem “Student“,0 B.List1. AddItem “Student“, 1C.List1. AddItem0, “Student“D.List1. AddItem 1, “Student“解析：解析 List 控件的 AddItem 方法的语法是：AddItem(String，index
47、)。其中 index 是列表框中列表项的索引值，第一项的索引值为 0。29.下列针对框架控件的叙述中，错误的是_。（分数：1.00）A.框架是一个容器控件B.框架也有 Click 和 DblClick 事件C.框架也可以接受用户的输入 D.使用框架的主要目的是为了对控件进行分组解析：解析 框架是一个容器控件，用于将屏幕上的对象分组。框架常用的事件是 Click 和 DblClick，它不接受用户输入，不能显示文本和图形，也不能与图形相连。30.窗体上有一个名为 Command1 的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(5)As Integer For k=1 To 5 arr
