1、二级 VISUAL+BASIC-4-2 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.下列叙述中正确的是_。（分数：1.00）A.线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B.线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C.线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D.线性表的链式存储结构与顺序存储结构在存储空间的需求上没有可比性2.下列叙述中正确的是_。（分数：1.00）A.栈是一种先进先出的线性表B.队列是一种后进先出的线性表C.栈与队列都是非线性结构D.以上三种说法都不对3.软件测试的目
2、的是_。（分数：1.00）A.评估软件可靠性B.发现并改正程序中的错误C.改正程序中的错误D.发现程序中的错误4.在软件开发中，需求分析阶段产生的主要文档是_。（分数：1.00）A.软件集成测试计划B.软件详细设计说明书C.用户手册D.软件需求规格说明书5.软件生命周期是指_。（分数：1.00）A.软件产品从提出、实现、使用维护到停止使用退役的过程B.软件从需求分析、设计、实现到测试完成的过程C.软件的开发过程D.软件的运行维护过程6.面向对象方法中，继承是指_。（分数：1.00）A.一组对象所具有的相似性质B.一个对象具有另一个对象的性质C.各对象之间的共同性质D.类之间共享属性和操作的机制
3、7.层次型、网状型和关系型数据库划分原则是_。（分数：1.00）A.记录长度B.文件的大小C.联系的复杂程度D.数据之间的联系方式8.一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是_。（分数：1.00）A.一对一B.一对多C.多对多D.多对一9.数据库设计中反映用户对数据要求的模式是_。（分数：1.00）A.内模式B.概念模式C.外模式D.设计模式10.有三个关系 R、S 和 T 如下： （分数：1.00）A.自然连接B差C交D并11.以下叙述中正确的是_。（分数：1.00）A.在属性窗口只能设置窗体的属性B.在属性窗口只能设置控件的属性C.
4、在属性窗口可以设置窗体和控件的属性D.在属性窗口可以设置任何对象的属性12.下列打开“代码窗口”的操作中错误的是_。（分数：1.00）A.按 F4 键B.单击“工程资源管理器”窗口中的“查看代码”按钮C.双击已建立好的控件D.执行“视图”菜单中的“代码窗口”命令13.以下叙述中错误的是_。（分数：1.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性D.Visual Basic 中控件的某些属性只能在运行时设置14.设 a
5、=2，b=3，c=4，d=5，下列表达式的值是_。 ab And c=d Or 2*ac（分数：1.00）A.TrueB.FalseC.-1D.115.在标准模块中用 Public 关键字定义的变量，其作用域为_。（分数：1.00）A.本模块所有过程B.整个工程C.所有窗体D.所有标准模块16.假定有如下语句： answer $=MsgBox(“String1“, “String2“, “String3“,2) 执行该语句后，将显示一个信息框，单击其中的“确定”按钮，则 answer $的值为_。（分数：1.00）A.String1B.String2C.String3D.117.设 a=10，
6、b=5，c=1，执行语句：Print abc 后，窗体上显示的是_。（分数：1.00）A.TrueB.FalseC.1D.出错18.为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为_。（分数：1.00）A.ValueB.ByValC.ByRefD.Reference19.以下说法中正确的是_。（分数：1.00）A.事件过程也是过程，只能由其他过程调用B.事件过程的过程名是由程序设计者命名的C.事件过程通常放在标准模块中D.事件过程是用来处理由用户操作或系统激发的事件的代码20.设有语句： Open “c:/Test.Dat“ For Output As #1 则以下叙述中错误的是
7、_。（分数：1.00）A.该语句打开 C 盘根目录下的一个文件 Test.Dat，如果该文件不存在则出错B.该语句打开 C 盘根目录下一个名为 Test.Dat 的文件，如果该文件不存在则创建该文件C.该语句打开文件的文件号为 1D.执行该语句后，就可以通过 Print #句向文件 Test.Dat 中写入信息21.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1. Text=“ “ Text2. Text=“ “ Text1. SetFocus End Sub Pfivae Sub Tex
8、t1_Change() Text2. Text=Mid(Text1. Text, 6) End Sub 程序运行后，如果在文本框 Text1 中输入 ChinaBeijing，则在文本框 Text2 中显示的内容是_。（分数：1.00）A.ChinaBeijingB.ChinaC.BeijingD.ChinaB22.在窗体上画一个水平滚动条，其属性值满足 MinMax。程序运行后，如果单击滚动条右端的箭头，则Value 属性值_。（分数：1.00）A.增加一个 SmallChange 量B.减少一个 SmallChange 量C.增加一个 LargeChange 量D.减少一个 LargeCh
9、ange 量23.在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为 Combo1，Command1 和 Text1，然后编写如下事件过程： Private Sub Form_Load() Combo1. AddItem “AAAAA“ Combo1. AddItem “BBBBB“ Combo1. AddItem “CCCCC“ Combo1. AddItem “DDDDD“ CombO1. AddItem “EEEEE“ End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的 Click 事件过程中应使用的语句为_。
10、（分数：1.00）A.Text1. Text=Combo1. List(2)B.Text1. Text=Combo1. TextC.Text1. Text=Combol. List(3)D.Text1. Text=Combo1. ListIndex24.为了使文本框只具有垂直滚动条，应先把 MultiLine 属性设置为 True，然后再把 ScrollBars 属性设置为_。（分数：1.00）A.0B.1C.2D.325.能够用于标识对象名称的属性是_。（分数：1.00）A.NameB.CaptionC.ValueD.Text26.关于水平滚动条，如下叙述中错误的是_。（分数：1.00）A.
11、当滚动框的位置改变时，触发 Change 事件B.当拖动滚动条中的滚动框时，触发 Scroll 事件C.LargeChange 属性是滚动条的最大值D.Value 是滚动条中滚动框的当前值27.对于列表框控件 List1，能够表示当前被选中列表项内容的是_。（分数：1.00）A.List1.TextB.List1.IndexC.List1.ListIndexD.List1.List28.当文本框中的内容发生改变时所触发的事件是_。（分数：1.00）A.KeyUpB.ChangeC.LostFocusD.GotFocus29.定时器的 Interval 属性的值是一个整数，它表示的是_。（分数：
12、1.00）A.毫秒数B.秒数C.分钟数D.小时数30.阅读程序： Private Sub Form_Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是_。（分数：1.00）A.105B.1C.120D.1531.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Chck() Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1 Step-1 S=s+a(i)*j j=j
13、*10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是_。（分数：1.00）A.4321B.1234C.34D.1232.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim A1(4)As Integer, A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox(“请输入一个整数“) A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依
14、次输入 2、4、6，则输出结果为_。（分数：1.00）A.0B.1C.2D.333.在窗体上画两个标签和一个命令按钮，其名称分别为 Label1、Label2 和 Command1，然后编写如下程序： Private Sub func(L As Label) L. Caption=“1234“ End Sub Private Sub Form_Load() Label1. Caption=“ABCDE“ Label2. Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2. Caption) Call func(Label1)
15、 Label2. Caption=a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为_。（分数：1.00）A.ABCD 和 10B.1234 和 100C.ABCD 和 100D.1234 和 1034.在窗体上画一个命令按钮(名称为 Command1)，并编写如下代码： Function Fun1(ByVal a As Integer,b As Integer)As Integer Dim t As Integer t=a-b b=t+a Fun1=t+b End Function Private Sub Command1_Click() Dim x As Inte
16、ger x=10 Print Fun1(Fun1(x,(Fun1(x, x-1), x-1) End Sub 程序运行后，单击命令按钮，输出结果是_。（分数：1.00）A.10B.0C.11D.2135.设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String, strL As Integer tStr=“ “ strL=Len(xStr) i=strL/2 Do While i=strL tStr=tStr Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容
17、为_。（分数：1.00）A.2 0 00 4 00 0 6B.2 0 40 4 04 0 6C.2 3 03 4 00 0 6D.2 0 00 4 50 5 6二、基本操作题(总题数：2，分数：18.00)41.在名称为 Form1 的窗体上添加一个名称为 Label1、标题为“滚动条控件”的标签，一个名称为HScroll1 的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最大值为 100，最小值为 1，滚动条的高度为 300，宽度为 3000，滚动块的初始位置为 20。程序运行后的窗体如图所示。 注意：存盘时必须存放在 下，工程文件名保存为 sjt1.vbp，窗体文件名保存为 sj
18、t1.frm。 （分数：9.00）_42.在名称为 Form1 的窗体上添加一个名称为 Shape1 的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。添加一个名称为 Timer1 的计时器，在属性窗口中将其设置为禁用，时间间隔为 0.5 秒，窗体如图所示。请编写窗体的 Load 事件过程和计时器的事件过程，使得程序一开始运行，计时器即变为可用，且每隔 0.5 秒形状控件向下移动 100。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在 下，工程文件名保存为 sjt2.vbp，窗体文件名保存为 sjt2.frm。 （分数：9.00）_三、简单应用题(总题数
19、：2，分数：24.00)43.在 中有一个工程文件 sjt3.vbp。程序的功能是输入用户名和密码。程序运行时，当输入密码到文本框 Text2 中时，如果“显示密码”复选框没有被选中，则在文本框 Text3 中国时显示“#”(如图所示)；如果“显示密码”复选框被选中，再重新输入密码时，则在 Text3 中国时显示的是密码字符本身。 在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 （分数：12.00）_44.中有一个工程文件 sjt4.vbp。该程序的功能是
20、：程序运行时，向文本框控件数组 Text1(有 5 个文本框)中任意输入 5 个数，单击名称为 Command1 的命令按钮，则找出其中最小数并在标签 lblResult 中显示。给出的窗体文件中已经有了全部控件，但程序不完整，其中函数 FindMin 的作用是返回两个数中的较小数。要求：去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 （分数：12.00）_四、综合应用题(总题数：1，分数：18.00)45.在 中有一个工程文件 sjt5.vbp。该程序的功能是：分别统计 7*7 数组四周元素之和及四周元素中能够
21、被 7 整除的元素的个数，并将统计结果在相应的标签中显示。请仔细阅读已有程序，然后在标出的位置编写适当的程序，实现上述的功能。 要求：不得修改原有程序和控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名进行存盘。 （分数：18.00）_二级 VISUAL+BASIC-4-2 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.下列叙述中正确的是_。（分数：1.00）A.线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B.线性表的链式存储结构所需要的存储空间一般
22、要多于顺序存储结构 C.线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D.线性表的链式存储结构与顺序存储结构在存储空间的需求上没有可比性解析：解析 线性链式存储结构中每个结点都由数据域与指针域两部分组成，增加了存储空间，所以一般要多于顺序存储结构。2.下列叙述中正确的是_。（分数：1.00）A.栈是一种先进先出的线性表B.队列是一种后进先出的线性表C.栈与队列都是非线性结构D.以上三种说法都不对 解析：解析 栈是一种先进后出的线性表，队列是一种先进先出的线性表，栈与队列都是线性结构。3.软件测试的目的是_。（分数：1.00）A.评估软件可靠性B.发现并改正程序中的错误C.改正程序中
23、的错误D.发现程序中的错误 解析：解析 软件测试是为了发现错误而执行程序的过程，测试要以查找错误为中心，而不是为了演示软件的正确功能。不是为了评估软件或改正错误。4.在软件开发中，需求分析阶段产生的主要文档是_。（分数：1.00）A.软件集成测试计划B.软件详细设计说明书C.用户手册D.软件需求规格说明书 解析：解析 需求分析阶段的工作可以概括为：需求获取、需求分析、编写需求规格说明书、需求评审四个方面。所以选择 D。5.软件生命周期是指_。（分数：1.00）A.软件产品从提出、实现、使用维护到停止使用退役的过程 B.软件从需求分析、设计、实现到测试完成的过程C.软件的开发过程D.软件的运行维
24、护过程解析：解析 通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为软件生命周期。也就是说，软件产品从考虑其概念开始，到该软件产品不能使用为止的整个时期都属于软件生命周期。6.面向对象方法中，继承是指_。（分数：1.00）A.一组对象所具有的相似性质B.一个对象具有另一个对象的性质C.各对象之间的共同性质D.类之间共享属性和操作的机制 解析：解析 继承是面向对象的方法的一个主要特征，是使用已有的类的定义作为基础建立新类的定义技术。广义的说，继承是指能够直接获得已有的性质和特征，而不必重复定义它们，所以说继承是指类之间共享属性和操作的机制。7.层次型、网状型和关系型数据库划分原则是_
25、。（分数：1.00）A.记录长度B.文件的大小C.联系的复杂程度D.数据之间的联系方式 解析：解析 层次模型的基本结构是树形结构，网状模型是一个不加任何条件限制的无向图，关系模型采用二维表来表示，所以三种数据库的划分原则是数据之间的联系方式。8.一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是_。（分数：1.00）A.一对一B.一对多C.多对多 D.多对一解析：解析 因为一个人可以操作多个计算机，而一台计算机又可以被多个人使用，所以两个实体之间是多对多的关系。9.数据库设计中反映用户对数据要求的模式是_。（分数：1.00）A.内模式B.概念模式
26、C.外模式 D.设计模式解析：解析 数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述，所以选择 C。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法。10.有三个关系 R、S 和 T 如下： （分数：1.00）A.自然连接B差 C交D并解析：解析 关系 T 中的元组是 R 关系中有而 S 关系中没有的元组的集合，所以进行的是差的运算。11.以下叙述中正确的是_。（分数：1.00）A.在属性窗口只能设置窗体的属性B.在属性窗口只能设置控件的
27、属性C.在属性窗口可以设置窗体和控件的属性 D.在属性窗口可以设置任何对象的属性解析：解析 在属性窗口中只能设置窗体和各种控件的属性，故 C 选项正确。12.下列打开“代码窗口”的操作中错误的是_。（分数：1.00）A.按 F4 键 B.单击“工程资源管理器”窗口中的“查看代码”按钮C.双击已建立好的控件D.执行“视图”菜单中的“代码窗口”命令解析：解析 按 F4 键打开的是“属性窗口”，故 A 选项错误。13.以下叙述中错误的是_。（分数：1.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Bas
28、ic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性 D.Visual Basic 中控件的某些属性只能在运行时设置解析：解析 VB 工具箱中不是所有的控件都具有宽度和高度属性，比如定时器控件 Timer、直线控件Line 就没有。故 C 选项错误。14.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 ab And c=d Or 2*ac（分数：1.00）A.TrueB.False C.-1D.1解析：解析 根据运算符的优先级顺序，先计算算术运算符，结果是 23 And 4=5 Or 44；再计算关系运算符，结果为 False And Trile Or Fals
29、e；And 优先级高于 Or 优先级，先计算 And，再计算 Or，最后结果是 False。故 B 选项正确。15.在标准模块中用 Public 关键字定义的变量，其作用域为_。（分数：1.00）A.本模块所有过程B.整个工程 C.所有窗体D.所有标准模块解析：解析 在标准模块中用 Public 定义的变量是公用的、全局变量，在整个工程中的所有窗口、模块中都能引用，作用域是整个工程。故 B 选项正确。16.假定有如下语句： answer $=MsgBox(“String1“, “String2“, “String3“,2) 执行该语句后，将显示一个信息框，单击其中的“确定”按钮，则 answe
30、r $的值为_。（分数：1.00）A.String1B.String2C.String3D.1 解析：解析 MsgBox 函数的作用：在对话框中显示消息，等待用户单击按钮，并返回一整数，告诉用户单击哪一个按钮。Msgbox 函数的格式是： MsgBox(提示信息,按钮样式,标题信息,帮助文件，帮助上下文编号) 本题 MsgBox 函数语句运行后，信息对话框中提示信息是“String1”，标题栏信息是“String”，对话框出现一个“确定”按钮，单击“确定”按钮返回“确定”按钮对应的一个整数值 1，并把 1 赋给 answer变量。故 D 选项正确。17.设 a=10，b=5，c=1，执行语句：
31、Print abc 后，窗体上显示的是_。（分数：1.00）A.TrueB.False C.1D.出错解析：解析 本题中 Print 语句中的表达式只有“”运算符，相同优先级，左结合。先计算 ab，即105，值为 True，(即-1)，再计算-11，结果为 False。故 B 选项正确。18.为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为_。（分数：1.00）A.ValueB.ByVal C.ByRefD.Reference解析：解析 Value 是控件的属性名。用 ByVal 关键字声明形参表示该参数按值传递。ByRef 是默认的参数类型，表示该参数按地址传递。没有 Refe
32、rence 关键字。故 B 选项正确。19.以下说法中正确的是_。（分数：1.00）A.事件过程也是过程，只能由其他过程调用B.事件过程的过程名是由程序设计者命名的C.事件过程通常放在标准模块中D.事件过程是用来处理由用户操作或系统激发的事件的代码 解析：解析 事件过程也是过程，其他过程或系统都可以调用它。故 A 选项错误。 事件过程的过程名是由系统命名的。故 B 选项错误。 通常事件过程放在窗体模块中。故 C 选项错误。 事件过程是用来处理由用户操作或系统激发的事件的代码。只有当用户或系统触发事件后，才执行相应的事件过程。故 D 选项正确。20.设有语句： Open “c:/Test.Dat
33、“ For Output As #1 则以下叙述中错误的是_。（分数：1.00）A.该语句打开 C 盘根目录下的一个文件 Test.Dat，如果该文件不存在则出错 B.该语句打开 C 盘根目录下一个名为 Test.Dat 的文件，如果该文件不存在则创建该文件C.该语句打开文件的文件号为 1D.执行该语句后，就可以通过 Print #句向文件 Test.Dat 中写入信息解析：解析 本题中是用 Open 语句打开一个顺序文件 Test.Dat，并指定一个文件号 1。故 C 选项正确。 如果 Test.Dat 文件不存在，则系统自动创建该文件。故 B 选项正确，A 选项错误。 用 For Outp
34、ut 模式打开文件，可通过。Print #语句向文件写入信息。故 D 选项正确。21.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1. Text=“ “ Text2. Text=“ “ Text1. SetFocus End Sub Pfivae Sub Text1_Change() Text2. Text=Mid(Text1. Text, 6) End Sub 程序运行后，如果在文本框 Text1 中输入 ChinaBeijing，则在文本框 Text2 中显示的内容是_。（分数：1.0
35、0）A.ChinaBeijingB.ChinaC.Beijing D.ChinaB解析：解析 程序运行后，在文本框 Text1 中输入字符后，触发它的 Change 事件，通过中部截取函数Mid 把文本框 Text1 中的内容从第 6 个字符B开始截取后面的字符，得到“Beijing”字符串，然后把截取的字符串在 Text2 中显示出来。故 C 选项正确。22.在窗体上画一个水平滚动条，其属性值满足 MinMax。程序运行后，如果单击滚动条右端的箭头，则Value 属性值_。（分数：1.00）A.增加一个 SmallChange 量 B.减少一个 SmallChange 量C.增加一个 Lar
36、geChange 量D.减少一个 LargeChange 量解析：解析 当水平滚动条的属性值 MinMax 时，如果单击滚动条右端或左端的箭头，Value 属性值会增加或减少 SmallChange 量；如果单击滚动块和右端箭头之间空白的地方时，Value 属性值会增加LargeChange 量，反之，减少 LargeChange 量。 本题单击的是滚动条右端的箭头，故 Vlaue 属性值应该是增加一个 SmallChange 量。故选 A。23.在窗体上画一个组合框，一个命令按钮和一个文本框，其名称分别为 Combo1，Command1 和 Text1，然后编写如下事件过程： Private
37、 Sub Form_Load() Combo1. AddItem “AAAAA“ Combo1. AddItem “BBBBB“ Combo1. AddItem “CCCCC“ Combo1. AddItem “DDDDD“ CombO1. AddItem “EEEEE“ End Sub 程序运行后，如果单击命令按钮，则在文本框中显示组合框的项目“CCCCC”。为了实现该操作，在命令按钮的 Click 事件过程中应使用的语句为_。（分数：1.00）A.Text1. Text=Combo1. List(2) B.Text1. Text=Combo1. TextC.Text1. Text=Comb
38、ol. List(3)D.Text1. Text=Combo1. ListIndex解析：解析 List 属性可以返回组合框中各选项的内容。用下标区分各选项，第 1 个选项下标为 0，依次类推。“CCCCC”为组合框中第 3 个选项，可以用 Combo1.List(2)返回选项内容。故 A 选项正确，C 选项错误。 Text 属性返回的是组合框中选中项目的内容；ListIndex 属性返回的是选中项目的索引值，即下标。故B、D 选项错误。24.为了使文本框只具有垂直滚动条，应先把 MultiLine 属性设置为 True，然后再把 ScrollBars 属性设置为_。（分数：1.00）A.0B
39、.1C.2 D.3解析：解析 文本框的 ScrollBars 属性值：0 表示无滚动条，1 表示只有水平滚动条，2 表示只有垂直滚动条，3 表示 l 水平和垂直滚动条都有。本题文本框只具有垂直滚动条，则 ScrollBar 属性值就设置为2，故 C 选项正确。25.能够用于标识对象名称的属性是_。（分数：1.00）A.Name B.CaptionC.ValueD.Text解析：解析 每个对象都有 Name 属性，用于识别不同的对象。故选 A。26.关于水平滚动条，如下叙述中错误的是_。（分数：1.00）A.当滚动框的位置改变时，触发 Change 事件B.当拖动滚动条中的滚动框时，触发 Scr
40、oll 事件C.LargeChange 属性是滚动条的最大值 D.Value 是滚动条中滚动框的当前值解析：解析 LargeChange 属性值是单击滚动块和左右两端箭头之间空白的地方时，Value 增加或减少的量，Small 属性值才是滚动条的最大值。故 C 选项错误。27.对于列表框控件 List1，能够表示当前被选中列表项内容的是_。（分数：1.00）A.List1.Text B.List1.IndexC.List1.ListIndexD.List1.List解析：解析 Text 属性可返回当前被选中列表项的内容，故选 A。 Index 属性是当有列表框控件数组时，区分各列表框用的；Li
41、stIndex 属性返回的是被选中的列表项的索引值；List 属性设置或返回各列表项的内容。28.当文本框中的内容发生改变时所触发的事件是_。（分数：1.00）A.KeyUpB.Change C.LostFocusD.GotFocus解析：解析 文本框中内容有变化时，触发 Change 事件。故 B 选项正确。 当在文本框中输入数据，松开键盘时触发它的 KeyUp 事件；文本框失去焦点触发 LostFocus 事件；获得焦点，触发 GotFocus 事件。29.定时器的 Interval 属性的值是一个整数，它表示的是_。（分数：1.00）A.毫秒数 B.秒数C.分钟数D.小时数解析：解析 I
42、nterval 的属性值是以毫秒计，所以是毫秒数。故选 A。30.阅读程序： Private Sub Form_Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是_。（分数：1.00）A.105B.1C.120D.15 解析：Mod 是求模运算符，即求余数，程序中 j Mod 3 的余数可能值为 0，1，2，1 到 15 的整数中，3、6、9、12、15 这 5 个数除 3 的余数为 0，1、4、7、10、13 这 5 个数除 3 余数为 1,2、5、8、11、14这 5 个数除 3 余数为
43、 2。因此 a 的值为 1*5+2*5=15，即选择 D 正确。31.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Chck() Dim a a=Array(1, 2, 3, 4) j=1 For i=4 To 1 Step-1 S=s+a(i)*j j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是_。（分数：1.00）A.4321B.1234 C.34D.12解析：解析 Array 函数用来为数组元素赋值，即把一个数据集读入某个数组。其格式为：数组
44、变量名=Array(数组元素值)。Dim a 语句没有变量类型名，则 a 默认为 Variant 类型，这里它作为数组变量使用。现在已知数组 a 中元素的值依次为 1、2、3、4，则 For 循环中各变量值变化如下： i=4 时，s=s+a(4)*j=0+4*1=4, j=1*10=10 i=3 时，s=s+a(3)*j=4+3*10=4+30=34, j=10*10=100 i=2 时，s=s+a(2)*j=34+2*100=34+200=234, j=100*10=1000 i=1 时，s=s+a(1)*j=234+1*1000=234+1000=1234。循环结束。s 的值为 1234。
45、32.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim A1(4)As Integer, A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox(“请输入一个整数“) A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入 2、4、6，则输出结果为_。（分数：1.00）A.0B.1C.2 D.3解析：解析 程序运行过程如下： k=0，输入 2, A1(k+1)=A1(
46、0+1)=A1(1)=2, A2(3-k)=A2(3-0)=A2(3)=2 k=1，输入 4, A1(k+1)=A1(1+1)=A1(2)=4, A2(3-k)=A2(3-1)=A2(2)=4 k=2，输入 6, A1(k+1)=A1(2+1)=A1(3)=6, A2(3-k)=A2(3-2)=A2(1)=6 k=3，For 循环结束，输出 A2(k)的值即 A2(3)的值，即 2。33.在窗体上画两个标签和一个命令按钮，其名称分别为 Label1、Label2 和 Command1，然后编写如下程序： Private Sub func(L As Label) L. Caption=“1234“ End Sub Private Sub Form_Load() Label1. Caption=“ABCDE“ Label2. Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2. Caption) Call func(Label1) Label2. Caption=a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为_。（分数：1.00）A.ABCD 和 10B.1234 和 100C.ABCD 和 100D.1234 和 10 解析：解析 程序运行，窗体加载时设置 Label1 显示
