vb二级真题2009年3月

一 选择题 每题 2 分 共计 70 分 1 下列叙述中正确的是 A 栈是先进先出的线性表 B 队列是 先进后出 的线性表 C 循环队列是非线性结构 D 有序线性表即可以采用顺序存储结构 也可以采用链式存储结构 2 支持子程序调用的数据结构是 A 栈 B 树 C 队列 D 二叉树 3 某二叉树有 5 个读为 2 的结点 则该二叉树中的叶子结点数是 A 10 B 8 C 6 D 4 4 下列排序方法中 最坏情况下比较次数最少的是 A 冒泡排序 B 简单选择排序 C 直接插入排序 D 堆排序 5 软件按功能可以分为 应用软件 系统软件和支撑软件 或工具软件 下列 属于应用软件的是 A 编译程序 B 操作系统 C 教务管理系统 D 汇编程序 6 下面叙述中错误的是 A 软件测试的目的是发现错误并改正错误 B 对被调试程序进行 错误定位 是程序调试的必要步骤 C 程序调试也成为 Debug D 软件测试应严格执行测试计划 排除测试的随意性 7 耦合性和内聚性是对模块独立性度量的两个标准 下列叙述中正确的是 A 提高耦合性降低内聚性有利于提高模块的独立性 B 降低耦合性提高内聚性有利于提高模块的独立性 C 耦合性是指一个模块内部各个元素间彼此结合的紧密程度 D 内聚性是指模块间互相连接的紧密程度 8 数据库应用系统中的核心问题是 A 数据库设计 B 数据库系统设计 C 数据库维护 D 数据库管理员培训 9 有两个关系 R S 如下 由关系 R 通过运算得到关系 S 则所使用的运算为 A 选择 B 投影 C 插入 D 连接 10 将 E R 图转换为关系模式时 实体和联系都可以表示为 A 属性 B 键 C 关系 D 域 11 执行语句 Dim X Y As Integer 后 A X 和 Y 均被定义为整型变量 B X 和 Y 均被定义为变体类型变量 C X 被定义为整型变量 Y 被定义为变体变量 D X 被定义为变体类型变量 Y 被定义为整型变量 12 以下关系表达式中 其值为 True 的是 A XYZ XYz B VisualBasic visualbasic C the there D Integer Int 13 执行以下程序段 a Visual Basic Programming b C C UCase Left a 7 b Right a 12 后 变量 C 的值为 A Visual BASIC Programming B VISUAL C Programming C Visual C Programming D VISUAL BASIC Programming 14 下列叙述中正确的是 A MsgBox 语句的返回值是一个整数 B 执行 MsgBox 语句并出现信息框后 不用关闭信息框即可执行其他操作 C MsgBox 语句的第一个参数不能省略 D 如果省略 MsgBox 语句的第三个参数 Title 则信息框的标题为空 15 在窗体上画一个文本框 名称为 Text1 和一个标签 名称为 Label1 程序运行后 在文本框中每输入一个字符 都会立即在标签中显示文本框中字符的个数 以下 可以实 现上述操作的事件过程是 A Private Sub Text1 Change Label1 Caption str Len Text1 Text End Sub B Private Sub Text1 Click Label1 Caption str Len Text1 Text End Sub C Private Sub Text1 Change Label1 Caption Text1 Text End Sub D Private Sub Label1 Change Label1 Caption str Len Text1 Text End Sub 16 在窗体上画两个单选按钮 名称分别为 Option1 Option2 标题分别为 宋体 和 黑体 1 个复选框 名称为 Check1 标题为粗体 和 1 个文本框 名称为 Text1 Text 属性为 改变 文字字体 窗体外观如图所示 程序运行后 要求 宋体 单选按钮和 粗体 复 选框被 选中 则以下能够实现上述操作的语句序列是 A Option1 Value False Check1 Value True B Option1 Value True Check1 Value 0 C Option2 Value False Check1 Value 2 D Option1 Value True Check1 Value 1 17 在窗体上画一个名称为 Command1 的命令按钮 然后编写如下事件过程 Private Sub Command1 Click c 1234 c1 Trim Str c For i 1 To 4 Print Next End Sub 程序运行后 单击命令按钮 要求在窗体上显示如下内容 1 12 123 1234 则在横线处应填入的内容为 A Right c1 i B Left c1 i C Mid c1 i 1 D Mid c1 i 1 18 假定有一下程序段 For i 1 To 3 For j 5 To 1 Step 1 Print i j Next j Next i 则语句 Print i j 的执行次数是 A 15 B 16 C 17 D 18 19 在窗体上画两个文本框 名称分别为 Text1 和 Text2 和一个命令按钮 名称为 Command1 然后编写如下事件过程 Private Sub Command1 Click x 0 Do While x 50 x x 2 x 3 n n 1 Loop Text1 Text Str n Text2 Text Str x End Sub 程序运行后 单击命令按钮 在两个文本框中显示的值分别为 A 1 和 0 B 2 和 72 C 3 和 50 D 4 和 168 20 阅读程序 Private Sub Command1 Click a 0 For j 1 To 15 a a j Mod 3 Next j Print a End Sub 程序运行后 单击窗体 输出结果是 A 105 B 1 C 120 D 15 21 以下说法中正确的是 A 当焦点在某个控件上时 按下一个字母键 就会执行该控件的 KeyPress 事件过程 B 因为窗体不接受焦点 所以窗体不存在自己的 KeyPress 事件过程 C 若按下的键相同 KeyPress 事件过程中的 KeyAscii 参数与 KeyDown 事件过程中 的 KeyCode 参数的值也相同 D 在 KeyPress 事件过程中 KeyAscii 参数可以省略 22 语句 Dim a 3 To 4 3 To 6 As Integer 定义的数组的元素个数是 A 18 B 28 C 21 D 32 23 在窗体上画一个命令按钮 其名称为 Command1 然后编写如下代码 Option Base 1 Private Sub Command1 Click Dim a a Array 1 2 3 4 j 1 For i 4 To 1 Step 1 s s a i j j j 10 Next i Print s End Sub 程序运行后 单击命令按钮 其输出结果是 A 4321 B 1234 C 34 D 12 24 假定通过复制 粘贴操作建立了一个命令按钮数组 Command1 以下说法中错误 的是 A 数组中每个命令按钮的名称 Name 属性 均为 Command1 B 若未做修改 数组中每个命令按钮的大小都一样 C 数组中各个命令按钮使用同一个 Click 事件过程 D 数组中每个命令按钮的 Index 属性值都相同 25 在窗体上画一个命令按钮 名称为 Command1 然后编写如下代码 Option Base 0 Private Sub Command1 Click Dim A1 4 As Integer A2 4 As Integer For k 0 To 2 A1 k 1 InputBox 请输入一个整数 A2 3 k A1 k 1 Next k Print A2 k End Sub 程序运行后 单击命令按钮 在输入对话框中依次输入 2 4 6 则输出结果为 A 0 B 1 C 2 D 3 26 以下关于函数过程的叙述中 正确的是 A 函数过程形参的类型与函数返回值的类型没有关系 B 在函数过程中 过程的返回值可以有多个 C 当数组作为函数过程的参数是 既能以传值方式传递 也能以传址方式传递 D 如果不指明函数过程参数的类型 则该参数没有数据类型 27 在窗体上画两个标签按钮和一个命令按钮 其名称分别为 Label1 Label2 和 Command1 然后编写如下程序 Private Sub func L As Label L Caption 1234 End Sub Private Sub Form Load Label1 Caption ABCDE Label2 Caption 10 End Sub Private Sub Command1 Click a Val Label2 Caption Call func Label1 Label2 Caption a End Sub 程序运行后 单击命令按钮 则在两个标签中显示的内容分别为 A ABCD 和 10 B 1234 和 100 C ABCD 和 100 D 1234 和 10 28 在窗体上画一个命令按钮 名称为 Command1 并编写如下代码 Function fun1 ByVal a As Integer b As Integer As Integer Dim t As Integer t a b b t a fun1 t b End Function Private Sub Command1 Click Dim x As Integer x 10 Print fun1 fun1 x fun1 x x 1 x 1 End Sub 程序运行后 单击命令按钮 输出结果是 A 10 B 0 C 11 D 21 29 以下关于过程及过程参数的描述中 错误的是 A 过程的参数可以是控件名称 B 调用过程时使用的实参的个数应与过程形参的个数相同 C 只有函数过程能够将过程中处理的信息返回到调用程序中 D 窗体可以作为过程的参数 30 设有如下通用过程 Public Function Fun xStr As String As String Dim tStr As String strL As Integer tStr strL Len xStr i strL 2 Do While i 7 Then Image1 Left 8 100 End If End Sub 7 上题 7 的答案是 8 上一题 8 的答案是 9 7 设窗体上有一个名称为 Combo1 的组合框 并有以下程序 Private Sub Combo1 KeyPress KeyAscii As Integer If 9 13 Then For k 0 To Combo1 ListCount 1 If Combo1 Text Combo1 List k Then Combo1 Text Exit For End If Next k If Combo1 Text Then Combo1 AddItem 10 End If End If End Sub 程序的功能是 在组合框的编辑区中输入文本后按回车键 则检查列表中 有无与此文本相同的项目 若有 则把编辑区中的文本删除 否则把编辑 区中的文本添加到列表的尾部 请填空 10 上一题 10 的答案是 11 8 在当前目录下有一个名为 myfile txt 的文本文件 其中有若干行文本 下面程序的 功能是读入此文件中的所有文本行 按行计算每行字符的 ASCII 码之和 并显示在窗 体上 请填空 Private Sub Command1 Click Dim ch ascii As Integer Open myfile txt For 11 As 1 While Not EOF 1 Line Input 1 ch ascii toascii 12 Print ascii Wend Close 1 End Sub Private Function toascii mystr As Integer n 0 For k 1 To 13 n n Asc Mid mystr k 1 Next k toascii n End Function 12 上一题 12 的答案是 13 上一题 13 的答案是 14 9 本程序实现文本加密 先给定序列 a1 a2 an 它们的取值范围是 1 n 而且互 不相同 加密算法是 把原文本中第 k 个字符放到加密后文本的第 ak 个位置处 若原 文本长度大于 n 则只对前面 n 个字符加密 后面的字符不变 若原文本长度小于 n 则 在后面补字符 使文本长度为 n 后再加密 例如 若给定序列 a1 a2 a7 分别为 2 5 3 7 6 1 4 当文本为 PROGRAM 时 加密后的文本为 APOMRRG 当文本为 THANK 时 加密后的文本为 TA HKN 下面的过程 code 实现这一算法 其中参数数组 a 中存放给定序列 个数与数组 a 的 元素 个数相等 a1 a2 a3 的值 要加密的文本放在参数变