1、VB 笔试-试卷 77 及答案解析(总分：92.00，做题时间：90 分钟)一、选择题(总题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_2.算法的空间复杂度是指( )。（分数：2.00）A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间3.下列叙述中正确的是( )。（分数：2.00）A.一个逻辑数据结构只能有一种存储结构B.逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据
2、处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率4.下列关于类、对象、属性和方法的叙述中，错误的是( )。（分数：2.00）A.类是对一类具有相同的属性和方法对象的描述B.属性用于描述对象的状态C.方法用于表示对象的行为D.基于同一个类产生的两个对象不可以分别设置自己的属性值5.在软件开发中，需求分析阶段产生的主要文档是( )。（分数：2.00）A.数据字典B.详细设计说明书C.数据流图说明书D.软件需求规格说明书6.数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和( )。（分数：2.00）A.编码设计B.测试阶段C.运行阶段D.物理设计7.在下列关系运
3、算中，不改变关系表中的属性个数但能减少元组个数的是( )。（分数：2.00）A.并B.交C.投影D.除8.下列叙述中，正确的是( )。（分数：2.00）A.软件交付使用后还需要进行维护B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令9.设一棵满二叉树共有 15 个结点，则在该满二叉树中的叶子结点数为( )。（分数：2.00）A.7B.8C.9D.1010.设 R 是一个 2 元关系，有 3 个元组，S 是一个 3 元关系，有 3 个元组。如 T=RS，则 T 的元组的个数为( )。（分数：2.00）A.6B.8C.9D.1211.下
4、列选项中，不属于数据库管理的是( )。（分数：2.00）A.数据库的建立B.数据库的调整C.数据库的监控D.数据库的校对12.下列可以激活属性窗口的操作是( )。（分数：2.00）A.用鼠标双击窗体的任何部位B.按 Ctrl+F4 键C.执行“工程”菜单中的“属性窗口”命令D.按 F4 键13.VB 的数值型数据分为( )两种。（分数：2.00）A.整数和长整数B.整数和浮点数C.单精度浮点数和双精度浮点数D.整数和货币数据类型14.设有变量声明为“Dim aDate As Date”，则能为变量 aDate 正确赋值的表达方式是( )。（分数：2.00）A.aDate=#82008#B.aD
5、ate=#“882008”#C.aDate=Date(“882008”)D.aDate=Format(“mdyy”,“882008”)15.从键盘上输入一个浮点数 asingle，利用字符串函数对该数进行处理后，如果输出的内容不是“非浮点数”，则对程序输出的内容分析正确的是( )。 asingle=InputBox(“请输入一个浮点数：”) strl$=Str$(asingle):p=InStr(strl$，“”) If p0 Then Print Mid$(strl$，p) Else Print“非浮点数” End If（分数：2.00）A.输出 asingle 的字符串形式B.输出数据 a
6、single 的整数部分C.输出数据 asingle 的小数点及小数点后面的数字D.只去掉数据中的小数点，保留所有数字输出16.(1 5)表达式 Abs(-5)+Len(“ABCDE”)的值是( )。（分数：2.00）A.5ABCDEB.5ABCDEC.10D.017.有下列程序，运行后的结果为( )。 X=24:Y=3:Z=5 Print“A(“；X+Y*Z；”)”（分数：2.00）A.A(17)B.A(174)C.A(18)D.A(24+3*5)18.下面不能在信息框中输出“Visual Basic”的是( )。（分数：2.00）A.x=MsgBox(“Visual Basi”)B.Msg
7、Box(“Visual Basic”)C.MsgBox“Visual Basic”D.Call MsgBox“Visual Basic”19.设窗体上有名称为 Optl 的单选按钮，且程序中有语句： If OptlValue=True Then 下面语句中与该语句不等价的是( )。（分数：2.00）A.IfOptlValue ThenB.If Value=True ThenC.If Optl=True ThenD.If Optl Then20.( )控件可以使图形根据控件大小而改变大小。（分数：2.00）A.图片框B.标签C.图像框D.框架21.要想不使用 Shift 或 Ctrl 键就能在列
8、表框中同时选择多个项目，则应把该列表框的 MultiSelect 属性设置为( )。（分数：2.00）A.0B.1C.2D.其他22.以下( )操作不能触发滚动条 Change 事件。（分数：2.00）A.拖动滚动块B.单击两端箭头C.单击滚动块D.单击箭头与滚动块之间的滚动条23.下列程序执行后，变量 x 的值为( )。 Dim a，b，C，d As Single DimXAs Single a=10:b=30:C=400 IfbaThen d=a:a=b:b=d EndIf Ifbc Then x=b ElseIfac Then x=C Else x=a EndIf（分数：2.00）A.1
9、0B.30C.400D.43024.窗体上有名称为 Commandl 的命令按钮和名称为 Text1 的文本框( )。 Private Sub Commandl Click() Text1Text=“程序设计” Text1SetFocus End Sub Private Sub Text1 GotFocus() Text1Text=“等级考试” End Sub 运行以上程序，单击命令按钮后( )。（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试
10、”，且焦点在命令按钮上25.下列程序代码段中，在单击命令按钮调用 SelMid 函数时，其运行结果为( )。 Private Function SelMid(aStr As String)As String Dimtemp As String Dim sLen As Integer temp=“” sLen=Len(aStr) i=1 Do While i=sLen2 temp=temp+Mid(aStr，i，1)+Mid(aStr，sLen-i+1，1) i=i+1 Loop SelMid=temp End Function Private Sub Commandl_Click() Dim
11、Str As String Str=“abcdef”:Print SelMid(Str) End Sub（分数：2.00）A.abcdefB.afbecdC.fedcbaD.defabc26.下面正确使用动态数组的是( )。（分数：2.00）A.Dim arr1()As Integer ReDim arr1(3，5)B.Dim arr1() As Integer ReDim arr1(50)As StringC.Dim arr1() ReDim arr1(50)As IntegerD.Dim arr1(50)As Integer ReDim arr1(20)27.已知数组 Dim a(1 To
12、 10)As Integer，则下面正确调用 GetValue 函数的是( )。 Private Function GetValue(a()As Integer)As Integer For i=1 To 10 GetValue=GetValue+a(i) Next i End Function（分数：2.00）A.S=GetValue(a(1 To 10)B.S=GetValue(a)C.S=GetValue(a(10)D.S=GetValue a28.单击一次命令按钮，下列程序代码的执行结果为( )。 Private Sub Commandl_Click() Dim a As Intege
13、r,b As Integer,C As Integer a=2:b=3:c=4 Print P2(c，b，a) End Sub Private Function P1(x As Integer，y As Integer，z As Integer) P1=2*x+y+3*z End Function Private Function P2(x As Integer,y As Integer,z As Integer) P2=P1(z，x，y)+x End Function（分数：2.00）A.21B.19C.17D.3429.在窗体中有一个名为 Commandl 的命令按钮，并编写有以下代码。程
14、序执行时，单击命令按钮，输出的结果为( )。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10:m=m10 End Sub Private Sub Commandl_Click() Dim x As Integer,y As Integer x=12:y=34 Call Procl(x，Y) Print x；y End Sub（分数：2.00）A.2 3B.2 34C.12 3D.12 3430.设有如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As
15、Integer,X As Single，Y As Single) If Button=2 Then PopupMenu popMenu EndIf End Sub 则以下描述中错误的是( )。（分数：2.00）A.该过程的功能是弹出一个菜单B.popMenu 是在菜单编辑器中定义的弹出式菜单的名称C.参数 X、Y 指明鼠标的当前位置D.Button=2 表示按下的是鼠标左键31.以下叙述中正确的是( )。（分数：2.00）A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C.只有当窗体设计窗口为当前活动窗体时，才能打开菜单编
16、辑器D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器32.窗体上有一个名称为 Textl 的文本框和一个名称为 Commandl 的命令按钮，要求程序运行时，单击命令按钮(如图所示)，就可以把文本框中的内容写到文件 Outtxt 中，每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是( )。 （分数：2.00）A.Private Sub Commandl Click() Open“Outtxt”For Input As#1 Print#1Text1Text Close#1 End SubB.PriVate Sub Commandl Click() Op
17、en“Outtxt”For Output As#1 Print#1Text1Text Close#1 End SubC.Private Sub Commandl Click() Open“Outtxt”For Append As#1 Print#1Text1TeXt Close#1 End SubD.Private Sub Commandl Click() Open“Outtxt”For Random As#1 Print#1Text1Text Close#1 End Sub33.假设用复制、粘贴的方法建立了一个命令按钮数组 Commandl，以下对该数组的说法错误的是( )。（分数：2.00
18、）A.命令按钮的所有 Caption 属性都是 CommandlB.在代码中访问任意一个命令按钮只需使用名称 CommandlC.命令按钮的大小都相同D.命令按钮共享相同的事件过程34.下面关于多重窗体的叙述中，正确的是( )。（分数：2.00）A.作为启动对象的 Main 子过程只能放在窗体模块内B.如果启动对象是 Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体C.没有启动窗体，程序不能执行D.以上都不对35.设在工程中有一个标准模块；并定义了如下类型： Type Stutype ino As Integer strname AS St
19、ring*20 strsex As String*2 smark As Single End Type 在窗体上画一个名为 Commandl 的命令按钮，要求当执行事件过程 Commandl_Click 时，在 C 盘根目录下的随机文件 Studentdat 中写入一条记录。下列能够完成该操作的是( )。（分数：2.00）A.Sub Commandl_Click() Dim student As Studtype Dim record_no As Integer record_no=1 With student ino=12:strname=“smith”： strsex=“男”:smark=
20、89 End With Open“c:Studentdat”For Input As#1 Len=Len(Student) Put#1record_noStudent Close#1 End SubB.Sub Commandl_Click() Dim Student As Stutype Dim Record_no As Integer Record_no=1 With Student ino=12:stmame=“smith” strsex=“男”:smark=89 EndWith Open“c:studentdat”For Random As#1 Len=Len(Student) Put#
21、1Record_noStudent Close#1 End SubC.Private Sub Commandl_Click() Dim Student As Stutype Dim Record_no As Integer Record_no=1 With Student ino=12:stmame=“smith” strsex=“男”:smark=89 End With Open“c:studentdat”For Random As 1 Len=Len(Student) Write#1Record_noStudent Close#1 EndSubD.Sub Commandl_Click()
22、Dim Student As Stutype Dim Record_no As Integer Record_no=1 With Student 、 ino=12:stmame=“smith” strsex=“男”:smark=89 EndWith Open“c:studentdat”For Output As#1 Len=Len(Student) Put#1，Record_noStudent Close#1 End Sub36.为计算 1+2+2 2 +2 3 +2 4 +2 10 的值，并把结果显示在文本框 Text1 中，若编写如下事件过程： Private Sub Commandl_C
23、lick() Dim a，b，i s=1 a=2 Fori=2 To 10 a=a*2 b=b+a Next i Text1Text=b End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是( )。（分数：2.00）A.把 b=1 改为 b=0B.把 For k=2 To 10 改为 For i=1 To 10C.交换语句 b=b+a 和 a=a*2 的顺序D.同时进行 B、C 两种修改二、填空题(总题数：10，分数：20.00)37.填空题（每空）请将每一个空的正确答案写在答题卡上。注意：以命令关键字填空的必须拼写完整。（分数：2.00）_38.算法的基本特征主
24、要包括四个方面，它们分别是可行性、确定性、 1 和拥有足够的情报。（分数：2.00）填空项 1:_39.在长度为 n 的有序线性表中进行二分查找，最坏的情况下，需要的比较次数为 1。（分数：2.00）填空项 1:_40.在面向对象方法中， 1 是具有相似性质的对象的集合。（分数：2.00）填空项 1:_41.软件产品从提出、实现、使用维护到停止使用退役的过程称为 1。（分数：2.00）填空项 1:_42.在数据库中用数据模型这个工具来抽象、表示和处理现实世界中的数据和信息。常见的数据模型有 3种，它们分别是层次模型、网状模型和 1。（分数：2.00）填空项 1:_43.窗体上已建立多个控件，如
25、 Text1、Commandl、Label1，若要使程序开始运行时焦点定位在 Commandl控件上，则应将 Commandl 控件的 1 属性值设置为 2。（分数：2.00）填空项 1:_填空项 1:_44.输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDE”变换成 “EDCBA”。请把程序补充完整。 Private Sub Commandl_Click Dim a$，i，c$，d$ a=InputBox$(“输入任意字符串”) n=Len(a) For i=1 to 1 c=Mid(ai1) Mid(a，i，1)= 2 3=c Next i Printa End Sub（
26、分数：2.00）填空项 1:_45.在窗体上画 1 个名称为 Commandl 的命令按钮和 2 个名称分别为 Text1、Text2 的文本框，如图所示，然后编写如下程序： （分数：2.00）填空项 1:_填空项 1:_46.在窗体上画两个名称分别为 Commandl 和 Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组 a 的各个元素赋值；如果单击“求和”命令按钮，则求出数组 a 的各元素之和，并在文本框中显示出来，如图所示。请填空。 （分数：2.00）填空项 1:_VB 笔试-试卷 77 答案解析(总分：92.00，做题时间：9
27、0 分钟)一、选择题(总题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_解析：2.算法的空间复杂度是指( )。（分数：2.00）A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间 解析：解析：算法的空间复杂度是指执行这个算法所需要的内存空间。一个算法所占用的存储空间包括算法程序所占的空间、输入的初始数据所占的存储空间以及算法执行中所需要的额外空间。其中额外空间包括算法程序执行过程中的工作单元以及某种数据结构所需要的附加存储空间。如果
28、额外空间量相对于问题规模来说是常数，则称该算法是原地工作的。在许多实际问题中，为了减少算法所占的存储空间，通常采用压缩存储技术，以便尽量减少不必要的额外空间。3.下列叙述中正确的是( )。（分数：2.00）A.一个逻辑数据结构只能有一种存储结构B.逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 解析：解析：数据的存储结构是指数据的逻辑结构在计算机存储空间中的存放形式，一种数据结构可以根据需要采用不同的存储结构，常用的存储结构有顺序和链式结构。采用不同的
29、存储结构，其处理的效率是不同的。4.下列关于类、对象、属性和方法的叙述中，错误的是( )。（分数：2.00）A.类是对一类具有相同的属性和方法对象的描述B.属性用于描述对象的状态C.方法用于表示对象的行为D.基于同一个类产生的两个对象不可以分别设置自己的属性值 解析：解析：类是对一类具有相同的属性和方法对象的描述，属性用于描述对象的状态，方法用于表示对象的行为，基于同一个类产生的两个对象是可以分别设置自己的属性值的。5.在软件开发中，需求分析阶段产生的主要文档是( )。（分数：2.00）A.数据字典B.详细设计说明书C.数据流图说明书D.软件需求规格说明书 解析：解析：需求分析的最终结果是生成
30、软件需要规格说明书，可以为用户、分析人员和设计人员之间的交流提供方便。6.数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和( )。（分数：2.00）A.编码设计B.测试阶段C.运行阶段D.物理设计 解析：解析：数据库设计目前一段采用生命周期法，即将整个数据库应用系统的开分解成目标独立的若干阶段，它们是：需要分析阶段、概念设计阶段、逻辑设计阶段、物理设计阶段、编码阶段、测试阶段、运行阶段、进一步修改阶段。在数据库设计中采用上面几个阶段中的前四个阶段，并且重点以数据结构和模型设计为主线。7.在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是( )。（分数：2.00）A.并B.交
31、C.投影D.除解析：解析：关系 R 与 S 经交运算后所得到的关系是由那些既在 R 内又在 S 内的有序组所组成，记为RS，交运算不改变关系表中的属性个数但能减少元组个数。8.下列叙述中，正确的是( )。（分数：2.00）A.软件交付使用后还需要进行维护 B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令解析：解析：软件的运行和维护是指将已交付的软件投入运行，并在运行使用中不断地维护，根据新提出的需求进行必要而且可能的扩充和删改。而软件生命周期是指软件产品从提出、实现、使用维护到停止使用退役的过程。9.设一棵满二叉树共有 15 个结点
32、，则在该满二叉树中的叶子结点数为( )。（分数：2.00）A.7B.8 C.9D.10解析：解析：在具有 n 个结点的满二叉树，其非叶子结点数为 int(n2)，而叶子结点数等于总结点数减去非叶子结点数。本题 n=15，故非叶子结点数等于 int(152)=7，叶子结点数等于 157=8。10.设 R 是一个 2 元关系，有 3 个元组，S 是一个 3 元关系，有 3 个元组。如 T=RS，则 T 的元组的个数为( )。（分数：2.00）A.6B.8C.9 D.12解析：解析：R 为 n 元关系，有 p 个元组 S 为 m 元关系，有 q 个元组。两个关系笛卡儿积是一个 n+m 元的关系，元组
33、个数是 qp。所以 T 的元组的个数为 9 个。11.下列选项中，不属于数据库管理的是( )。（分数：2.00）A.数据库的建立B.数据库的调整C.数据库的监控D.数据库的校对 解析：解析：数据库管理一般包括：数据库的建立、数据库的调整、数据库的重组、数据库的安全性控制与完整性控制、数据库的故障恢复和数据库的监控。12.下列可以激活属性窗口的操作是( )。（分数：2.00）A.用鼠标双击窗体的任何部位B.按 Ctrl+F4 键C.执行“工程”菜单中的“属性窗口”命令D.按 F4 键 解析：解析：本题考查属性窗口的打开。属性窗口在设计阶段町用于改变窗体或控件的某些属性。如果VB 集成环境巾属性窗
34、口没有显示，最常见的方法足利用 F4 键打开，或者使用“视图”菜单中的“属性窗口”命令打开，还可以使用“标准”格式工具栏上的“属性窗口”命令打开。13.VB 的数值型数据分为( )两种。（分数：2.00）A.整数和长整数B.整数和浮点数 C.单精度浮点数和双精度浮点数D.整数和货币数据类型解析：解析：本题考查数值型数据。VB 中提供的数值类型包括整数、浮点数、货币类型和字节型。一般来讲货币类型为定点浮点数或者整数，而字节型为整数。14.设有变量声明为“Dim aDate As Date”，则能为变量 aDate 正确赋值的表达方式是( )。（分数：2.00）A.aDate=#82008# B.
35、aDate=#“882008”#C.aDate=Date(“882008”)D.aDate=Format(“mdyy”,“882008”)解析：解析：本题考查日期型数据。一般日期型数据可以是任何可以表示的日期，放在一对“#”号中，或者可以用数字序列表示日期。注意，如“882008”为字符串，不表示日期。函数 Date 返回当前曰期，函数的参数为空。Format 函数的第一个参数为日期，第二个参数为格式串。15.从键盘上输入一个浮点数 asingle，利用字符串函数对该数进行处理后，如果输出的内容不是“非浮点数”，则对程序输出的内容分析正确的是( )。 asingle=InputBox(“请输入
36、一个浮点数：”) strl$=Str$(asingle):p=InStr(strl$，“”) If p0 Then Print Mid$(strl$，p) Else Print“非浮点数” End If（分数：2.00）A.输出 asingle 的字符串形式B.输出数据 asingle 的整数部分C.输出数据 asingle 的小数点及小数点后面的数字 D.只去掉数据中的小数点，保留所有数字输出解析：解析：本题考查字符串函数。题日中用到了 Instr()函数，字符串匹配函数 Instr 主要用于查找字符串 2 在字符串 1 中第一次出现的位置，若未找到返回 0，因此 lnstr(str1，“”
37、)用于查找字符串应Str1 中为“”的位置； Str(asingle)函数是把数字转化为字符串；Mid(str1，p)用于从 Str1 中取出从 p 开始所有的字符。16.(1 5)表达式 Abs(-5)+Len(“ABCDE”)的值是( )。（分数：2.00）A.5ABCDEB.5ABCDEC.10 D.0解析：解析：本题考查数学函数和字符串函数。数学函数 Abs(-5)用于求5 的绝对值，而 Len()函数则用于计算字符串中包含的字符个数。17.有下列程序，运行后的结果为( )。 X=24:Y=3:Z=5 Print“A(“；X+Y*Z；”)”（分数：2.00）A.A(17)B.A(174
38、) C.A(18)D.A(24+3*5)解析：解析：本题考查 Print 方法的输出。使用 Print 方法可以在窗体或图片框上输出文本，方法的参数为输出的内容，各个输出项之间可以使用逗号或分号隔开，如果用“，”隔开，则表示输出项分区输出，否则表示连续输出。因此题目中的输出项“A(”；X+Y*Z；“)”之间用分号分隔是连续输出。18.下面不能在信息框中输出“Visual Basic”的是( )。（分数：2.00）A.x=MsgBox(“Visual Basi”)B.MsgBox(“Visual Basic”)C.MsgBox“Visual Basic” D.Call MsgBox“Visual
39、 Basic”解析：解析：MsgBox()函数用于显示提示信息，并可返回一个代表用户单击了哪个按钮的 integer 类型值，当其作为函数使用时必须将参数放在括号内部，而返回值可以赋值给一个变量，也可以单独使用此函数而不将其返回值赋值给变量：MsgBox 过程也用于显示提示信息，作为过程必须使用 Call 关键字来进行调用，其参数不能加括号。19.设窗体上有名称为 Optl 的单选按钮，且程序中有语句： If OptlValue=True Then 下面语句中与该语句不等价的是( )。（分数：2.00）A.IfOptlValue ThenB.If Value=True Then C.If Op
40、tl=True ThenD.If Optl Then解析：解析：在 IfThenElse中，如果“条件表达式”的值为 True，则执行“then 部分”语句，否则执行“else 部分”语句。 单选按钮(OptionButton)组常用于提供多个选项间的惟一选择，其 Value 属性可返回或设置每个复选框或单选按钮的选中状态。为了方便使用，Visual Basic 为每个控件规定了一个默认属性，在设置这样的属性时，不必给出属性名，通常把该属性称为控件的值。单选按钮的控件值为Value 属性。 本题中由于表达式“Opt1Value=True”“Opt1Value”“Opt1=True”及“()pt
41、1”的结果均为 True，故正确答案为选项 D。20.( )控件可以使图形根据控件大小而改变大小。（分数：2.00）A.图片框B.标签C.图像框 D.框架解析：解析：本题考查常见控件的基本属性。图片框的 AutoSize 属性设定图片框是否按装入图形的大小来调整大小；图像框的 Stretch 属性设定是否调整图形的大小以适用图像框控件。标签一般用来处理文本，而框架主要用来作为其他控件的容器。21.要想不使用 Shift 或 Ctrl 键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect 属性设置为( )。（分数：2.00）A.0B.1 C.2D.其他解析：解析：本题考查列
42、表框的 MultiSelect 属性。默认状况下列表框仅可以选择一项，通过设置Multiselect 可改变多选设置，该属性有 3 种值：0 表示禁止多选；1 表示简单多选，在选项上单击可以选定多项；2 为借助 Ctr1 和 Shift 键进行的多项选择。22.以下( )操作不能触发滚动条 Change 事件。（分数：2.00）A.拖动滚动块B.单击两端箭头C.单击滚动块 D.单击箭头与滚动块之间的滚动条解析：解析：本题考查滚动条。单击滚动条的箭头或者滚动条的滑块位置改变(也就是更改其 Value 属性)都可以触发 Change 事件，而拖动滑块不但会触发 Change 事件还会触发 Scro
43、ll 事件。23.下列程序执行后，变量 x 的值为( )。 Dim a，b，C，d As Single DimXAs Single a=10:b=30:C=400 IfbaThen d=a:a=b:b=d EndIf Ifbc Then x=b ElseIfac Then x=C Else x=a EndIf（分数：2.00）A.10B.30 C.400D.430解析：解析：本题考查选择语句的程序分析。If 语句的执行是 If 条件表达式值为 True 时执行 If 分支，否则执行 ElseIf 分支或者结束。本题中首先判断 ba 成立，因此 a、b 的值交换：接下来由于 bc 不成立，ac
44、也不成立，因此 x 的值为 a。24.窗体上有名称为 Commandl 的命令按钮和名称为 Text1 的文本框( )。 Private Sub Commandl Click() Text1Text=“程序设计” Text1SetFocus End Sub Private Sub Text1 GotFocus() Text1Text=“等级考试” End Sub 运行以上程序，单击命令按钮后( )。（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中 C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级
45、考试”，且焦点在命令按钮上解析：解析：setFocus 方法用于将焦点移到指定的对象上，而当一个对象获得焦点时将触发其 GotFocus事件过程。25.下列程序代码段中，在单击命令按钮调用 SelMid 函数时，其运行结果为( )。 Private Function SelMid(aStr As String)As String Dimtemp As String Dim sLen As Integer temp=“” sLen=Len(aStr) i=1 Do While i=sLen2 temp=temp+Mid(aStr，i，1)+Mid(aStr，sLen-i+1，1) i=i+1 L
46、oop SelMid=temp End Function Private Sub Commandl_Click() Dim Str As String Str=“abcdef”:Print SelMid(Str) End Sub（分数：2.00）A.abcdefB.afbecd C.fedcbaD.defabc解析：解析：本题考查函数过程分析。单击命令按钮时，事件过程内部调用 SelMld 函数。SelM|d 函数的功能是，将字符串重组，重组的规则是：从原字符串中前后各取一个字符重新连接起来并存入中间变量temp 中(追加到中间变量原有字符的后面)；然后再取原字符串中的前面第 2 个和倒数第
47、2 个字符连接起来，再连接到变量 temp 中；以此类推，直到将原字符串中的字符全部追加到变量 temp 中为止。26.下面正确使用动态数组的是( )。（分数：2.00）A.Dim arr1()As Integer ReDim arr1(3，5) B.Dim arr1() As Integer ReDim arr1(50)As StringC.Dim arr1() ReDim arr1(50)As IntegerD.Dim arr1(50)As Integer ReDim arr1(20)解析：解析：通常把需要在编译时分配内存区的数组叫做静态数组，而把需要在运行时分配内存区的数组叫做动态数组。定义动态数组通常分两步：首先在窗体层或标准模块中用 Dim、Private 或 Public 声明一个没有下标的数组(括号不能省略)，然后在过程中用 ReDim 语句定义带下标的数组。ReDim 语句只能用于动态数组，它可以改变每一维的大小，但不能改变维数和数组类型。27.已知数组 Dim a(1 To 10)As Integer，则下面正确调用 GetValue 函数的是( )。 Private Function GetValue(a()As Integer)As Integer For i=1 To 10 GetValue=GetValue+a(i) Next i
