1、二级 VISUAL+BASIC 笔试-387 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.算法的空间复杂度是指_。A) 算法程序的长度 B) 算法程序中的指令条数C) 算法程序所占的存储空间 D) 执行算法需要的内存空间（分数：2.00）A.B.C.D.2.下列叙述中正确的是_。A) 顺序存储结构只针对线性结构，链式存储结构只针对非线性结构B) 线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的C) 线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构D) 顺序存储结构能存储有序表，链式存储结构不能存储有序表（分数：2.0
2、0）A.B.C.D.3.对于循环队列，下列叙述中正确的是_。A) 循环队列中元素的个数由队头指针和队尾指针共同决定B) 在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C) 在循环队列中，队头指针一定大于队尾指针D) 在循环队列中，队头指针一定小于队尾指针（分数：2.00）A.B.C.D.4.在面向对象方法中，实现信息隐蔽是依靠_。A) 对象的继承 B) 对象的多态 C) 对象的封装 D) 对象的分类（分数：2.00）A.B.C.D.5.软件生命周期是指_。A) 软件的开发过程B) 软件的运行维护过程C) 软件产品从提出、实现、使用维护到停止使用退役的过程D) 软件从需求分析、设计
3、、实现到测试完成的过程（分数：2.00）A.B.C.D.6.用数据流图(DFD) 作为描述工具的软件开发阶段是_。A) 可行性分析 B) 需求分析 C) 概要设计 D) 详细设计（分数：2.00）A.B.C.D.7.耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是_。A) 提高耦合性、降低内聚性有利于提高模块的独立性B) 降低耦合性、提高内聚性有利于提高模块的独立性C) 耦合性是指一个模块内部各个元素间彼此结合的紧密程度D) 内聚性是指模块间互相连接的紧密程度（分数：2.00）A.B.C.D.8.在数据管理技术发展的三个阶段中，数据共享最好的是_。A) 人工管理阶段 B) 文件系
4、统阶段 C) 数据库系统阶段 D) 三个阶段相同（分数：2.00）A.B.C.D.9.下列叙述中正确的是_。A) 为了建立一个关系，首先要构造数据的逻辑关系B) 表示关系的二维表中各元组的每一个分量还可以分成若干数据项C) 一个关系的属性名表称为关系模式D) 一个关系可以包括多个二维表（分数：2.00）A.B.C.D.10.设有如下关系表（分数：2.00）A.B.C.D.11.下面可以正确定义两个整型变量和一个字符串变量的语句是_。A) Dim a%.b $,c As String B) Dim n,m As Integer,s As StringC) Dim x As Integer,y%,
5、z $ D) Dim a As Integer,b,c As String（分数：2.00）A.B.C.D.12.表达式 3*42+4*3/2+42 的值是_。A) 35 B) 36 C) 70 D) 71（分数：2.00）A.B.C.D.13.设窗体文件中有下面的事件过程：Private Sub Command1_Click()Dim ab $=“Visual Basic“Print bEnd Sub其中变量 a 和 b 的数据类型分别是_。A) 字符串型，字符串型 B) 变体型，变体型C) 字符串型，变体型 D) 变体型，字符串型（分数：2.00）A.B.C.D.14.确定一个标签的大小的
6、属性是_。A) Width 或 Height B) Width 和 Height C) Top 或 Left D) Top 和 Left（分数：2.00）A.B.C.D.15.滚动条可以响应的事件是_。A) Load B) Scroll C) Click D) MouseDown（分数：2.00）A.B.C.D.16.若窗体上的图片框中有一个命令按钮，则此按钮的 Top 属性是指_。A) 按钮上边到窗体上边界的距离 B) 按钮上边到图片框上边界的距离C) 按钮中心点到窗体上边界的距离 D) 按钮中心点到图片框上边界的距离（分数：2.00）A.B.C.D.17.执行语句 s $=Len(Mid(
7、“study hard“，1，5)后，s 的值是_。A) study B) hard C) 5 D) 10（分数：2.00）A.B.C.D.18.下面关于标准模块的叙述中错误的是_。A) 标准模块中可以声明全局变量B) 一个工程中可以含有多个标准模块C) 标准模块中可以包含一些 Public 过程D) 标准模块中可以包含一个 Sub Main 过程，但此过程不能被设置为启动过程（分数：2.00）A.B.C.D.19.为了在窗体上建立 2 组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是_。A) 使 2 组单选按钮的名称分别相同B) 使 2 组单选按钮的 Ind
8、ex 属性分别相同C) 把 2 组单选按钮分别画到 2 个不同的框架中D) 把这 2 组单选按钮设置为名称不同的 2 个控件数组（分数：2.00）A.B.C.D.20.设窗体中有一个文本框 Text1，若在程序中执行了 Text1.SetFocus，则触发_。A) 窗体的 GotFocus 事件 B) Text1 的 SetFocus 事件C) Text1 的 GotFocus 事件 D) Text1 的 LostFocus 事件（分数：2.00）A.B.C.D.21.设已打开 5 个文件，文件号分别为 1，2，3，4，5。要关闭所有文件，以下语句正确的是_。A) Close#1，2，3，4，
9、5 B) Close#1；#2；#3；#4；#5C) Close#1-#5 D) Close（分数：2.00）A.B.C.D.22.某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为 Label1 的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每 5 秒在标签上显示一次系统当前时间。Private Sub Timer1_Timer()Label1.Caption=Time $End Sub在程序执行时发现未能实现上述目的，那么，他应做的修改是_。A) 通过属性窗口把计时器的 Enabled 属性设置为 FalseB) 通
10、过属性窗口把计时器的 Interval 属性设置为 5000C) 在 Timer1_Timer 的事件过程中添加语句 Timer1.Interval=500D) 把事件过程中的 Label1.Caption=Time$语句改为 Label1.Caption=Timer1.Time（分数：2.00）A.B.C.D.23.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序如下：Private Type xa As Integerb As IntegerEnd TypePrivate Sub Command1_Click()Dim y As xy.a=
11、InputBox(“ “)If y.a/2=y.a/2 Theny.b=y.a*y.aElsey.b=Fix(y.a/2)End IfText1.Text=y.bEnd Sub对以上程序，下列叙述中错误的是_。A) x 是用户定义的类型B) InputBox 函数弹出的对话框中没有提示信息C) 若输入的是偶数，y.b 的值为该偶数的平方D) Fix(y.a/2)把 y.a/2 的小数部分四舍五入，转换为整数返回（分数：2.00）A.B.C.D.24.设窗体上有一个图片框 Picture1，要在程序运行期间装入当前文件夹下的图形文件 File1.jpg，能实现此功能的语句是_。A) LoadPi
12、cture(“File1.jpg“) B) Picture1.Picture=“File1.jpg“C) Call LoadPicture(“File1.jpg“) D) Picture1.Picture=LoadPicture(“File1.jpg“)（分数：2.00）A.B.C.D.25.在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click()Dim a(10)As IntegerFor k=10 To 1 Step-1a(k)=20-2*kNext kk=k+7Print a(k-a(k)End Sub运行程序，单击命令
13、按钮，输出结果是_。A) 6 B) 8 C) 12 D) 18（分数：2.00）A.B.C.D.26.在窗体上画一个命令按钮，然后编写如下事件过程。Private Sub Command1_Click()DimmAs Integer,n As Integer,p As Integerm=3: n=5: p=0Call Y(m,n,p)Print Str(p)End SubSub Y(ByVal i As Integer, ByVal j As Integer,k As Integer)k=i+jEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。A) 4 B) 6 C) 8
14、D) 10（分数：2.00）A.B.C.D.27.使用 Do While 循环从打开的文件中逐条读取记录，以下能够正确读取数据的程序是_。A) Open “ c:/File1.txt“ For Input As #1Do While Not EOF()Line Input #1, strlineLoopB) Open “ c:/Filel.txt“ For Input As #1Do While Not EOF(1)Line Input #1, strlineLoopC) FileNo=FreeFileOpen “c:/File1.txt“ For Input As #1Do While No
15、t EOF(FileNo)Line Input #1 , strlineLoopD) FileNo=FreeFileOpen “c: /File1.txt“ For Input As #1Do While Not EOF(#FileNo)Line Input #1, strlineLoop（分数：2.00）A.B.C.D.28.窗体上有一个名为 Command1 的命令按钮，并有如下程序：Private Sub Command1_Click()Dim a(10) ,x%For k=1 To 10a(K)=Int(Rnd*90+10)x=x+a(k) Mod 2Next kPrint xEnd
16、Sub程序运行后，单击命令按钮，输出结果是_。A) 10 个数中偶数的个数 B) 10 个数中奇数的个数C) 10 个数中偶数的累加和 D) 10 个数中奇数的累加和（分数：2.00）A.B.C.D.29.请阅读程序：Option Base 1Private Sub Form_Click()Dim Arr(4,4)As IntegerFor i=1 To 4Forj=1 To 4Arr(i,j)=(i-1)*2+jNextjNextiFori=3 To 4For j=3 To 4Print Arr(j,i)；Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是_。
17、A) 5 76 8B) 6 87 9C) 7 98 10D) 8 108 11（分数：2.00）A.B.C.D.30.在窗体上画一个命令按钮和一个文本框(名称分别为 Command1 和 Text1)，并把窗体的 KeyPreview 属性设置为 True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load()ShowText1.Text=“Text1.SetFocusEnd SubPrivate Sub Command1_Click()Text1.Text=LCase(SaveAll)+SaveAllEnd SubPivate Sub Fo
18、rm_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，直接用键盘输入 ABC，再单击命令按钮，则文本框中显示的内容为_。A) abcABC B) 不显示任何信息C) ABC D) 出错（分数：2.00）A.B.C.D.31.设工程文件包含两个窗体文件 Form1.frm、Form2.frm 及一个标准模块文件 Module1.bas，两个窗体上分别只有一个名称为 Command1 的命令按钮。Form1 的代码如下：Public x As IntegerPrivate Sub Form_Load()x
19、=6y=8End SubPrivate Sub Command1_Click()Form2.ShowEnd SubForm2 的代码如下：Private Sub Command1_Click()Print Form1.x，yEnd SubModule1 的代码如下：Public y As Integer运行以上程序，单击 Form1 的命令按钮 Command1，则显示 Form2；再单击 Form2 上的命令按钮Command1，则窗体上显示的是_。A) 6 0 B) 0 8 C) 6 8 D) 程序有错（分数：2.00）A.B.C.D.32.有一个名称为 Fom1 的窗体，上面没有控件，设
20、有以下程序(其中方法 PSet(X，Y)的功能是在坐标X，Y 处画一个点)。Dim cmdmave As BooleanPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)cmdmave=TrueEnd SubPrivate Sub Form MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)If cmdmave ThenForm1.PSet(X，Y)End IfEnd SubPrivat
21、e Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)cmdmave=FalseEnd Sub此程序的功能是_。A) 每按下鼠标键一次，在鼠标所指位置画一个点B) 按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失C) 不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线D) 按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线（分数：2.00）A.B.C.D.33.在窗体上画的 3 个名称为 Command1 命令按钮是控件数组，从左到右，控件数组下标分别为 0、1、
22、2，如下图所示。编写如下程序：Private Sub Command1_Click(Index As Integer)Dim a As StringSelect Case IndexCase 0s=“单击第一个按钮“Case 1s=“单击第二个按钮“Case 2s=“单击第三个按钮“End SelectMsgBox S，IndexEnd Sub执行程序后，单击中间的按钮，显示对话框的形式为_。（分数：2.00）A.B.C.D.34.以下程序运行后的窗体如图所示。其中组合框的名称是 Combo1，已有列表项如图所示；命令按钮的名称是 Command1。（分数：2.00）A.B.C.D.35.设有
23、如下程序：Private Sub Form_Load()ShowDim b()As VariantDim n As Integerb=Array(21, 64, 92, 15, 72, 38, 45, 72)Call search(b，45，n)Print nEnd SubPrivate Sub search(a()As Variant, ByVal key As Variant, index%)Dim i %For i=LBound(a)To UBound(a)If key=a(i) Thenindex=iExit SubEnd IfNext iindex=-1End Sub程序运行后，输出
24、结果是_。A) 2 B) 6 C) 10 D) 12（分数：2.00）A.B.C.D.二、填空题(总题数：10，分数：30.00)36.设二叉树如下：（分数：2.00）填空项 1:_37.假设用一个长度为 100 的数组(数组元素的下标从 0 到 99)作为栈的存储空间，栈底指针 bottom 指向栈底元素，栈顶指针 top 指向栈顶元素，如果 bottom=99，top=60(数组下标)，则栈中具有 1 个元素。（分数：2.00）填空项 1:_38.软件测试用例包括 1 值集和输出值集。（分数：2.00）填空项 1:_39.在关系数据模型中，二维表的行称为元组，二维表的列称为 1。（分数：2
25、.00）填空项 1:_40.在数据库设计中，将 E-R 图转换成关系数据模型的过程属于 1 阶段。（分数：2.00）填空项 1:_41.为了在运行时把 c:/vb 文件夹下的图形文件 smile.jpg 装入图片框 Picture1，所使用的语句为 1。（分数：2.00）填空项 1:_在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim m As Integer,x As IntegerDim flag As Booleanflag=Falsen=Val(InputBox(“请输入任意 1 个正整数“)Do Whi
26、le Not flaga=2flag= (7) Do While flag And a=Int(Sqr(n)If n/a=n/a Thenflag=FalseElse(8) End IfLoopIf Not flag Then n=n+1LoopPrint (9) End Sub上述程序的功能是，当在键盘输入任意的 1 个正整数时，将输出不小于该整数的最小素数。请填空完善程序。（分数：6.00）填空项 1:_填空项 1:_填空项 1:_斐波那契(Fibonacci)数列的构成规律是：数列的第一、第二个数是 1，从第三个数起，每个数是其前面两个数之和。据此，下面有求斐波那契前 12 项值的过程，
27、请完善程序。Private Sub Command1_Click()Dim sum As IntegerCall Fibonacci(12,sum)Print“Sum=“;sumEnd SubSub Fibonacci(N As Integer, s1)s1=0f1=1(10) For i=1 To N/2Print f1：f2：s1=f1+f2f1=f1+f2f2= (11) Next iPrintEnd Sub（分数：4.00）填空项 1:_填空项 1:_在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load()Open“d:/temp/da
28、t.txt“For Output As#1Text1.Text=“ “End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf UCase(Text1.Text)= (12) ThenClose#1EndElseWrite#1， (13) Text1.Text=“ “End IfEnd IfEnd Sub以上程序的功能是：在 D 盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容；如果输入 E
29、ND，则不写入文件，直接结束程序。请填空。（分数：4.00）填空项 1:_填空项 1:_窗体上有一个名称为 CD1 的通用对话框。通过菜单编辑器建立如图 1 所示的菜单。程序运行时，如果单击“打开“菜单项，则执行打开文件的操作，当选定了文件(例如，E: /VB/2010-9 /in.txt)并打开后，该文件的文件名会被添加到菜单中，如图 2 所示。各菜单项的名称和标题等定义如下表。标题 名称 内缩 索引 可见文件 file 无 无 Ture打开 mnu Open 无 Ture关闭 mnu Close 无 Ture mnu 无 Ture(空) FName 无 False（分数：4.00）填空项
30、1:_填空项 1:_二级 VISUAL+BASIC 笔试-387 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.算法的空间复杂度是指_。A) 算法程序的长度 B) 算法程序中的指令条数C) 算法程序所占的存储空间 D) 执行算法需要的内存空间（分数：2.00）A.B.C.D. 解析：解析 算法的复杂度主要包括算法的时间复杂度和算法的空间复杂度。算法的时间复杂度是指执行算法所需要的计算工作量；算法的空间复杂度是指执行算法所需要的内存空间。2.下列叙述中正确的是_。A) 顺序存储结构只针对线性结构，链式存储结构只针对非线性结构B) 线性表的链式
31、存储结构与顺序存储结构所需要的存储空间是相同的C) 线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构D) 顺序存储结构能存储有序表，链式存储结构不能存储有序表（分数：2.00）A.B.C. D.解析：解析 链式存储结构不仅要求存储数据本身，还要存储链数据表所需的指针。故存储空间一般多于顺序存储结构。3.对于循环队列，下列叙述中正确的是_。A) 循环队列中元素的个数由队头指针和队尾指针共同决定B) 在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C) 在循环队列中，队头指针一定大于队尾指针D) 在循环队列中，队头指针一定小于队尾指针（分数：2.00）A. B.C.D.解析：
32、解析 循环队列是将顺序队列首尾相连形成的，随着插入元素或删除元素的进行，其队头指针及队尾指针是在不断变化的，有时可能会出现队头指针大于队尾指针的情况，也可能是队尾指针大于队头指针。4.在面向对象方法中，实现信息隐蔽是依靠_。A) 对象的继承 B) 对象的多态 C) 对象的封装 D) 对象的分类（分数：2.00）A.B.C. D.解析：解析 封装是一种信息屏蔽技术，目的在于将对象的使用者和对象的设计者分开。用户只能见到对象封装界面上的信息，不必知道实现的细节。封装一方面通过数据抽象，把相关的信息结合在一起，另一方面也简化了接口。5.软件生命周期是指_。A) 软件的开发过程B) 软件的运行维护过程
33、C) 软件产品从提出、实现、使用维护到停止使用退役的过程D) 软件从需求分析、设计、实现到测试完成的过程（分数：2.00）A.B.C. D.解析：解析 通常将软件产品从提出、实现、使用维护到使用、退役的过程称为软件生命周期。6.用数据流图(DFD) 作为描述工具的软件开发阶段是_。A) 可行性分析 B) 需求分析 C) 概要设计 D) 详细设计（分数：2.00）A.B. C.D.解析：解析 结构化分析方法是结构化程序设计理论在软件需求分析阶段的运用。而结构化分析就是使用数据流图、数据字典、结构化语言、判定树和判定表等工具，来建立一种新的、称为结构化规格说明的目标文档。7.耦合性和内聚性是对模块
34、独立性度量的两个标准。下列叙述中正确的是_。A) 提高耦合性、降低内聚性有利于提高模块的独立性B) 降低耦合性、提高内聚性有利于提高模块的独立性C) 耦合性是指一个模块内部各个元素间彼此结合的紧密程度D) 内聚性是指模块间互相连接的紧密程度（分数：2.00）A.B. C.D.解析：解析 耦合性是模块间互相连接的紧密程度的度量，内聚性是一个模块内部各个元素间彼此结合的紧密程度的度量。一般较优秀的软件设计，应尽量做到高内聚、低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，这样有利于提高模块的独立性。8.在数据管理技术发展的三个阶段中，数据共享最好的是_。A) 人工管理阶段 B) 文件系统阶段
35、C) 数据库系统阶段 D) 三个阶段相同（分数：2.00）A.B.C. D.解析：解析 人工管理阶段：计算机出现的初期，主要用于科学计算，没有大容量的存储设备。处理方式只能是批处理，数据不共享，不同程序不能交换数据。文件系统阶段：把有关的数据组织成一种文件，这种数据文件可以脱离程序而独立存在，由一个专门的文件管理系统实施统一管理。但是，数据文件仍高度依赖于其对应的程序，不能被多个程序通用。数据库系统阶段：对所有的数据实行统一规划管理，形成一个数据中心，构成一个数据仓库，数据库中的数据能够满足所有用户的不同要求，供不同用户共享，数据共享性显著增强。9.下列叙述中正确的是_。A) 为了建立一个关系
36、，首先要构造数据的逻辑关系B) 表示关系的二维表中各元组的每一个分量还可以分成若干数据项C) 一个关系的属性名表称为关系模式D) 一个关系可以包括多个二维表（分数：2.00）A. B.C.D.解析：解析 元组是数据的最小单位，不能再分；关系的框架称为关系模式；关系框架与关系元组一起构成一个关系，也就是一个关系对应一张二维表。选项 A) 中，在建立关系前，要先构造数据的逻辑关系是正确的。10.设有如下关系表（分数：2.00）A.B. C.D.解析：解析 从图中可以看出，关系 T 是关系 R 和关系 S 的简单合并，而合并的符号为 U，所以答案为T=RS。11.下面可以正确定义两个整型变量和一个字
37、符串变量的语句是_。A) Dim a%.b $,c As String B) Dim n,m As Integer,s As StringC) Dim x As Integer,y%,z $ D) Dim a As Integer,b,c As String（分数：2.00）A.B.C. D.解析：解析 在 Visual Basic 中，变量的定义格式有两种。第一种是：Declare 变量名 As 类型。Declare 可以是 Dim，Static，ReDim，Public 或 Private，As 是关键字，“类型“可以是基本的数据类型也可以是用户自定义的类型。第二种是用类型说明符来定义变量
38、，即在定义变量名后面加上类型说明符；如果变量名后面没有类型说明符，又不是第一种定义方式，则定义的变量是变体变量。在本题中%是整型变量的类型说明符，$是字符串变量类型说明符。12.表达式 3*42+4*3/2+42 的值是_。A) 35 B) 36 C) 70 D) 71（分数：2.00）A.B.C. D.解析：解析 根据运算优先级，平方运算优于乘除，乘除优于加减，同级运算遵循自左向右的运算规律，因此题目所给出的式子可以改写为：34 2+(43)2+42=70。13.设窗体文件中有下面的事件过程：Private Sub Command1_Click()Dim ab $=“Visual Basic
39、“Print bEnd Sub其中变量 a 和 b 的数据类型分别是_。A) 字符串型，字符串型 B) 变体型，变体型C) 字符串型，变体型 D) 变体型，字符串型（分数：2.00）A.B.C.D. 解析：解析 如果在程序中变量没有定义具体的数据类型，则该数据类型为变体型数据类型，因此 a 为变体型；VB 中可以用$定义字符串型边框，所以 b$意思是把“VisualBasic“赋值给整型变量 b。所以正确答案为 D) 。14.确定一个标签的大小的属性是_。A) Width 或 Height B) Width 和 Height C) Top 或 Left D) Top 和 Left（分数：2.0
40、0）A.B. C.D.解析：解析 Width 和 Height 这两个属性共同指定标签或其他控件的高度和宽度，其单位是 twip。15.滚动条可以响应的事件是_。A) Load B) Scroll C) Click D) MouseDown（分数：2.00）A.B. C.D.解析：解析 与滚动条有关的事件只有 Scroll 和 Change。当在滚动条内拖动滚动框时会触发 Scroll 事件(单击滚动箭头或滚动条时不发生 Scroll 事件)，而改变滚动框的位置后会触发 Change 事件。Scroll事件用于跟踪滚动条中的动态变化，Change 事件则用来得到滚动条最后的值。16.若窗体上的
41、图片框中有一个命令按钮，则此按钮的 Top 属性是指_。A) 按钮上边到窗体上边界的距离 B) 按钮上边到图片框上边界的距离C) 按钮中心点到窗体上边界的距离 D) 按钮中心点到图片框上边界的距离（分数：2.00）A.B. C.D.解析：解析 Left 属性和 Top 属性用于设置对象相对于其所在容器的位置，Left 表示对象内部的左边与容器左边界的距离，Top 表示对象内部的上边与容器上边界的距离。本题中，图片框是按钮的容器。17.执行语句 s $=Len(Mid(“study hard“，1，5)后，s 的值是_。A) study B) hard C) 5 D) 10（分数：2.00）A.
42、B.C. D.解析：解析 中部截取函数 Mid(字符串，p，n)的作用是：从“字符串“的第 p 个字符开始，向后截取 n个字符。字符串长度测试函数 Len(字符串)的作用是：测试“字符串“的长度。Mid(“study hard“，1，5)的计算结果是“study“，Len(“study“)的计算结果为 5，正确答案选择 C) 。18.下面关于标准模块的叙述中错误的是_。A) 标准模块中可以声明全局变量B) 一个工程中可以含有多个标准模块C) 标准模块中可以包含一些 Public 过程D) 标准模块中可以包含一个 Sub Main 过程，但此过程不能被设置为启动过程（分数：2.00）A.B.C.
43、D. 解析：解析 标准模块的作用主要是简化程序，其中可以包含类型、常数、变量、外部过程和公共过程的公共或模块级声明，所以 A) 、C) 都是正确的。一个工程中可以有多个标准模块以供其他窗体调用，所以 B) 是正确的。标准模块通常使用 Sub Main 过程作为窗体启动前的初始化运行，所以 D) 错误。19.为了在窗体上建立 2 组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是_。A) 使 2 组单选按钮的名称分别相同B) 使 2 组单选按钮的 Index 属性分别相同C) 把 2 组单选按钮分别画到 2 个不同的框架中D) 把这 2 组单选按钮设置为名称不同的
44、 2 个控件数组（分数：2.00）A.B.C. D.解析：解析 要在同一窗体中建立几组相互独立的单选按钮，只能将每一组单选按钮放置在不同的框架内，让在同一框架中的单选按钮成为一组，这时，本组按钮才不会影响其他组中按钮的选择。而设置控件数组、为控件设置名称或索引等都不能将在同一容器中的单选按钮分成不同的组。因此，答案为 C) 。20.设窗体中有一个文本框 Text1，若在程序中执行了 Text1.SetFocus，则触发_。A) 窗体的 GotFocus 事件 B) Text1 的 SetFocus 事件C) Text1 的 GotFocus 事件 D) Text1 的 LostFocus 事件
45、（分数：2.00）A.B.C. D.解析：解析 SetFocus 是使文本框获得焦点的方法，GotFocus 是文本框获得焦点事件，表示文本框获得焦点，而不是失去了焦点，更加与窗体无关，故 C) 正确，A) 、B) 、D) 错误。21.设已打开 5 个文件，文件号分别为 1，2，3，4，5。要关闭所有文件，以下语句正确的是_。A) Close#1，2，3，4，5 B) Close#1；#2；#3；#4；#5C) Close#1-#5 D) Close（分数：2.00）A.B.C.D. 解析：解析 文件的关闭，可通过 Close 语句来实现，其格式为：Close#文件号，#文件号所以 A) 、B
46、) 、C) 均不对，Close 语句中的“文件号“是可选的，如果指定了文件号，则把指定的文件关闭；如果不指定文件号，则把所有打开的文件全部关闭。22.某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为 Label1 的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每 5 秒在标签上显示一次系统当前时间。Private Sub Timer1_Timer()Label1.Caption=Time $End Sub在程序执行时发现未能实现上述目的，那么，他应做的修改是_。A) 通过属性窗口把计时器的 Enabled 属性设置为
47、FalseB) 通过属性窗口把计时器的 Interval 属性设置为 5000C) 在 Timer1_Timer 的事件过程中添加语句 Timer1.Interval=500D) 把事件过程中的 Label1.Caption=Time$语句改为 Label1.Caption=Timer1.Time（分数：2.00）A.B. C.D.解析：解析 计时器控件用于实现在规定的时间间隔触发一次它的 Timer 事件，以完成相应功能。Interval 属性用于设置触发计时器 Timer 事件的时间间隔，单位为毫秒，值为 0 时计时器不启用。Enabled 属性控制计时器是否开始启用，True 为启用，False 为不启用。要在程序运行时每隔 5 秒显示一次系统当前时间，需将计时器的 Interval 属性值设为 5000。Time $函数用于返回当前系统时间。23.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序如下：Private Type xa As Integerb As IntegerEnd TypePrivate Sub Command1_Click()Dim y As xy.a=InputBox(“ “)If y.a/2=y.a/2 Theny.b=y.a*y.aElsey.b=F
