[计算机类试卷]国家二级（VB）机试模拟试卷147及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 147及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）算法的空间复杂度与算法所处理的数据存储空间有关 （ B）算法的空间复杂度是指算法程序控制结构的复杂程度 （ C）算法的空间复杂度是指算法程序中指令的条数 （ D）压缩数据存储空间不会降低算法的空间复杂度 2 下列各组排序法中，最坏情况下比较次数相同的是 ( )。 （ A）希尔排序与堆排序 （ B）简单插入排序与希尔排序 （ C）简单选择排序与堆排序 （ D）冒泡排序与快速排序 3 设栈 的存储空间为 S(1： 50)，初始状态为 top=51。现经过一系列正常的入栈与退栈操作后， top=

2、20，则栈中的元素个数为 ( )。 （ A） 31 （ B） 30 （ C） 21 （ D） 20 4 某二叉树共有 400个结点，其中有 100个度为 1的结点，则该二叉树中的叶子结点数为 ( )。 （ A） 149 （ B） 150 （ C） 151 （ D）不存在这样的二叉树 5 下列属于 “类一对象 ”主要特征的是 ( )。 （ A）对象一致性 （ B）对象无关性 （ C）类的多态性 （ D）类的依赖性 6 下列不属于需求分析阶段工作的是 ( )。 （ A）需求获取 （ B）可行性研究 （ C）需求分析 （ D）撰写软件需求规格说明书 7 软件生命周期是指 ( )。 （ A）软件的需求

3、分析、设计与实现 （ B）软件的开发与管理 （ C）软件的实现和维护 （ D）软件产品从提出、实现、使用维护到停止使用退役的过程 8 在数据库的三级模式结构中，描述数据库中全体数据的全局逻辑结构和特征的是( )。 （ A）内模式 （ B）用户模式 （ C）外模式 （ D）概念模式 9 大学中每个年级有 多个班，每个班有多名学生，则实体班级和实体学生之间的联系是 ( )。 （ A）一对多 （ B）一对一 （ C）多对一 （ D）多对多 10 有三个关系 R、 S和 T如下：则由关系 R、 S得到关系 T的操作是 ( )。 （ A）交 （ B）投影 （ C）自然连接 （ D）并 11 以下叙述中错

4、误的是 ( )。 （ A）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样 （ B） Visual Basic应用程序既能以编译方式执行，也能以解释方式执行 （ C）一个工程可以包含多种类型的文件 （ D）程 序运行后，在内存中只能驻留一个窗体 12 下列过程定义语句中，形参数量可变的是 ( )。 （ A） Private Sub Pro3(ParamArray Arr() （ B） Private Sub Pro3(Arr()， Optional x， Optional y) （ C） Private Sub Pro3(ByRef x， ByVal y， Arr() （ D） Priv

5、ate Sub Pro3(x As Double， y As Single) 13 表达式 55 5*5 5 Mod 5的值是 ( )。 （ A） 1 （ B） 0 （ C）一 1 （ D） 3 14 下列数组定义中正确的是 ( )。 （ A） Dim arr (-5 To -2， 5) （ B） Dim art (-2， 0 To 5) （ C） Dim arr(8， 3) （ D） Dim arr(-1 To -3) 15 Visual Basic 6 0不支持的图形文件是 ( )。 （ A） jpg （ B） psd （ C） bmp （ D） ico 16 在 Visual Basic

6、 6 0集成开发环境中，主窗口的标准工具栏上有一个 按钮，单击此按钮可以运行正在设计的工程，这个按钮的图标是 ( )。17 表达式 Chr(Asc(“G“)+3)的值是 ( )。 （ A） J （ B） G （ C） 3 （ D） D 18 不能判断字符变量 st中第一个字符是否为 “S”的表达式是 ( )。 （ A） Mid(st， Len(“S“)=“S“ （ B） Mid(st， 1， 1)=“S“ （ C） Left(st， Len(“S“)=“S“ （ D） Left(st， 1)=“S“ 19 下列语句中错误的是 ( )。 （ A） x=a+1 （ B） a+1=x （ C） If

7、 x=a+1 Then Print x （ D） If a+1=x Then Print x 20 下列过程定义正确的是 ( )。 （ A） Private Function fun(x As Integer) fun=x+1 End Function （ B） Private Sub pro(x As Integer)as Integer Print x End Sub （ C） Private Sub pro(x As Integer) pro=x+1 End Sub （ D） Private Function fun(x As Integer)As Integer Print x fun

8、=“True“ End Function 21 下列说法中错误的是 ( )。 （ A）控件的可见性可设置为 True或 False （ B）窗体或控件的标题可设置为任何文本 （ C）属性窗口中的属性可以按字母顺序排列 （ D）如果不设置控件属性的值，则系统自动设置为空值 22 在多窗体程序中，为了用 Show方法把一个 窗体设置为 “模态 ”窗口，应把它的“模式 ”设置为 ( ) （ A） 0 （ B） 1 （ C） True （ D）假 23 不能脱离控件 (或窗体 )而独立存在的过程是 ( )。 （ A）事件过程 （ B）子程序过程 （ C） Sub Main过程 （ D）函数过程 24

9、下列说法中错误的是 ( )。 （ A）通过设置命令按钮的 Enabled属性，可以使该命令按钮有效或禁用 （ B）如果把一个命令按钮的 Default属性设置为 True，则按回车健与单击该命令按钮的作用相同 （ C）可以用多个命令按钮组 成命令按钮数组 （ D）命令按钮只能识别单击 (Click)事件 25 假定计时器控件 Timer1的 Enabled属性为 True， Interval属性为 1000，并编写如下程序代码： Private Sub Timer1_Timer() Dim x As Integer For i=1 To 100 x=x+1 Next i End Sub 运行程

10、序，当程序结束时，变量 X的值为 ( )。 （ A） 100 （ B） 1000 （ C） 10000 （ D）以上都不对 26 设窗体界面如图所示，则框架控件的 Caption属性的值是 ( )。 （ A）字体 （ B）锁定 （ C）颜色 （ D）设置 27 如果需要线控件在窗体上成为一条与水平线呈 45的斜线，它的属性值应满足的条件是 ( )。 （ A） X2一 X1=Y1一 Y2 （ B） X1=X2并且 Y1=Y2 （ C） X1=Y1或 X2=Y2 （ D） Y1=X1*Sin(3 14 4)并且 Y2=X2*Sin(3 14 4) 28 下列方法或事件中，不是组合框与列表框共有的是

11、 ( )。 （ A） Removehem方法 （ B） Addltem方法 （ C） Change事件 （ D） Click事件 29 某人设计了一个窗体用于登录注册信息，上面有若干控件，其中接收注册时间输入的文本框名称为 Text1。他希望，当要输入注册时间时能自动填写当前时间，于是编写了一行代码： Text1 Text=Date请问，这行代码应该放入 ( )事件的事件过程中才能达到目的。 （ A） GotFocus （ B） LostFocus （ C） Change （ D） Click 30 某人创建了一个工程，其界面如图所示，其中，图像的名称为 Imagel，动滚条的名称为 HScr

12、om。希望在程序运行时，移动滚动框可以使图像框的宽度随之变化，而图像完整地拉宽或压缩，为此，编写了下面的程序代码：Private Sub Form Load() HScroll1 Max=Imagel Width*2 HScroll1 Value=Imagel Width Imagel Stretch： FalseEnd SubPrivate Sub HScroll1_Change() Imagel Width=HScroll1 ValueEnd Sub调试时发现不能达到 目的，需要做的修改是 ( )。 （ A）把语句 Imagel Stretch=False改为 Imagel Stretch

13、=True （ B）把语句 HScroUl Value=Imagel Width改为HScroUl Value=Imagel Width*2 （ C）把事件过程名 HScroll1_Change改为 HScroll1_Scroll （ D）把语句 Imagel Width=HScmll1 Value改为Imagel Width=HScroll1 Width 31 设有如下程序段： Dim s As Integer， n As Integer s=0 n=1 Do While_ s=s+n n=n+1 Loop Print s 以上程序段用来计算 1+2+3+100 的累加和，则在 _处应填入的

14、内容是 ( )。 （ A） n100 （ D） n=100 32 阅读程序： Private Sub Form_Click() Dim x As Integer， y As Integer X=32： y=42 Call PCS(x， y) Print x； y End Sub Sub PCS(ByVal n As Integer， ByVal in As Integer) n=n Mod 10+10 m=m M0d 10+10 End Sub 运行程序，单击窗体，输出结果为 ( )。 （ A） 2 32 （ B） 32 42 （ C） 2 3 （ D） 12 3 33 在窗体上画一个名 称为

15、 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer Static s As Integer x=Val(InputBox(“请输入一个正整数 “) If x0 then str=str&List1 List(K) End If Next k If str=“Then Text2 Text=“无匹配项目 “ Else Text2 Text=str End If End Sub 运行程序，在 Text1中输入 “海 ”，则在 Text2中显示的内容是 ( )。 （ A）上海南海东海 （ B）海 （ C）东

16、海南海上海 （ D）无匹配项目 36 阅读下面程序代码： Private Sub Command1_Click() Dim s As Integer s=0 a=Array(65， 23， 12， 54， 67， 32， 45， 98， 48， 62) For k=0 To 4 If a(k)a(9一 k)Then s=s+a(k) End If Next k Print s End Sub 此程序代码运行后的输出是 ( )。 （ A） 35 （ B） 186 （ C） 221 （ D） 285 37 有如下函数： Private Function fun(x As Integer， y As

17、 Integer)As Integer Dim k， n n=IIf(yList1 List(k)Then k=j End If Next j st$=List1 List(k) List1 List(k)=List1 List(i) List1 List(i)=st$ Next i End Sub 程序运行时，双击某个列表项则产生的结果是 ( )。 （ A）被双击的列表项与最前面的列表项互换位置 （ B）被双击的列表项与最后面的列表项互换位置 （ C）列表项从大到小排序 （ D）列表项从小到大排序 39 阅读下面的程序代码： Private Sub Command1_Click() Prin

18、t fun(748639， 5) End Sub Private Function fun(x As Long， a As Integer)As Integer Dim n As Long n=1 Do n=n*10 a=a-1 Loop Until a=0 fun=Int(x Mod n) (n 10) End Function 此程序代码运行后的输出是 ( )。 （ A） 3 （ B） 4 （ C） 48639 （ D） 74863 40 阅读下面程序代码 ： Private Sub Command1_Click() Dim temp As Integer a=Array(2， 7， 4，

19、 10， 0， 1， 8， 5， 3， 9， 6) For i=7 To 4 Step-1 For j=3 To i-1 If a(j)a(j+1)Then temp=a(j) a(j)=a(j+1) a(j+1)=temp End If Next j Next i For i=0 To 10 Print a(i)； Next i End Sub 此程序代码运行后的输出是 ( )。 （ A） 2 7 4 0 1 5 8 10 3 9 6 （ B） 0 1 2 3 4 5 6 7 8 9 10 （ C） 2 7 0 1 4 5 8 10 3 9 6 （ D） 2 7 4 10 0 1 3 5 8

20、 9 6 二、基本操作题 41 (1)在名称为 Form1的窗体上添加一个标签，其名称为 Label1，然后通过属性窗口设置窗体和标签的属性，实现如下功能： 窗体标题为 “设置 标签属性 ”； 标签的位置为：距窗体左边界 500，距窗体顶边界 300； 标签的标题为 “等级考试 ”； 标签的 AutoSize属性为 True； 标签带有边框。 程序的运行情况如图所示。 要求：不编写任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjtl vbp，窗体文件名保存为 sjtl frm。 (2)在名称为 Form1的窗体上添加一个命令按钮和一个水平滚动条，其名称分别为Command

21、1和 HScroll1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置水平滚动条的 属性： Max=窗体宽度 Min=0 LargeChange=50 SmallChange=10 而如果移动水平滚动条的滚动框，则滚动框的位置值显示在窗体上。程序的运行情况如图所示。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。三、简单应用题 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp。窗体 Form1上有两个标题分别是“读数据 ”和 “查找 ”的命令按钮。请画 1个名称为 Text1、

22、初始值为空的文本框，该文本 框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。 在考生文件夹下的 in3 dat文件中存有 100个正整数。单击 “读数据 ”按钮，则将文件in3 dat中的数据读入数组 a中。 单击 “查找 ”按钮，则查找数组 a中所有为 7的倍数的数据，并将这些数据顺次显示在 Text1文本框内 (数据之间用空格隔开 )。 “读数据 ”按钮的 Click事件过程已经给出，请编写程序完成 “查找 ”按钮的 click事件过程，实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用 “查找 ”按钮完成查找 过程，且必须用窗体右上

23、角的关闭按钮结束程序，否则无成绩。最后将程序按原文件名存盘。(2)考生义件夹下有一个工程文件 sjt4 vbp。在窗体： Form1上有两个名称为 Command1和 Command2、标题分别为 “重输 ”和“查找 ”的命令按钮。程序功能如下。 单击 “重输 ”按钮，则清空 Text1中的内容，等待用户输入由空格隔开的若干个英文单词；单击 “查找 ”按钮，则找出 Text1中最长的单词，并将其显示在 Text2中。某一次的运行效果如图所示。请将 “查找 ”按钮的Click事件过程中的注释符去掉，把 ?改为正确内容 ，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后

24、将程序按原文件名存盘。 四、综合应用题 43 在窗体上建立三个菜单 (名称分别为 Read、 Calc和 Save，标题分别为 “读入数据 ”、 “计算并输出 ”和 “存盘 ”)，然后添加一个文本框 (名称为 Text1，可显示多行，ScrollBars属性设置为 2)(如图所示 )。程序运行后，如果执行 “读入数据 ”命令，则读入 datainl txt文件中的 100个整数，放入一个数组中，数组的下界为 1；如果单击 “计算并输出 ”按钮，则把该数组中小于 50的 元素显示在文本框中，求出它们的和，并把所求得的和显示在窗体上；如果单击 “存盘 ”按钮，则将所求得的和存入考生文件夹下的 da

25、taout txt文件中。 在考生文件夹下有一个工程文件 sjt5 vbp。窗体文件中的 ReadData过程可以把 datainl txt文件中的 100个整数读入 Arr数组中；而 WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中 (整数值通过计算求得，文件名为 dataout txt)。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为 sjt5 vbp，窗体 文件名仍保存为sit5 frm。 国家二级（ VB）机试模拟试卷 147答案与解析 一、选择题 1 【正确答案】 A 【试题解析】 算法的空间复杂度是指执行这个算法所需要的内存空间，包括

26、3个部分：输入数据所占的存储空间；程序本身所占的存储空间；算法执行过程中所需要的额外空间。为了降低算法的空间复杂度，主要应减少输入数据所占的存储空间以及额外空间，通常采用压缩存储技术。 A选项正确。 2 【正确答案】 D 【试题解析】 对长度为 n的线性表，下表为常用排序算法最坏情况下的比较次数。 上表中未包 括希尔排序，因为希尔排序的时间效率与所取的增量序列有关，如果增量序列为： d1=n 2， di+1=di 2，在最坏情况下，希尔排序所需要的比较次数为 O(n1.5)。由表格可知冒泡排序与快速排序比较次数相同， D选项正确。 3 【正确答案】 A 【试题解析】 栈是一种特殊的线性表，它所

27、有的插入与删除都限定在表的同一端进行。入栈运算即在栈顶位置插入一个新元素，退栈运算即取出栈顶元素赋予指定变量。栈为空时，栈顶指针 top=0，经过入栈和退栈运算，指针始终指向栈顶元素。初始状态为 top=51，当 top=20时，元素依次存储在单元 20： 50中，个数为50一 19=31， A选项正确。 4 【正确答案】 D 【试题解析】 在树结构中，一个结点所拥有的后件个数称为该结点的度。对任何一棵二叉树，度为 0的结点 (即叶子结点 )总是比度为 2的结点多一个。二叉树 中有400个结点，设叶子结点个数为 n0，度为 1的结点个数为 100，设度为 2的结点个数为 n2。 400=n0+

28、100+n2且 n0-n2+1，则 n0=150 5， n2=149 5。由于结点个数必须是整数，所以不存在这样的二叉树，故选择 D选项。 5 【正确答案】 C 【试题解析】 类一对象的基本特点如下。由表格可知 “类一对象 ”主要特征包括类的多态性，故 C选项正确。 6 【正确答案】 B 【试题解析】 需求分析阶段对待开发软件提出的需求进行分析并给出详细定义，编写软件规格说明书及初步的用户手册，提 交评审，可以分为 4个方面：需求获取、需求分析、编写需求规格说明书和需求评审。可行性研究是软件生命周期第二阶段的主要任务，在需求分析之前，故选择 B选项。 7 【正确答案】 D 【试题解析】 通常把

29、软件产品从提出、实现、使用、维护到停止使用、退役的过程称为软件生命周期， D选项正确。 8 【正确答案】 D 【试题解析】 数据库系统在其内部分为三级模式，即概念模式、内模式和外模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户的公共数据视图。外模式也称子模式或者用户模式，是用户的数据视 图，也就是用户所能够看见和使用的局部数据的逻辑结构和特征的描述，是与某一应用有关的数据的逻辑表示。内模式又称物理模式，是数据物理结构和存储方式的描述，是数据在数据库内部的表示方式。描述数据库中全体数据的全局逻辑结构和特征的是概念模式， D选项正确。 9 【正确答案】 A 【试题解析】 实体集之间通

30、过联系来建立联接关系，主要分为三类：一对一联系(1： 1)、一对多联系 (1： m)、多对多联系 (m： n)。每个班有多名学生，但每个学生只能在一个班级里，故实体班级和实体学生之间的联系是一对多， A选项正确。 10 【正确答案】 C 【试题解析】 交： RS结果是既属于 R又属于 S的记录组成的集合。并： RS是将 S中的记录追加到 R后面。上述两种操作中，关系 R与 S要求有相同的结构，故 A、 D选项错误。投影是指从关系模式中指定若干个属性组成新的关系。由于 T中含有 R中不存在的属性，明显不可能由 R向 S投影得到 T，故 B选项错误。自然连接：去掉重复属性的等值连接。 R与 S重复

31、属性是 A，等值元组为 a和 c，进行自然连接得到的两个元组按照属性 ABCD的顺序为 c3f4与 aln5，正好为题目中关系 T，故 C选项正确。 11 【正确答 案】 D 【试题解析】 内存中可以驻留多个窗体，但是当前窗体只能有一个， D选项错误。所以答案为 D选项。 12 【正确答案】 A 【试题解析】 在 VB中，可变参数过程通过 ParamArray命令来定义，一般格式为： Sub过程名 (ParamArray数组名 ) 这里的 “数组名 ”是一个形式参数，只有名字和括号，没有上下界。由于省略了变量类型， “数组 ”的类型默认为 Variant。所以 A选项正确。 13 【正确答案】

32、 B 【试题解析】 在 9个算术运算符中，运算符的优先级如下。表达式 55 5*5 5 Mod 5执行的顺序为先进行幂运算 ()，得 25 5*5 5 Mod 5。再进行乘 (*)和浮点除 ( )，得 2525 5 Mod 5=25 5 Mod 5。然后再进行整除运算 ( )，得 5 Mod 5。最后进行取模运算 (Mod)，最终运算结果为 0，所以 B选项正确。 14 【正确答案】 A 【试题解析】 在定义二维数组时， Visual Basic提供了以下两种格式。 1 Dim数组名 (第一维下标上界，第二维下标上界 )As类型名称 2 Dim数组名 (下界 to上界 ， 下界 to上界 )A

33、s 类型名称 数组的类型通常在 As子句中给出，如果省略 As子句，则定义的是默认数组。此外，也可以通过类型说明符来指定数组的类型，此时类型说明符必须紧跟在数组名之后，故 C选项错误。 D选项下标取值 (-1 to -3)，数组下标取值范围 (起始值必须要大于终止值 )，故 D选项错误。若下标范围没有使用 to，默认下标的起始值为 0或 1， B选项第一维下标为 -2，取值范围错误 (起始值必须大于终止值 )，故 B选项错误。所以答案为 A选项。 15 【正确答案】 B 【试题解析】 Visual Basic 6 0支持以下格式的图形文件。 Bitmap(位图 )，其文件扩展名为 BMP或 D

34、IB。 Icon(图标 )，其文件扩展名为 ICO或 CUR。 Metafile(图元文件 )，普通图元文件的扩展名为 WMF，增强型图元文件的扩展名为 EMF。 JPEG，其文件的扩展名为 JPG。 GIF，其文件的扩展名为 GIF。 故 B选项不是 Visual Basic 6 0支持的图形文件。 16 【正确答案】 A 【试题解析】 在 Visual Basic 6 0集成开发环境中，单击 A选项中按钮可以运行正在设计的工程， B图标表示暂停， c图标表示停止， D图标表示撤销。故 A选项正确。 17 【正确答案】 A 【试题解析】 Asc(x)：返回字符串 x中第一个字符的 ASCII

35、码， Chr(x)：把 x的值转换为相应的 ASCII码字符。 Asc(“G“)=71，Chr(Asc(“G“)+3)=Chr(71+3)=“J“，故 A选项正确。 18 【正确答案】 A 【试题解析】 Len英文全称为 Length，中文意思是长度， kn(s)求字符串 s的长度 ，即所包含的字符的个数。 Mid(s， n1， n2)是字符串截取函数，从 s的第 n1个字符开始，向后截取 n2个字符，其中 n2可省略，省略时，就是截取 s的第 n1个字符以后的所有字符。 Mid(st， Len(“S“)=Mid(st， 1)=t，故 A选项错误， B选项正确。 Left(s， n)是截取字符

36、串 s左边的 n个字符， Left(st， kn(“S“)=Left(st，1)=S，故 C和 D选项正确。所以答案为 A选项。 19 【正确答案】 B 【试题解析】 赋值语句中， “=”是赋值号，左侧只可以是变量，不可以是常量或表达式，故 B选项错误， if后跟关系表达式，关系表达式中， “=”是关系运算符，判断左右关系表达式是否相等，结果为 True或 Falseo所以答案为 B选项。 20 【正确答案】 A 【试题解析】 Function过程可以有返回值，而 Sub过程不能带返回值， B选项中Sub过程定义了返回值类型，故 B选项错误。在。 Function过程中，可以使用过程名返回返回

37、值，但在 Sub过程中，不可使用，故 C选项错误。 D选项中，Function过程中定义的返回值类型和实际返回的数据类型不一致，故 D选项错误，所以答案为 A选项 。 21 【正确答案】 D 【试题解析】 控件的可见性设置为 True表示可见，设置为 False表示不可见，故 A选项正确；窗体或控件的标题可以设置为任何文本型数据，故 B选项正确；属性窗口中的属性可以按 “字母序 ”排列也可以按 “分类序 ”排列，故 C选项正确；如果不设置控件属性的值，则系统使用控件的默认值，而不是空值，故 D选项错误，所以答案为 D选项。 22 【正确答案】 B 【试题解析】 在多重窗体程序设计中， Show

38、方法用来显示一个窗体，其格式为： 窗体名称 Show模式 如果省略 “窗体名称 ”，则显示当前窗体。参数 “模式 ”用来确定窗体的状态，可以取两种值，即 0和 1(不是 False和 True)，故 C和 D选项均错。当 “模式 ”值为1(或常量 vbModal)时，表示窗体是 “模态型 ”窗体，当 “模式 ”值为 0时，表示窗体为 “非模态型 ”窗体，不用关闭该窗体就可以对其他窗体进行操作，故 B选项正确， A选项错误，所以答案为 B选项。 23 【正确答案】 A 【试题解析】 事件过程也是 Sub过程，但它是一种特殊的 Sub过程，它附加在窗体和控件上，因此，事件过程必须依附于窗体或控件的

39、存在而存 在，故 A选项正确，子程序过程、 SubMain过程、函数过程均可独立存在。所以答案为 A选项。 24 【正确答案】 D 【试题解析】 在 Visual Basic 6 0中命令按钮可以识别 17种不同的事件，包括Click和 DblClick等，故 D选项叙述错误。 25 【正确答案】 D 【试题解析】 计时器控件 Timer1的 Enabled属性为 True， Interval属性为1000，表示每隔 1秒钟，计时器的 Timer事件被触发一次，由于程序中没有设置计时器结束的语句，所以计时器每隔 秒钟运行一 次无法结束，无法得到 x的值。族 A、 B、 C选项均错误， D选项正

40、确。 26 【正确答案】 B 【试题解析】 框架控件的 Caption属性用于定义框架的可见文字部分，故 B选项正确。 27 【正确答案】 A 【试题解析】 VB中窗体的坐标系使用的是绝对坐标系，如右图所示，直线的两个端点的坐标分别为 (x1， y1)和 (x2， y2)，根据正切公式 =1，得到 y1y2=x2一 x1，故 A选项正确。 28 【正确答案】 C 【试题解析】 列表框无 change事件，故 C选项正确。 29 【正确答 案】 A 【试题解析】 文本框的 GotFoucs表示当文本框获得焦点时，此事件被触发。为实现在文本框中自动显示系统当前日期，可以将代码 “Text1 Tex

41、t=Date”放入文本框的 G0tF0ucs事件中，当用户移动鼠标指针到文本框 Text1，获得焦点时，会自动触发自动填充当前时间事件，故 A选项正确。 LostFocus表示当文本框失去焦点时，触发该事件。 Change表示当文本框的内容发生变化时所触发的事件。 Click表示当点击文本框所触发的事件。故 B、 c、 D选项均错误，答案为 A选项。 30 【正确答 案】 A 【试题解析】 图像框的 stretch属性用来自动调整图像框中图形内容的大小，该属性的取值为 True或 False。当其属性值为 False时，将自动放大或缩小图像框中的图形以与图像框的大小相适应。本题中时通过滚动条来

42、控制图像的大小，所以应将 Stretch属性设置为 True，所以 A选项正确。 31 【正确答案】 A 【试题解析】 Do while循环条件表达式 语句块 Exit Do Loop 若循环条件表达式为 True时，执行循环语句，当循环条件 表达式为 False时，结束循环。由题意知，求 1+2+100 的累加和，应把循环条件表达式设置为“n0，则循环执行 n次，每次 x一 1，循环结束相当于 xy；若 y0，则循环执行 n次，每次 x一 (一 1)，循环结束也相当于 xy；故本题中 fun函数的功能是返回 xy的结果。所以 B选项正确。 38 【正确答案】 C 【试题解析】 本题主要考查利

43、用简单选择 排序法对列表框 List1中的元素进行排序，简单选择排序法的思路是：利用外层循环遍历列表框中的全部数据，将当前第一个元素下标保存到变量中，然后利用内层循环与外层循环的当前元素进行比较，将较大数交换到前面。故本题的主要功能是按照从大到小的顺序对列表框中的元素进行降序排列，所以 C选项正确。 39 【正确答案】 B 【试题解析】 主调过程 Command1_Click中调用函数过程 fun，并将整数 748639传递给形参 x，将 5传递给形参 a，被调过程 fun中循环执行情况及各变量的值如下表所示。 x mod n=748639 mod 100000=48639： n 10=100

44、000 10=10000：故表达式 Int(x Mod n) (n 10)结果为 Int(48639 10000)=4；所以 B选项正确。 40 【正确答案】 A 【试题解析】 Array函数用来为数组元素赋值，即把一个数据集读入某个数组。本题利用 Array函数，将一组整型数据读入到数组变量 a中。利用二重 For循环对数组中的部分元素进行排序，循环执行过程中，各变量的值如下表所示。循环结束后数组中各元素的值依次为： (2， 7， 4， 0， 1， 5， 8， 10， 3， 9， 6)；所以 A选项正确。 二、基本操作题 41 【正确答案】 (1)步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 1。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表 2。