1、计算机二级考试 VISUAL+BASIC模拟题一 2014年及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(每小题 1分，共 40小题，共 40分(总题数：40，分数：40.00)1.下列叙述中正确的是( )。（分数：1.00）A.栈是“先进先出”的线性表B.队列是“先进后出”的线性表C.循环队列是非线性结构D.有序线性表既可以采用顺序存储结构，也可以采用链式存储结构2.支持子程序调用的数据结构是( )。（分数：1.00）A.栈B.树C.队列D.二叉树3.某二叉树有 5个度为 2的结点，则该二叉树中的叶子结点数是( )。（分数：1.00）A.10B.8C.6D.44.下列排序
2、方法中，最坏情况下比较次数最少的是( )。（分数：1.00）A.冒泡排序B.简单选择排序C.直接插入排序D.堆排序5.软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下列属于应用软件的是( )。（分数：1.00）A.编译程序B.操作系统C.教务管理系统D.汇编程序6.下列叙述中错误的是( )。（分数：1.00）A.软件测试的目的是发现错误并改正错误B.对被调试的程序进行“错误定位”是程序调试的必要步骤C.程序调试通常也称为 DebugD.软件测试应严格执行测试计划，排除测试的随意性7.耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是( )。（分数：1.00）A.提
3、高耦合性降低内聚性有利于提高模块的独立性B.降低耦合性提高内聚性有利于提高模块的独立性C.耦合性是指一个模块内部各个元素问彼此结合的紧密程度D.内聚性是指模块间互相连接的紧密程度8.数据库应用系统中的核心问题是( )。（分数：1.00）A.数据库设计B.数据库系统设计C.数据库维护D.数据库管理员培训9.有两个关系 R，S 如下： （分数：1.00）A.选择B.投影C.插入D.连接10.将 ER图转换为关系模式时，实体和联系都可以表示为( )。（分数：1.00）A.属性B.键C.关系D.域11.执行语句 Dim X，Y As Integer 后，( )。（分数：1.00）A.X和 Y均被定义为
4、整型变量B.X和 Y均被定义为变体类型变量C.X被定义为整型变量，Y 被定义为变体类型变量D.X被定义为变体类型变量，Y 被定义为整型变量12.下列关系表达式中，其值为 True的是( )。（分数：1.00）A.“XYZ“XYz“B.“VisualBasic“XYz“B.“VisualBasic“4，必然满足 4=3，弹出信息框为 pass!。40.设有如下程序： Option Base 1 Private Sub Form Click() Dim a(5)As String，i As Integer For i=1 To 5 a(i)=Chr(Asc(“A“)+i) Call f(a，i)
5、Next i End Sub Sub f(ta()As String，n AsInteger) Dim i As Integer For i=1 To n Print ta(i)； Next i Print End Sub 对上述程序以下叙述中正确的是( )。（分数：1.00）A.程序有错，因为在过程 f的定义中数组参数格式不正确B.程序可正常运行，输出内容的第一行是一个字母“A”C.程序可正常运行，输出内容的第一行是一个字母“B” D.程序可正常运行，输出内容的第一行是数字 65解析：【解析】Chr 是 Ascii码转成字符，Asc 是讲字符转成 Ascii码。i 是 1到 5的循环，仍然是
6、一个数。a 数组就是 B、C、D、E、F 这 5行字符。第一行是 B，程序运行后，5 行分别是B，BC，BCD，BCDE，BC DEF。二、基本操作题(共 18分)(总题数：2，分数：18.00)41.在名称为 Form1的窗体中绘制一个名称为 Label1的标签，其标题为空，BorderStyle 属 性为 1；再添加一个名称为 Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔 1秒钟加 2。程序运行效果如图 11所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 Sj1vbp，窗体文件名为 Sj1frm。 （分数：9.00）_正确答案：(
7、计时器的 Interval属性用于设置每次触发计时器的 Timer事件的时间间隔，单位为毫秒。Enabled 属性控制计时器是否开始启用，True 表示启用，False 表示不启用。 根据题意，新建“标准 EXE”工程，将一个标签和一个计时器控件添加到窗体中，标签的名称为 Label1、Caption 属性为“0”，Timer 的名称为 Timer1、Interval 属性为“1 000”。设置完成后双击 Command1进入代码窗口，编写如下代码： Private Sub Timer1_Timer() Label1Caption=Val(Label1Caption)+2 每过一个间隔计数加
8、2 End Sub 单击 按钮运行程序并按要求保存。)解析：42. （分数：9.00）_正确答案：(根据题意，新建“标准 EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为 Text1、Text 属性为空，命令按钮的名称为 Command1、Caption 属性为“当前时间日期切换”。双击 Command1进入代码窗口，编写如下代码： Dim i As Integer Private Sub Command1Click() If i=0 Then Text1Text=Date i=1 显示标识，1 表示显示的是日期 Else Text1Text=Time i=0 0 表示
9、显示的是时间 End If End Sub Private Sub Form_Load() Text1 Text=Time i=0 End Sub 单击 按钮运行程序，并按要求保存。)解析：三、简单应用题(共 24分)(总题数：2，分数：24.00)43.在考生文件夹中有文件 sj3vbp 及其窗体文件 sj3frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为 Check1和 Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果 Check1和 Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只
10、选中 Checkl，单击按钮，则在文本框中显示“选中 Item1”；如果只选中 Check2，然后单击按钮，则在文本框中显示“选中 Item2”；如果同时选中 Check1和 Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图 13所示。 （分数：12.00）_正确答案：(根据题意，将两个名称分别为 Check1和 Check2的复选按钮、一个名称为 Text1的文本框和一个名称为 Command1的命令按钮放入到窗体中，复选按钮的 Caption属性分别为 Item1和 Item2，Text1的 Text 属性为空，命令按钮的 Caption属性为“选择”。双击 C
11、ommand1进入代码编写窗口，代码如下： Private hub Command1 Click() If Check1Value=1 Then 当选中 Check1时 If Check2Value=1 Then选中 Check2 Text1Text=“不能全选“ 在 Text1中显示不能全选 Else 没有选中 Check2 Text1Text=“选中 Item1“ 在 Text1中显示选中 Item1 End If Else当没选中 Check1时 IfCheck2Value=1 Then选中 Cheek2 Text1Text=“选中 Item2“显示选中 Item2 E1se Text1
12、Text=“不显示 End If End If End Sub 单击 按钮运行程序，并按要求保存。)解析：44. （分数：12.00）_正确答案：(列表框控件用于显示可供单一或多个选择的列表项。在程序运行时可通过代码：列表框名AddItem“项目”给列表框添加列表项；MultiSelect 属性用于设置是否可在列表项中选择多项，值为 0(缺省设置) 表示不允许选择多项，值为 1表示允许做简单多项选择，值为 2表示允许配合使用Shift、Ctrl 键做多项选择；Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从 0开始)，值为 True表示被选中，值为 Fals
13、e表示未被选中；List(Index)属性用于设置或返回指定索引号的列表项的内容；ListCount 属性用来返回列表框中当前的列表项条数。 根据题意，将列表框List的 MuhiSelect为 1-Simple，双击 Command1进入代码窗口，编写如下代码： Private Sub Command1_Click() Dim i As Integer For i=0 To List1ListCount-1 遍历 list1列表 If List1Selected(i)=True Then找到选中项 List2AddItem List1List(i) 将其加入到list2列表框中 End If
14、 Next End Sub 单击 按钮运行程序，并按要求保存。)解析：四、综合应用题(共 18分)(总题数：1，分数：18.00)45.在考生文件夹下有工程文件 si5vbp 及窗体文件 sj5frm，该程序是不完整的。窗体 Forml中有一命令按钮与一个水平滚动条。命令按钮的名称为 Command1，标题为“移动”；水平滚动条的名称为HScroll1。单击“移动”按钮后，在弹出的对话框中输人数值。输入一个整数后，单击“移动”，滚动条中的滚动块移动到指定的刻度，如果超过了滚动条的最大刻度，则不再移动，并且在窗体上显示“输入的数值太大”，如果超过了滚动条的最小刻度，则不再移动，并且在窗体上显示“
15、输入的数值太小”，如图15所示。 （分数：18.00）_正确答案：( 本题主要考查滚动条的属性和 IF语句的使用。 滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其 Value属性的值。滚动条的 Max属性、Min 属性限定了滚动条所能表示的最大值和最小值，即 Value属性值的取值范围，在程序中改变 Value属性的值，滚动条滑块会随之移动到相应位置。 InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型。在代码窗口编写如下代码： Private Sub Command1_Click() Dim a As Integer a=Val(InputBox(“请输入数值“) 通过输入对话框输入数值 If aHScroll1Max Then 如果数值大于滚动条的最大值 C1s Print“输入的数值太大“ 在窗件上显示“输入的数值太大” Elself a 如果数值小于滚动条的最小值 Cls Print“输入的数值太小“ 在窗件上显示“输入的数值太小” Else C1s HScroll1Value=a 如果在范围内，则将滚动条移动指定的距离 End If End Sub 单击 按钮运行程序，并按要求保存。)解析：
