1、全国计算机等级考试二级 VISUAL+BASIC 真题 2008 年 4 月及答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.程序流程图中带有箭头的线段表示的是( )。（分数：2.00）A.图元关系B.数据流C.控制流D.调用关系2.结构化程序设计的基本原则不包括( )。（分数：2.00）A.多态性B.自顶向下C.模块化D.逐步求精3.软件设计中模块划分应遵循的准则是( )。（分数：2.00）A.低内聚低耦合B.高内聚低耦合C.低内聚高耦合D.高内聚高耦合4.在软件开发中，需求分析阶段产生的主要文档是( )。（分数：2.00）A.可行性分
2、析报告B.软件需求规格说明书C.概要设计说明书D.集成测试计划5.算法的有穷性是指( )。（分数：2.00）A.算法程序的运行时间是有限的B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用6.对长度为 n 的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2 的排序方法是( )。（分数：2.00）A.快速排序B.冒泡排序C.直接插入排序D.堆排序7.下列关于栈的叙述正确的是( )。（分数：2.00）A.栈按“先进先出”组织数据B.栈按“先进后出”组织数据C.只能在栈底插入数据D.不能删除数据8.在数据库设计中，将 E-R 图转换成关系数据模型的过程属
3、于( )。（分数：2.00）A.需求分析阶段B.概念设计阶段C.逻辑设计阶段D.物理设计阶段9.有 3 个关系 R、S 和 T 如下： （分数：2.00）A.并B.自然连接C.笛卡尔积D.交10.设有表示学生选课的 3 张表，学生 S(学号，姓名，性别，年龄，身份证号)，课程 C(课号，课名)，选课 SC(学号，课号，成绩)，则表 SC 的关键字(键或码)为( )。（分数：2.00）A.课号，成绩B.学号，成绩C.学号，课号D.学号，姓名，成绩11.下列叙述中错误的是( )。（分数：2.00）A.标准模块文件的扩展名是.basB.标准模块文件是纯代码文件C.在标准模块中声明的全局变量可以在整个
4、工程中使用D.在标准模块中不能定义过程12.在 Visual Basic 中，表达式 3*2/5 Mod 3 的值是( )。（分数：2.00）A.1B.0C.3D.出现错误提示13.下列选项中，不合法的 Visual Basic 的变量名是( )。（分数：2.00）A.a5bB._xyzC.a bD.andif14.下列数组定义语句中，错误的是( )。（分数：2.00）A.Static a(10) As IntegerB.Dim c(3，1 To 4)C.Dim d(-10)D.Dim b(0 To 5，1 To 3)As Integer15.现有语句：y=IIf(x0,x Mod 3,0)
5、设 x=10，则 y 的值是( )。（分数：2.00）A.0B.1C.3D.语句有错16.为了使文本框同时具有垂直和水平滚动条，应先把 multiLine 属性设置为 True，然后再把 ScrollBars 属性设置为( )。（分数：2.00）A.0B.1C.2D.317.文本框 Text1 的 KeyDown 事件过程如下： Private Sub Text 1_KeyDown(KeyCode As Integer,Shift As Integer) End Sub 其中参数 KeyCode 的值表示的是发生此事件时( )。（分数：2.00）A.是否按下了Alt键或Ertl键B.按下的是哪
6、个数字键C.所按的键盘键的键码D.按下的是哪个鼠标键18.窗体上有一个名称为 HScroll 1 的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。（分数：2.00）A.Private Sub HScroll 1_Change() Print HScroll1.Value End SubB.Private Sub HScroll 1_Change() Print HScroll1.SmallChange End SubC.Private Sub HScroll1 Scroll() Print HScroll1.Va
7、lue End SubD.Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub19.若已把一个命令按钮的 Default 属性设置为 True，则下列可导致按钮的 Click 事件过程被调用的操作是( )。（分数：2.00）A.用鼠标右键单击此按钮B.按键盘上的Esc键C.按键盘上的回车键D.用鼠标右键双击此按钮20.要使两个单选按钮属于同一个框架，正确的操作是( )。（分数：2.00）A.先画一个框架，再在框架中画两个单选按钮B.先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中C.先画两个单选按钮，再
8、用框架将单选按钮框起来D.以上 3 种方法都正确21.能够存放组合框的所有项目内容的属性是( )。（分数：2.00）A.CaptionB.TextC.ListD.Selected22.设窗体上有一个标签 Label 1 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1000， Enabled 属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是( )。（分数：2.00）A.Private Sub Timer1_Timer() LabelCaption=True End SubB.Private Sub Time
9、r1_Timer() LabelCaption=Time$ End SubC.Private Sub Timer1_Timer() LabelInterval=1 End SubD.Private Sub Timer1_Timer() For k=1 To TimerInterval Label1.Caption=Timer Next K End Sub23.设有如右图所示的窗体和下列程序： （分数：2.00）A.文本框中无内容，焦点在文本框中B.文本框中为“Basic“，焦点在文本框中C.文本框中为“Basic“，焦点在按钮上D.文本框中为“Visual Basic“，焦点在按钮上24.窗体
10、上有一个名称为 Command1 的命令按钮，其事件过程如下： Private Sub Command1.Click() x=“Visual BasicProgramming“ a=Right(x，11) b=Mid(x,7,5) c=MsgBox(a，b) End Sub 运行程序后单击命令按钮，下列叙述中错误的是( )。（分数：2.00）A.信息框的标题是 BasicB.信息框中的提示信息是 ProgrammingC.c 的值是函数的返回值D.MsgBox 的使用格式有错25.设工程文件包含两个窗体文件 Forml.frm、Form2.frm 及一个标准模块文件 Modulel.bas。两
11、个窗体上分别只有一个名称为 Command1 的命令按钮。 Forml 的代码如下： Public x As Integer Privme Sub Form_Load() x=1 y=5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2 的代码如下：Private Sub Command1_Click() Print Form1.x，y End Sub Modulel 的代码如下： Public y As Integer 运行以上程序，单击 Form1 的命令按钮 Command1，则显示 Form2；再单击 Form2
12、 上的命令按钮Command1，则窗体上显示的是( )。（分数：2.00）A.1 5B.0 5C.0 0D.程序有错26.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序 如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox(“) If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End
13、 Sub 对以上程序，下列叙述中错误的是( )。（分数：2.00）A.x 是用户定义的类型B.InputBox 函数弹出的对话框中没有提示信息C.若输入的是偶数，b 的值为该偶数的平方D.Fix(a/2)把 a/2 的小数部分四舍五入，转换为整数返回27.窗体上有一个名称为 CD1 的通用对话框控件和由四个命令按钮组成的控件数组 Command1，其下标从左到右分别为 0、1、2、3，窗体外观如下图所示。 命令按钮的事件过程如下： （分数：2.00）A.单击“打开”按钮，显示打开文件的对话框B.单击“保存”按钮，显示保存文件的对话框C.单击“打印”按钮，能够设置打印选项，并执行打印操作D.单击
14、“退出”按钮，结束程序的运行28.窗体上有两个水平滚动条 HV、HT，还有一个文本框 Text1 和一个标题为“计算”的命令按钮Command1，并编写了下列程序： （分数：2.00）A.过程调用语句不对，应为 cale(HHB.过程定义语句的形式参数不对，应为 Sub cale(x As Contro1，y As ControC.计算结果在文本框中显示出来D.程序不能正确运行29.现有如下程序： Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x A
15、s Integer) If x=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是( )。（分数：2.00）A.38B.49C.61D.7030.窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如下图所示。 （分数：2.00）A.在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性(有“”)B.菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符C.在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性(有“”)D.在设计该弹出菜单的主菜单项时，在菜单
16、编辑器窗口中去掉了“可见”前面的“”31.窗体上有一个名称为 Picturel 的图片框控件，一个名称为 Label1 的标签控件，如下图所示。 现有如下程序： Public Sub display (x As Control) If TypeOf x Is Label Then x.Caption=“计算机等级考试“ Else x.Picture=LoadPicture(“pic.jpg“) End If End Sub Private Sub Labell_Click() Call display(Labell) End Sub Private Sub Picture1_Click() C
17、all display(Picture1) End Sub 对以上程序，下列叙述中错误的是( )。 （分数：2.00）A.程序运行时会出错B.单击图片框，在图片框中显示一幅图片C.过程中的 x 是控件变量D.单击标签，在标签中显示一串文字32.窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Asc(c)+2) End
18、 Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是( )。（分数：2.00）A.AB.aC.CD.c33.设窗体上有一个文本框 Text1 和一个命令按钮 Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s=“ For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1 中显示的是( )。（
19、分数：2.00）A.BasicB.cisaBC.BASICD.CISAB34.某人编写了下列程序，用来求 10 个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox(“输入一个整数“) Next k max=0 For k=1 To 10 If a(k)max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入 10 个正数时，可以得到正确结果，但输入 10 个
20、负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。（分数：2.00）A.把 Ifa(max Then 改为 If a(max ThenB.把 max=a(改为 a(=maxC.把第 2 个循环语句 For k=1 To 10 改为 For k=2 To 10D.把 max=O 改为 max=a(10)35.已知在 4 行 3 列的全局数组 score(4，3)中存放了 4 个学生 3 门课程的考试成绩(均为整数)，现需要计算每个学生的总分，某人编写程序如下： Option Base 1 Private Sub Command1_Click() Dim sum As I
21、nteger sum=0 For i=1 To 4 For j=1 To 3 sum=sum+score(i，j) Next j Print “第“ &i& “个学生的总分是:“；sum Next i End Sub 运行此程序时发现，除第 1 个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。下列修改方案中正确的是( )。（分数：2.00）A.把外层循环语句 For i=1 To 4 改为 For i=1 To 3 内层循环语句 For j=1 To 3 改为 For j=1 To 4B.把 sum=0 移到 For i=1 To 4 和 For j=1 To 3 之间C.把 su
22、m=sam+score(i，改为 sum=sum+score(j，D.把 sum=sum+score(i，改为 sam=score(i，二、B填空题/B(总题数：10，分数：20.00)36.测试用例包括输入值集和U 【1】 /U值集。（分数：2.00）填空项 1:_37.深度为 5 的满二叉树有U 【2】 /U个叶子结点。（分数：2.00）填空项 1:_38.设某循环队列的容量为 50，头指针 front=5(指向队头元素的前一位置)，尾指针 rear=29(指向队尾元素)，则该循环队列中共有U 【3】 /U个元素。（分数：2.00）填空项 1:_39.在关系数据库中，用来表示实体之间联系的
23、是U 【4】 /U。（分数：2.00）填空项 1:_40.在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中，U 【5】 /U负责数据的模式定义与数据的物理存取构建。（分数：2.00）填空项 1:_41.设有下列循环： x=1 Do x=x+2 Print x Loop UntilU 【6】 /U 要求程序运行时执行 3 次循环体，请填空。（分数：2.00）填空项 1:_42.窗体上命令按钮 Commandl 的事件过程如下： Private Sub Command1_Click() Dim total As Integer total=s(1)+s(2) Print total
24、 End Sub Private Function s(m As Integer)As Integer Static x As Integer For i=1 To m x=x+1 Next i s=x End Function 运行程序，第 3 次单击命令按钮 Command1 时，输出结果为U 【7】 /U。（分数：2.00）填空项 1:_43.在窗体上画一个名称为 Command1 的命令按钮，然后编写下列程序： Option Base_1 Private Sub Command1_Click() Dim a(10)As Integer For i=1 To 10 a(i)=i Next
25、 Call swap(U 【8】 /U) For i=1 To 10 Print a(i)； Next End Sub Sub swap(b()As Integer) n=U 【9】 /U For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t U【10】 /U Next End Sub 上述程序的功能是通过调用过程swap，调换数组中数值的存放位置，即 a(1)与 a(10)的值互换， a(2)与 a(9)的值互换，请填空。（分数：2.00）填空项 1:_44.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写下列事件过程：Pri
26、vate Sub Command1_Click() CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files“_ &“(*.txt)|*.txt|Batch Files(*.bat)|*.bat“ CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 U【11】 /U；如果在对话框中选择 d 盘 temp 目录下的 tel.txt文件，然后单击
27、“确定”按钮，则在 MsgBox 信息框中显示的提示信息是U 【12】 /U。（分数：2.00）填空项 1:_45.下列程序的功能是把顺序文件 smtextl.txt 的内容全部读入内存，并在文本框 Textl 中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text=“ Open “smtext1.txt“U【13】 /UAsU 【14】 /U Do While U【15】 /U Input #2，inData Text1.Text=Text1.Text & inData Loop Close #2 End
28、 Sub（分数：2.00）填空项 1:_全国计算机等级考试二级 VISUAL+BASIC 真题 2008 年 4 月答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.程序流程图中带有箭头的线段表示的是( )。（分数：2.00）A.图元关系B.数据流C.控制流 D.调用关系解析：解析 程序流程图是一种传统的、应用广泛的软件过程设计工具，通常也称为程序框图。其中，用带箭头的线段表示控制流，用柜形表示加工步骤，用菱形表示逻辑条件。2.结构化程序设计的基本原则不包括( )。（分数：2.00）A.多态性 B.自顶向下C.模块化D.逐步求精解析：解析
29、结构化程序设计方法的主要原则可以概括为：自顶向下，逐步求精，模块化和限制使用GOTO 语句，其中不包括多态性。3.软件设计中模块划分应遵循的准则是( )。（分数：2.00）A.低内聚低耦合B.高内聚低耦合 C.低内聚高耦合D.高内聚高耦合解析：解析 耦合性和内聚性是模块独立性的两个定性标准，各模块的内聚性越强，则耦合性越弱。软件设计应该遵循高内聚低耦合的准则。4.在软件开发中，需求分析阶段产生的主要文档是( )。（分数：2.00）A.可行性分析报告B.软件需求规格说明书 C.概要设计说明书D.集成测试计划解析：解析 需求分析的最终结果是生成软件需求规格说明书，可以为用户、分析人员和设计人员之间
30、的交流提供方便，可以直接支持目标的确认，又可以作为控制软件开发进程的依据。5.算法的有穷性是指( )。（分数：2.00）A.算法程序的运行时间是有限的 B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用解析：解析 算法的有穷性，是指算法必须能在有限的时间内做完，即算法必须能在执行有限个步骤之后终止。6.对长度为 n 的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2 的排序方法是( )。（分数：2.00）A.快速排序B.冒泡排序C.直接插入排序D.堆排序 解析：解析 各种排序方法中最坏情况下需要比较的次数分别为：冒泡排序 n(n-1)/2、快速排序
31、 n(n-1)/2、简单插入排序 n(n-1)/2、希尔排序 O(n1.5)、简单选择排序 n(n-1)/2、堆排序 O(nlog2n)。7.下列关于栈的叙述正确的是( )。（分数：2.00）A.栈按“先进先出”组织数据B.栈按“先进后出”组织数据 C.只能在栈底插入数据D.不能删除数据解析：解析 栈是限定在一端进行插入和删除的线性表，允许进行插入和删除元素的一端称为栈顶，另一端称为栈底。栈是按照“先进后出”的原则组织数据的。8.在数据库设计中，将 E-R 图转换成关系数据模型的过程属于( )。（分数：2.00）A.需求分析阶段B.概念设计阶段C.逻辑设计阶段 D.物理设计阶段解析：解析 数据
32、库的设计阶段包括需要分析、概念设计、逻辑设计和物理设计，其中将 E-R 图转换成关系数据模型的过程属于逻辑设计阶段。9.有 3 个关系 R、S 和 T 如下： （分数：2.00）A.并B.自然连接C.笛卡尔积D.交 解析：解析 关系 R 与 S 经交运算后所得到的关系是由那些既在 R 内又在 S 内的有序组组成的，记为RS。10.设有表示学生选课的 3 张表，学生 S(学号，姓名，性别，年龄，身份证号)，课程 C(课号，课名)，选课 SC(学号，课号，成绩)，则表 SC 的关键字(键或码)为( )。（分数：2.00）A.课号，成绩B.学号，成绩C.学号，课号 D.学号，姓名，成绩解析：解析 关
33、键字是指属性或属性的组合，其值能够惟一地标识一个元组，而在 SC 中学号和课号的组合可以对元组进行惟一的标识。11.下列叙述中错误的是( )。（分数：2.00）A.标准模块文件的扩展名是.basB.标准模块文件是纯代码文件C.在标准模块中声明的全局变量可以在整个工程中使用D.在标准模块中不能定义过程 解析：解析 本题考查的考点是有关标准模块的。Visual Basic 中的标准模块也称全局模块或总模块，由全局变量声明、模块层声明及通用过程等几部分组成，其扩展名为.bas，里面只有代码而没有任何控件。其中全局声明放在标准模块的首部，可以在整个工程中使用。12.在 Visual Basic 中，表
34、达式 3*2/5 Mod 3 的值是( )。（分数：2.00）A.1 B.0C.3D.出现错误提示解析：解析 本题考查的考点是有关算术运算的。按照运算符的优先级，首先执行 3*2 得到 6，然后用6 整除 5 得到 1，最后用 1 对 3 求余数得到最终结果 1。本题要注意“/”为整除运算符，以及 Mod 取余运算的算法。13.下列选项中，不合法的 Visual Basic 的变量名是( )。（分数：2.00）A.a5bB._xyz C.a bD.andif解析：解析 本题考查的考点是有关 Visual Basic 中的变量命名规则的。Visual Basic 中给变量命名只能由字母、数字和下
35、划线组成，并且第一个字符必须是英文字母。14.下列数组定义语句中，错误的是( )。（分数：2.00）A.Static a(10) As IntegerB.Dim c(3，1 To 4)C.Dim d(-10) D.Dim b(0 To 5，1 To 3)As Integer解析：解析 本题考查的考点是有关数组定义的。在 Visual Basic 中，可以用 4 个关键字来定义数组，分别是 Dim、ReDim、Public 和 Static。在 Visual Basic 中定义数组有两种格式。 格式一：Dim数组名(下标上界)As类型名称 Dim(数组名(第一维下标上界，第二维下标上界)As类型
36、名称 格式二：Dim(数组名(下界 To 上界,下界 To 上界)As类型名称 其中上界必须大于下界。本题中选项C) 采取第一种格式定义数组，则数组默认下界为 0，上界-10 小于 0，故不符合要求。15.现有语句：y=IIf(x0,x Mod 3,0) 设 x=10，则 y 的值是( )。（分数：2.00）A.0B.1 C.3D.语句有错解析：解析 本题考查的考点是有关 IIf 函数的。IIf 函数可用于执行简单的条件判断操作，它是“IfThenElse”结构的简写版本。 格式：ResultIIff(条件,True 部分,False 部分) 其中“Result”是函数的返回值，“条件”是一个
37、逻辑表达式。当“条件”为真时，IIf 函数返回“True部分”的值，而当“条件”为假时返回“False 部分”的值。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中由于 x=10 是大于 0 的，所以返回值为 x Mod 3 的值即 1。16.为了使文本框同时具有垂直和水平滚动条，应先把 multiLine 属性设置为 True，然后再把 ScrollBars 属性设置为( )。（分数：2.00）A.0B.1C.2D.3 解析：解析 本题考查的考点是有关文本框的滚动条的。ScrollBars 属性用于设置文本框是否有水平或垂直滚动条，可设置成以下 4 种值。 0-表
38、示没有滚动条(默认值)： 1-表示只有水平滚动条： 2-表示只有垂直滚动条： 3-表示有水平和垂直滚动条。 设置 0 以外的值时 MultiLine 属性值必须为True。17.文本框 Text1 的 KeyDown 事件过程如下： Private Sub Text 1_KeyDown(KeyCode As Integer,Shift As Integer) End Sub 其中参数 KeyCode 的值表示的是发生此事件时( )。（分数：2.00）A.是否按下了Alt键或Ertl键B.按下的是哪个数字键C.所按的键盘键的键码 D.按下的是哪个鼠标键解析：解析 本题考查的考点是有关键盘事件 K
39、eyDown 的。KeyCode 参数是表示所按键的位置信息的代码。18.窗体上有一个名称为 HScroll 1 的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。（分数：2.00）A.Private Sub HScroll 1_Change() Print HScroll1.Value End Sub B.Private Sub HScroll 1_Change() Print HScroll1.SmallChange End SubC.Private Sub HScroll1 Scroll() Print HS
40、croll1.Value End SubD.Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub解析：解析 本题考查的考点是有关滚动条的属性和事件的。单击滚动条的箭头时将触发 Change 事件，而滚动块的位置由 Value 属性返回。19.若已把一个命令按钮的 Default 属性设置为 True，则下列可导致按钮的 Click 事件过程被调用的操作是( )。（分数：2.00）A.用鼠标右键单击此按钮B.按键盘上的Esc键C.按键盘上的回车键 D.用鼠标右键双击此按钮解析：解析 本题考查的考点是有关 Default
41、属性的。当某控件 Default 属性设置为 True 时，运行状态下按下回车键等同于左键单击，即触发其 Click 事件。20.要使两个单选按钮属于同一个框架，正确的操作是( )。（分数：2.00）A.先画一个框架，再在框架中画两个单选按钮 B.先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中C.先画两个单选按钮，再用框架将单选按钮框起来D.以上 3 种方法都正确解析：解析 本题考查的考点是有关框架的。要把某控件放到框架里面，必须先画出框架，然后在框架内画出控件。除此以外，只能利用剪切和粘贴的方法把控件放到框架里面，其他方法都不可以。21.能够存放组合框的所有项目内容的属性是
42、( )。（分数：2.00）A.CaptionB.TextC.List D.Selected解析：解析 本题考查的考点是有关组合框的基本属性。Caption 属性设置列表框的标题：List 属性是一个数组，存放组合框中所有项目的内容：Text 属性可返回列表框中当前选中项目的内容；Selected 属性用于设置或返回指定索引号列表项的选中状态。22.设窗体上有一个标签 Label 1 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1000， Enabled 属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是(
43、)。（分数：2.00）A.Private Sub Timer1_Timer() LabelCaption=True End SubB.Private Sub Timer1_Timer() LabelCaption=Time$ End Sub C.Private Sub Timer1_Timer() LabelInterval=1 End SubD.Private Sub Timer1_Timer() For k=1 To TimerInterval Label1.Caption=Timer Next K End Sub解析：解析 本题考查的考点是有关计时器的。计时器的 Interval 属性决
44、定了每隔多长时间触发一次Timer 事件。本题中 Interval 设置为 1000，即每 1 秒触发一次 Timer 事件。在事件中把标签的 Caption属性设置成为当前时间，用 Time 函数可以得到当前时间。23.设有如右图所示的窗体和下列程序： （分数：2.00）A.文本框中无内容，焦点在文本框中 B.文本框中为“Basic“，焦点在文本框中C.文本框中为“Basic“，焦点在按钮上D.文本框中为“Visual Basic“，焦点在按钮上解析：解析 本题考查的考点是有关事件执行过程的。由于先在文本框中输入数据，所以焦点在文本框中。当单击命令按钮时，首先应该执行文本框的 LostFoc
45、us 事件。本题中由于在文本框的 LostFocus 事件中执行到了 Text1.Setfocus，所以焦点不能离开文本框，也就不执行命令按钮的 Click 事件。24.窗体上有一个名称为 Command1 的命令按钮，其事件过程如下： Private Sub Command1.Click() x=“Visual BasicProgramming“ a=Right(x，11) b=Mid(x,7,5) c=MsgBox(a，b) End Sub 运行程序后单击命令按钮，下列叙述中错误的是( )。（分数：2.00）A.信息框的标题是 BasicB.信息框中的提示信息是 ProgrammingC.
46、c 的值是函数的返回值D.MsgBox 的使用格式有错 解析：解析 本题考查的考点是有关取子串函数和 MsgBox 函数的。 a 的值应该是 Programming，b 的值是 Basic。在 MsgBox 函数中，第一个参数是提示信息，第二个参数是按钮和图表的类型，若省略则应有逗号占位，第三个参数是对话框的标题。最终会产生一个返回值是用户单击的按钮代码。25.设工程文件包含两个窗体文件 Forml.frm、Form2.frm 及一个标准模块文件 Modulel.bas。两个窗体上分别只有一个名称为 Command1 的命令按钮。 Forml 的代码如下： Public x As Intege
47、r Privme Sub Form_Load() x=1 y=5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2 的代码如下：Private Sub Command1_Click() Print Form1.x，y End Sub Modulel 的代码如下： Public y As Integer 运行以上程序，单击 Form1 的命令按钮 Command1，则显示 Form2；再单击 Form2 上的命令按钮Command1，则窗体上显示的是( )。（分数：2.00）A.1 5 B.0 5C.0 0D.程序有错解析
48、：解析 本题考查的考点是有关变量的作用域的。本题中的 y 就是在标准模块中定义的全局变量，在任何一个窗体中都能应用，并在 Form1 中被赋值为 5；x 是 Forml 中定义的局部变量，要想在 Form2 中引用，必须用 Forml.x 格式来引用。26.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序 如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox(“) If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是( )。（分数：2.00）A.x 是用户定义的类型B.InputBox 函数弹出的对话框中没有提示信息C.若输入的
