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

1、国家二级（ VB）机试模拟试卷 60及答案与解析 一、选择题 1 程序流程图中带有箭头的线段表示的是 ( )。 （ A）图元关系 （ B）数据流 （ C）控制流 （ D）调用关系 2 结构化程序设计的基本原则不包括 ( )。 （ A）多态性 （ B）自顶向下 （ C）模块化 （ D）逐步求精 3 结构化程序设计的基本原则不包括 ( )。 （ A）多态性 （ B）自顶向下 （ C）模块化 （ D）逐步求精 4 在软件开发中，需求分析阶段产生的主要文档是 ( )。 （ A）可行性分析报告 （ B） 软件需求规格说明书 （ C）概要设计说明书 （ D）集成测试计划 5 算法的有穷性是指 ( )。 （

2、 A）算法程序的运行时间是有限的 （ B）算法程序所处理的数据量是有限的 （ C）算法程序的长度是有限的 （ D）算法只能被有限的用户使用 6 对长度为 n的线性表排序，在最坏情况下，比较次数不是 n(n 1)/2的排序方法是 ( )。 （ A）快速排序 （ B）冒泡排序 （ C）直接插入排序 （ D）堆排序 7 下列关于栈的叙述正确的是 ( )。 （ A）栈按 “先进先出 “组织数据 （ B）栈按 “先进 后出 “组织数据 （ C）只能在栈底插入数据 （ D）不能删除数据 8 在数据库设计中，将 E R图转换成关系数据模型的过程属于 ( )。 （ A）需求分析阶段 （ B）概念设计阶段 （

3、C）逻辑设计阶段 （ D）物理设计阶段 9 有三个关系 R、 S和 T如下： 由关系 R和 S通过运算得到关系 T，则所使用的运算为 ( )。 （ A）并 （ B）自然连接 （ C）笛卡尔积 （ D）交 10 设有表示学生选课的三张表，学生 S(学号，姓名，性别，年龄，身份证号 )，课程 C(课号，课名 )，选课 SC(学号，课号，成 绩 )，则表 SC的关键字 (键或码 )为( )。 （ A）课号，成绩 （ B）学号，成绩 （ C）学号，课号 （ D）学号，姓名，成绩 11 以下叙述中错误的是 ( )。 （ A）标准模块文件的扩展名是 .bas （ B）标准模块文件是纯代码文件 （ C）在标

4、准模块中声明的全局变量可以在整个工程中使用 （ D）在标准模块中不能定义过程 12 以下选项中，不合法的 Visual Basic的变量名是 ( )。 （ A） a5b （ B） _xyz （ C） a_b （ D） andif 13 以下数组定义语句中， 错误的是 ( )。 （ A） Static a(10)As Integer （ B） Dim c(3， 1 To 4) （ C） Dim d( 10) （ D） Dim b(0 To 5， 1 To 3)As Integer 14 现有语句： y IIf(x0， x Mod 3， 0) 设 x 10，则 y的值是 ( )。 （ A） 0 （

5、 B） 1 （ C） 3 （ D）语句有错 15 窗体上有一个菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。下列说法错误的是 ( )。（ A）在设计 “粘贴 “菜单项时，在菜单编辑器窗口中设置了 “有效 “属性 (有 “) （ B）菜单中的横线是在该菜单项的标题输入框中输入了一个 “-“(减号 )字符 （ C）在设计 “选中 “菜单项时，在菜单编辑器窗口中设置了 “复选 “属性 (有 “) （ D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了 “可见 “前面的“ 16 在设计窗体时双击窗体的任何地方，可以打开的窗口是 ( )。 （ A）代码窗口

6、 （ B）属性窗口 （ C）工程资源管理器窗口 （ D）工具箱窗口 17 若变量 a未事先定义而直接使用 (例如： a 0)，则变量 a的类型是 ( )。 （ A） Integer （ B） String （ C） Boolean （ D） Variant 18 为把圆周率的近似值 3.14159存放在变量 pi中，应该把变量 pi定义为 ( )。 （ A） Dim pi As Integer （ B） Dim pi(7)As Integer （ C） Dim pi As Single （ D） Dim pi As Long 19 文本框 Text1的 KeyDown 事件过程如下： Priv

7、ate Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer) . End Sub 其中参数 KeyCode的值表示的是发生此事件时 ( )。 （ A）是否按下了 Alt键或 Ctrl键 （ B）按下的是哪个数字键 （ C）所按的键盘键的键码 （ D）按下的是哪个鼠标键 20 窗体上有一个名称为 HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置 (即刻度值 )。下面能够实现上述操作的事件过程是 ( )。 （ A） Private Sub HScroll1_Change() Print HScro

8、ll1.Value End Sub （ B） Private Sub HScroll1_Change() Print HScroll1.SmallChange End Sub （ C） Private Sub HScroll1_Scroll() Print HScroll1.Value End Sub （ D） Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub 21 若已把一个 命令按钮的 Default属性设置为 True，则下面可导致按钮的 Click事件过程被调用的操作是 ( )。 （ A）用鼠标右键单击此按

9、钮 （ B）按键盘上的 Esc键 （ C）按键盘上的回车键 （ D）用鼠标右键双击此按钮 22 要使两个单选按钮属于同一个框架，下面三种操作方法中正确的是 ( )。 先画一个框架，再在框架中画两个单选按钮 先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中 先画两个单选按钮，再画框架将单选按钮框起来 （ A） （ B） 、 （ C） （ D） 、 、 23 能够存放组合框的所有项目内容的属性是 ( )。 （ A） Caption （ B） Text （ C） List （ D） Selected 24 设窗体上有一个标签 Label1和一个计时器 Timer1， Timer1的

10、Interval属性被设置为 1000， Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是 ( )。 （ A） Private Sub Timer1_Timer() Label1.Caption True End Sub （ B） Private Sub Timer1_Timer() Label1.Caption Time$ End Sub （ C） Private Sub Timer1_Timer() Label1.Interval 1 End Sub （ D） Private Sub Timer1_Timer() For

11、 k 1 To Timer1.Interval Label1.Caption Timer Next k End Sub 25 窗体上有一个名称为 CD1的通用对话框控件和由四个命令按钮组成 的控件数组Command1，其下标从左到右分别为 0、 1、 2、 3，窗体外观如图所示。命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action 1 Case 1 CD1.ShowSave Case 2 CD1.Action 5 Case 3 End End SelectEnd

12、 Sub对上述程序，下列叙述中错误的是 ( )。 （ A）单击 “打开 “按钮，显示打开文件的对话框 （ B）单击 “保存 “按钮，显示保存文件的对话框 （ C）单击 “打印 “按钮，能够设置打印选项，并执行打印操作 （ D）单击 “退出 “按钮，结束程序的运行 26 窗体上有一个名称为 Frame1的框架 (如图 )，若要把框架上显示的 “Frame1“改为汉字 “框架 “，下面正确的语句是 ( )。 （ A） Frame1.Name “框架 “ （ B） Frame1.Caption “框架 “ （ C） Frame1.Text “框架 “ （ D） Frame1.Value “框 架 “

13、 27 在窗体上画一个名称为 Combo1的组合框，名称为 Text1的文本框，以及名称为Command1的命令按钮，如图所示。 运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下： Private Sub Command1_Click() If Text1.Se1Length0 Then Else Combo1.AddItem Text1 End IfEnd Sub程序中横线处应该 填写的是( )。 （ A） Combo1.AddItem Text1.Text （ B） Combo1.AddIt

14、em Text1.SelStart （ C） Combo1.AddItem Text1.SelText （ D） Combo1.AddItem Text1.SelLength 28 窗体上有一个名称为 Text1的文本框，一个名称为 CD1的通用对话框，一个标题为 “打开文件 “的命令按钮，如图所示。命令按钮的单击事件过程如下：Private Sub Command1_Click() CD1.ShowOpen Open CD1.FileName For Input As#1 MsgBox CD1.FileName Line Input#1， s Text1.Text s Close#1End

15、Sub单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中 .以下叙述中正确的是 ( )。 （ A）程序没有错误，可以正确完成打开文件、读取文件中内容的操作 （ B）执行 Open命令时出错，因为没有指定文件的路径 （ C） Open语句是错误的，应把语句中的 For Input改为 For Output （ D） Line Input命令格式错 29 窗体上有一个如右图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件 ( )。 （ A）是图像框 (Image) （ B）是图片框 (PictureBox) （ C）是形状控件 （ D）不是上述 3种控件

16、中的一种 30 窗体上有一个名称为 Combo1的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是 ( )。 （ A） Private Sub Combo1_KeyDown(KeyCode As Integer， Shift As Integer) If KeyCode 13 Then Combo1.AddItem Combo1.Text End If End Sub （ B） Private Sub Combo1_KeyDown(KeyCode As Integer， Shift As Integer) If KeyCode 13 Then C

17、ombo1.AddItem Text1.Text End If End Sub （ C） Private Sub Combo1_Click() Combo1.AddItem Combo1.Text End Sub （ D） Private Sub Combo1_Click() Combo1.AddItem Text1.Text End Sub 31 工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是： Public x As Integer Private y As Integer 窗体文件的程序代码是： Dim a As Integer Private Sub Form_Load

18、() Dim b As Integer a 2： b 3： x 10： y 20 End Sub Private Sub Command1_Click() a a 5： b b 5： x x 5： y y 5 Print a； b； x； y End Sub 运行程序，单击窗体上的命令按钮，则在窗体上显示的是 ( )。 （ A） 5 5 15 5 （ B） 7 5 15 25 （ C） 7 8 15 5 （ D） 7 5 15 5 32 窗体上的三个命令按钮构成名称为 Command1的控件数组 。如图所示。程序如下： Private Sub Command1_Click(Index As I

19、nteger) If Index 1 Then Print“计算机等级考试 “ End If If Index 2 Then Print Command1(2).Caption End IfEnd Sub运行程序，单击 “命令按钮 2“，则如下叙述中正确的是 ( )。 （ A） Print Command1(2).Caption语句有错 （ B）在窗体上显示 “命令按钮 2“ （ C）在窗体上显示 “命令 按钮 3“ （ D）在窗体上显示 “计算机等级考试 “ 33 下面程序的执行结果是 ( )。 Private Sub Command1_Click() a 0 k 1 Do While k(

20、上界， 上界 ) As 类型名 形如： Dim a(5) As Interger ， Dim b(4,5)As Integer 这种形式，数组各维的下标的下界只能为 0或 1，而且下标的上界 下界。本题中 C选项下标上界 10(下界 to 上界 )， (下界 to 上界 ) 形如： Dim a( 2 to 5)As Interger Dim a(1 to 3， 2 to 6)As Interger 这种形式，数组各维下标的下界没有限制，只要保证下标的上界 下界就行。故D选项正确。 以上两种形式也可以混合使用。故 B 选项也正确。 14 【正确答案】 B 【试题解析】 IIF是条件函数，它的语法

21、格式是： IIf(， ， )，本题中， x 10时，条件表达式 x0的值为 True，执行 x Mod 3 即 10 Mod 3 结果为1。故选 B。 15 【正确答案】 A 【试题解析】 快捷菜单中的 “粘贴 “菜单项为无效时，在菜单编辑器窗口中 “有效“属性应该是不选中状态，没有 “，故 A选项错误。 16 【正确答案】 A 【试题解析】 设计窗体时双击窗体的任何地方，默认打开的是代码窗口。故选A。 17 【正确答案】 D 【试题解析】 VB 不要求必须先定义再使用。如果没有提前定义变量，就直接使用，系统就会将 变量的数据类型指定为默认数据类型 Variant变体型。故选 D。 18 【正

22、确答案】 C 【试题解析】 单精度 Single或双精度 Double型的变量能够保存浮点型小数，整型 Integer和长整型 Long的变量只能保存整型数据。本题中圆周率为 3.14159，小数，可用定义一个 Single或 Double型变量来保存。故选 C。 19 【正确答案】 C 【试题解析】 参数 KeyCode返回的是所按键的键码，而且大小写字母键码值相同。故选 C。 20 【正确答案】 A 【试题解析】 根据 题意可知，用户的操作是单击滚动条两端的箭头，故触发的是滚动条的 Change事件；在窗体上显示的是滚动框的位置，即滚动条的当前刻度值， Value属性值可返回这个值，综合一

23、下，故 A选项正确。 21 【正确答案】 C 【试题解析】 当命令按钮的 Default属性值为 True时，程序运行，按回车键和单击该命令按钮一样都会触发按钮的 Click 事件；当命令按钮的 Cancel属性值为True时，程序运行，按 Esc键和单击该命令按钮都会触发按钮的 Click 事件。故选 C。 22 【正确答案】 A 【试题解 析】 的操作方法可使两个单选按钮属于同一个框架，其他方法不行。故 A选项正确。 23 【正确答案】 C 【试题解析】 组合框没有 Caption属性； Text属性用来设置或返回组合框中当前选项的文本内容； Selected 属性是列表框控件的属性，组合

24、框没有 Selected 属性；List属性用来设置或返回组合框中的各选项，它是一个字符串数组，组合框中各选项内容用 List(下标 )表示。故 A、 B、 D选项错误， C选项正确。 24 【正确答案】 B 【试题解析】 Timer1 的 Interval 属性值是 1000， Enabled 属性为 True，说明定时器开始工作，每隔 1000毫秒 (即 1秒 )触发一次 Timer事件，从而执行一次Timer事件过程。要想每秒在标签中显示一次系统时间，则在 Timer 事件过程中把系统时间赋给标签的 Caption 属性就能实现。故选 B。 25 【正确答案】 C 【试题解析】 通用对话

25、框中 Action 1，或用 ShowOpen 方法都可显示 “打开 “文件对话框； Action 2，或用 ShowSave方法都可显示文件 “另存为 “对话框； Action 3，或用 ShowColor方法都可 显示 “颜色 “对话框； Action 4，或用 ShowPrint方法都可显示 “字体 “对话框； Action 5，或用 ShowHelp 方法都可显示 “打印 “对话框； 本题中， “打开 “、 “保存 “、 “打印 “、 “退出 “按钮的下标 (即 Index 值 )分别是 0、1、 2、 3，用 Index 值区分各命令按钮。 当 Index 0时， CD1.Actio

26、n 1，说明单击 “打开 “按钮，会显示 “打开 “文件对话框； 当 Index 1时， CD1.ShowSave，说明单击 “保存 “按钮，会显示文件 “另存为 “对话框；当 Index 3时， End，说明 单击 “退出 “按钮，会结束程序运行。故 A、B、 D选项正确。 当 Index 2时， CD1.Action 5，说明单击 “打印 “按钮，会显示 “打印 “对话框，但打开对话框后，只能设置打印选项，不能执行打印操作。故 C选项错误。 26 【正确答案】 B 【试题解析】 框架的 Name属性是设置框架的名称； Caption 属性设置框架的标题，是在框架的左上角显示的内容；框架控件

27、没有 Text和 Value属性。故 B 选项正确。 27 【正确答案】 C 【试题解析】 根据题意可知，横线处应该是将文本框中选中文本添加 到组合框中。文本框 Text属性返回整个文本框中的文本，故 A选项错误； SelStart属性返回选中文本的起始位置，故 B选项错误； SelLength 属性返回选中文本的长度，故D选项错误； SelText属性返回选中的文本，故 C选项正确。 28 【正确答案】 A 【试题解析】 第 1条语句中用 ShowOpen方法显示 “打开 “对话框后，在对话框中选中文件，单击 “打开 “按钮后， CD1.FileName属性就会返回打开文件的路径，所以用 O

28、pen语句打开文件时，就可用 CD1.FileName指定打开文件的路径，故 B选项说法错误。 因为第 4条语句中要用 Line Input从文件读取数据，故用 Open 语句打开文件时用Input模式打开是正确的，故 C选项说法错误。 Line Input命令格式为： Line Input #文件号，变量名，题中 Line Input 语句格式正确。故 D选项错误。 本题程序无错误，能实现所说功能，故 A选项正确。 29 【正确答案】 B 【试题解析】 图片框是 “容器 “控件，可以作为父控件，而图像框不能。图片框可以通过 Print方法接收文本，并可接收由像素组成的图形，而图像框不能接收P

29、rint方法输入的信息，也不能用绘图方法在图像框上绘制图形。而形状控件 3D效果的样式，根据题目图示显然不是形状控件。因此这个图形控件是图片框。 30 【正确答案】 A 【试题解析】 在组合框中的输入的文本保存在它的 Text属性中，根据程序要求，只要判断按下了回车键后，使用组合框的 AddItem方法把 Text中的字符添加到列表中即可。选项 C和 D没有判断是否按下回车键，所以排除。而选项 B中使用 AddItem方法添加的是 Text1.Text的值，不是组合框 Combo1 的 Text值，所以也不对。 31 【正确 答案】 D 【试题解析】 程序在模块文件中定义 x为整型全局变量，在

30、整个工程中都起作用，而 y定义为整型私有变量，只能在本模块文件中起作用。在窗体文件中变量 a在本窗体文本中起作用，窗体加载事件中定义的变量 b 和没有声明的变量 y，只在本事件过程起作用。程序窗体加载时，对后边有影响的变量值为 a为 2， x为 10，没有指定初值的变量值默认为 0，因此单击命令按钮后， a a 5 7， b b 55， x x 5 15， y y 5 5，结果输出 7 5 15 5。 32 【正确答案】 D 【试题解析】 控件数组与数据 数组一样下标默认从 0开始，即本题中按钮控件数组的 Index值为 0,1,2，分别对应命令按钮 1、命令按钮 2、命令按钮 3。当单击命令

31、按钮 2时， Index 值为 1，因此程序会输出 “计算机等级考试 “。 33 【正确答案】 B 【试题解析】 本题主要考查算术运算符中的幂运算，在程序中 x的值为 k的 k 次方的 a次方， k 的值每次循环都加 1，但 a的值不变总为 0，除 0以外的任何数的0次方都是 1，因此，在 k 的值变为 4之前会输出三个 1。 34 【正确答案】 D 【试题解析】 Mid 为中部截取函数，格式为 Mid(字符 串，起始位置，长度 )，Ucase函数的作用是把字符串中的小写字母转换为大写字母。题目中 Mid 函数截取字符串 “FormList“第 5个字符开始的 4个字符，结果为 “List“，

32、 Ucase函数把“List“全部变为大写，即 “LIST“。 35 【正确答案】 C 【试题解析】 题目程序不能将 List1中的选中项添加到 List2 中， List2.AddItem Text一行有误，应该改为 List2.AddItem List1.List(i)才能使 List1 中每个选中的行添加到 List2中。列表框控件的 List属性保存了列表框中所有值的数组，可以通过下标访问数组中的值。 36 【正确答案】 A 【试题解析】 题目中 fun过程是一个递归过程，它的结束条件是参数值为奇数。第一次调用，参数值为 6，是偶数所再次调用 fun 过程，这次参数为 6/2 3，是奇

33、数，不再调用自身，接着执行下一句输出参数值即 3，然后返回第一次调用过程中执行下一句输出第一次调用参数值，即 6。因此程序会输出 3 6。 37 【正确答案】 B 38 【正确答案】 B 【试题解析】 栈是先进后出的原则组织数据，所以入栈最早的最后出栈，所 以选择 B。 39 【正确答案】 D 【试题解析】 循环队列有队头和队尾两个指针，但是循环队列仍是线性结构的，所以 A)错误；在循环队列中只需要队头指针与队尾两个指针来共同反映队列中元素的动态变化情况，所以 B)与 C)错误。 40 【正确答案】 C 【试题解析】 当有序线性表为顺序存储时才能用二分法查找。可以证明的是对于长度为 n 的有序

34、线性表，在最坏情况下，二分法查找只需要比较 log2n 次，而顺序查找需要比较 n 次。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面，并设置 控件的属性。程序中用到的控件及属性见表 3.110和表 3.111。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.112。步骤 2：编写程序代码。参考答案Option ExplicitPrivate Sub Cmd1_Click() Cmd1.Left = 0 Cmd1.Top = 0End SubPrivate Sub Cmd2

35、_Click() Cmd2.Height = Cmd2.Height * 2 Cmd2.Width = Cmd2.Width * 2End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】步骤 1：打开本题工程文件，并设置控件的属性。程序中涉及的控件及属性见表 3.129。步骤2：分析并编写程序代码。程序提供代码 Dim flag As IntegerPrivate Sub Form_Load()flag = 0End SubPrivate Sub Command1_Click()If Command1.Caption = “移

36、动 “ ThenTimer1.Enabled = ? Command1.Caption = “暂停 “Else Timer1.Enabled = False Command1.Caption = “移动 “End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Timer1_Timer()Select Case flag Case Is = 0Label1.Left = Label1.Left ? 100 If Label1.Left + Label1.Width = Form1.Width Then flag = 1 Ca

37、se Is = 1Label1.Left = Label1.Left ? 100 If Label1.Left = 0 Then flag = 0End SelectEnd Sub 程序结束参考答案第 1个？处填入： True第 2个？处填入： +第 3个？处填入： -步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：打开本题工程文件，添加两个标签和一个图片框，属性见下表 3.130。步骤 2：分析并编写程序代码。程序提供代码 Private Sub Command1_Click()If Len(Text1) = 0 ThenMsgBox “选手编号不能为空，请

38、检查！ “ , “检查 “ Exit SubEnd IfFor n = 0 To 9 If Len(Text2(n) = 0 Then MsgBox “评委给分不能为空，请检查！ “， “检查 “ Exit Sub End IfNext nMax = Val(Text2(0): Min = Val(Text2(0)Sum = Val(Text2(0) For n = ? To 9 Select Case Val(Text2(n)Case Is ? Max Max = Text2(n)Case Is ? Min Min = Text2(n) End SelectSum = ? + Val(Tex

39、t2(n)Next nscore = (Sum - Max - Min) / 8Picture1.Print Text1; Space(5); scoreText1 = “For n = 0 To 9 Text2(n) = “Next nEnd Sub程序结束参考答案第 1个？处填入： 1第 2个？处填入： 第 3个？处填入： 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub C1_Click() Dim a As String CD1.Filter = “所有文件 |*.*|文本文件 |*.t

40、xt|Word文件 |*.doc“ CD1.FilterIndex = ? CD1.Action = 1 Open CD1.FileName For Input As #1 Input #1, a Close #1 Text1.Text = ? End Sub Private Sub C2_Click() End Sub Private Sub C3_ Click() CD1.FileName = “out5.dat“ CD1.Action = ? Open CD1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub 程序结束 参考答案 第 1个？处填入： 2 第 2个？处填入： a 第 3个？处填入： 2 “转换 “按钮的事件过程： Private Sub C2_Click() Text1.Text = UCase(Text1.Text) End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。