2006年4月全国计算机等级考试二级VB笔试试卷

一 选择题 每小题 2 分 共 70 分 下列各题 A B C D 四个选项中 只有一个选项是正确的 请将正确选项填涂在答题 卡相应位置上 答在试卷上不得分 1 下列选项中不属于结构化程序设计方法的是 A 自顶向下 B 逐步求精 C 模块化 D 可复用 2 两个或两个以上模块之间关联的紧密程度称为 A 耦合度 B 内聚度 C 复杂度 D 数据传输特性 3 下列叙述中正确的是 A 软件测试应该由程序开发者来完成 B 程序经调试后一般不需要再测试 C 软件维护只包括对程序代码的维护 D 以上三种说法都不对 4 按照 后进先出 原则组织数据的数据结构是 A 队列 B 栈 C 双向链表 D 二叉树 5 下列叙述中正确的是 A 线性链表是线性表的链式存储结构 B 栈与队列是非线性结构 C 双向链表是非线性结构 D 只有根结点的二叉树是线性结构 6 对如下二叉树 A BC DEF 进行后序遍历的结果为 A ABCDEFB DBEAFC C ABDECFD DEBFCA 7 在深度为 7 的满二叉树中 叶子结点的个数为 A 32B 31C 64 D 63 8 商品 与 顾客 两个实体集之间的联系一般是 A 一对一 B 一对多 C 多对一 D 多对多 9 在 E R 图中 用来表示实体的图形是 A 矩形 B 椭圆形 C 菱形 D 三角形 10 数据库 DB 数据库系统 DBS 数据库管理系统 DBMS 之间的关系是 A DB 包含 DBS 和 DBMSB DBMS 包含 DB 和 DBS C DBS 包含 DB 和 DBMS D 没有任何关系 11 以下关于 Visual Basic 特点的叙述中 错误的是 A Visual Basic 是采用事件驱动编程机制的语言 B Visual Basic 程序既可以编译运行 也可以解释运行 C 构成 Visual Basic 程序的多个过程没有固定的执行顺序 D Visual Basic 程序不是结构化程序 不具备结构化的三种基本结构 12 以下叙述中 错误的是 A 一个 Visual Basic 应用程序可以含有多个标准模快文件 B 一个 Visual Basic 工程可以含有多个窗体文件 C 标准模快文件可以属于某个指定的窗体文件 D 标准模快文件的扩展名是 bas 13 以下叙述中 错误的是 A 在 Visual Basic 中 对象所能响应的事件是有系统定义的 B 对象的任何属性既可以通过属性窗口设定 也可以通过程序语句设定 C Visual Basic 中允许不同对象使用相同名称的方法 D Visual Basic 中的对象具有自己的属性和方法 14 设有如下语句 Dim a b As Integer c VisualBasic d 7 20 2005 以下关于这段代码的叙述中错误的是 A a 被定义为 Integer 类型变量 B b 被定义为 Integer 类型变量 C c 中的数据是字符串 D d 中的数据是日期类 15 以下能从字符串 VisualBasic 中直接取出子字符串 Basic 的函数是 A Left B Mid C String D Instr 16 设 a 4 b 3 c 2 d 1 下列表达式的值是 a b 1 Or c 10 Is 90 Then Exit For Next End Sub 对于该事件过程 以下叙述中错误的是 A a 数组中的数据是 30 个 100 以内的整数 B 语句 For Each arritem In a 有语法错误 C If arritem Mod 7 0 语句的功能是输出数组中能够被 7 整除的数 D If arritem 90 语句的功能是当数组元素的值 90 时退出 for 循环 22 设有命令按钮 command1 的单击事件过程 代码如下 Private Sub Command1 Click Dim a 3 3 As Integer For i 1 To 3 For j 1 To 3 a i j i j i Next j Next i Sum 0 For i 1 To 3 Sum Sum a i 4 i Next i Print Sum End Sub 运行程序 单击命令按钮 输出结果是 A 20 B 7 C 16 D 17 23 在窗体上画 1 个名称为 Command1 的命令按钮 然后编写如下事件过程 Private Sub Command1 Click a 0 For i 1 To 2 For j 1 To 4 If j Mod 2 0 Then a a 1 End If a a 1 Next j Next i Print a End Sub 程序运行后 单击命令按钮 输出结果是 A 0 B 2 C 3 D 4 24 窗体上有名称为 Text1 Text2 的 2 个文本框 有一个由 3 个单选按钮构成的控件 数组 Option1 如图 1 所示 程序运行后 如果单击某个单按钮 则执行 Text1 中的数值与 该单选按钮所对应的运算 乘以 1 10 或 100 并将结果显示在 Text2 中 如图 2 所示 为了实现上述功能 在程序中的问号 处应填入的内容是 Private Sub Option1 Click Index As Integer If Text1 Text Then Select Case Case 0 Text2 Text Val Text1 Text Case 1 Text2 Text Val Text1 Text 10 Case 2 Text2 Text Val Text1 Text 100 End Select End If End Sub A Index B Option1 index C Option1 index D Option1 index Value 25 在窗体上画 1 个命令按钮 其名称为 Command1 然后编写如下程序 Private Sub Command1 Click Dim a 10 As Integer Dim x As Integer For i 1 To 10 a i 8 i Next x 2 Print a f x x End Sub Function f x As Integer x x 3 f x End Function 程序运行后 单击命令按钮 输出结果为 A 12 B 15 C 17 D 18 26 以下关于过程的叙述中 错误的是 A 事件过程是由某个事件触发而执行的过程 B 函数过程的返回值可以有多个 C 可以在事件过程中调用通用过程 D 不能在事件过程中定义函数过程 27 在窗体上画 3 个文本框 名称分别为 Text1 Text2 和 Text3 和 1 个命令按钮 名 称为 Command1 外观如图所示 编写如下程序 Private Sub Form Load Text1 Text Text2 Text Text3 Text End Sub Private Sub Command1 Click x Val Text1 Text y Val Text2 Text Text3 Text f x y End Sub Function f ByVal x As Integer ByVal y As Integer Do While y 0 tmp x Mod y x y y tmp Loop f x End Function 运行程序 在 Text1 文本框中输入 36 在 Text2 文本框中输入 24 然后单击命令按钮 则 在 Text3 文本框中显示的内容是 A 4 B 6 C 8 D 12 28 窗体上有名称分别为 Text1 Text2 的 2 个文本框 要求文本框 Text1 中输入的数据 小于 500 文本框 Text2 中输入的数据小于 1000 否则重新输入 为了实现上述功能 在 以下程序中问号 处应填入的内容是 Private Sub Text1 LostFocus Call checkinput Text1 500 End Sub Private Sub Text2 LostFocus Call checkinput Text2 1000 End Sub Sub checkinput t As x As Integer If Val t Text x Then MsgBox 请重新输入 End If End Sub A Text B SelText C Control D Form 29 在窗体上画 1 个文本框 其名称为 Text1 然后编写如下过程 Private Sub Text1 KeyDown KeyCode As Integer Shift As Integer Print Chr KeyCode End Sub Private Sub Text1 KeyUp KeyCode As Integer Shift As Integer Print Chr KeyCode 2 End Sub 程序运行后 把焦点移到文本框中 此时如果敲击 A 键 则输出结果为 A A B A C A D A A B C D 30 为了使列表框中的项目呈多列显示 需要设置的属性为 A Columns B Style C List D multiselect 31 在窗体上画 1 个命令按钮 名称为 Command1 然后编写如下程序 Dim flag As Boolean Private Sub Command1 Click Dim intNum As Integer intNum InputBox 请输入 If flag Then Print f intNum End If End Sub Function f X As Integer As Integer If X Max Then Max arr i End If If arr i Min Then Min arr i End If Next i Print max Max min Min End Sub 程序运行后 单击命令按钮 将产生 100 个 1000 以内的随机整数 放入数组 arr 中 然后 查找并输出这 100 个数中的最大值 Max 和最小值 Min 请填空 8 在窗体上画 1 个名称为 Command1 的命令按钮和 2 个名称为分别为 Text1 Text2 的 文本框 如图所示 然后编写如下程序 Function fun x As Integer ByVal y As Integer As Integer x x y If x 0 Then fun x Else fun y End If End Function Private Sub Command1 Click Dim a As Integer b As Integer a 10 b 5 Text1 Text fun a b Text2 Text fun a b End Sub 程序运行后 单击命令按钮 Text1 Text2 文本框显示的内容分别是 5 和 5 9 在窗体上画 1 个命令按钮和 1 个文本框 其名称分别为 Command1 和 Text1 然后 编写如下代码 Dim SaveAll As String Private Sub Command1 Click Text1 Text Left UCase SaveAll 4 End Sub Private Sub Text1 KeyPress KeyAscii As Integer SaveAll SaveAll Chr KeyAscii End Sub 程序运行后 在文本框中输入 abcdefg 单击命令按钮 则文本框中显示的内容是 ABCD 10 在窗体上画 1 个命令按钮和 1 个通用对话框 其名称分别为 Command1 和 CommonDialog1 然后编写如下事件过程 Private Sub Command1 Click CommonDialog1 DialogTitle 打开文件 CommonDialog1 Filter All Files CommonDialog1 InitDir C CommonDialog1 ShowOpen End Sub 该程序的功能是 程序运行后 单击命令按钮 将显示 打开 文件对话框 其标题是 打开文件 在 文件类型 栏内显示 All Files 并显示 C 盘根目录下的所有文 件 请填空 11 在窗体上画 1 个文本框 名称为 Text1 然后编写如下程序 Private Sub Form Load Open d temp dat txt For Output As 1 Text1 Text End Sub Private Sub Text1