2009年3月全国计算机等级考试二级VB笔试试卷.doc

2009年3月28日全国计算机等级考试VB考试卷一、选择题1. 下列叙述中正确的是A. 栈是“先进先出”的线性表B. 队列是“先进后出”的线性表C. 循环队列是非线性结构D. 有序线性表既可以采用顺序存储结构，也可以采用链式存储结构2. 支持子程序调用的数据结构是A. 栈B. 树C. 队列D. 二叉树3. 某二叉树有5个度为2的结点，则该二叉树中叶子结点数是A. 10B. 8C. 6D. 44. 下列排序方法中，最坏情况下比较次数最少的是A. 冒泡排序B. 简单选择排序C. 直接插入排序D. 堆排序5. 软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。下面属于应用软件的是A. 编译程序B. 操作系统C. 教务管理系统D. 汇编程序6. 下面叙述中错误的是A. 软件测试的目的是发现错误并改正错误B. 对被调试的程序进行“错误定位”是程序调试的必要步骤C. 程序调试通常也称为DebugD. 软件测试应严格执行测试计划，排除测试的随意性7. 耦合性和内聚性是对模块独立性度量的两个标准。下面叙述中正确的是A. 提高耦合性降低内聚性有利于提高模块的独立性B. 降低耦合性提高内聚性有利于提高模块的独立性C. 耦合性是指一个模块内部各个元素间彼此结合的紧密程度D. 内聚性是指模块间互相连接的紧密程度RSABCABa32a3b01b0c21c28. 数据库应用系统中的核心问题是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 XYzB. VisualBasic visualbasicC. the = thereD. Integer Int13. 执行以下程序段a$ = Visual Basic Programmingb$ = C+c$ = UCase(Left$(a$, 7) & b$ & Right(a$, 12)后，变量c$的值为A. Visual BASIC ProgrammingB. VISUAL C+ ProgrammingC. Visual C+ ProgrammingD. VISUAL BASIC Programming14. 下列叙述中正确的是A. MsgBox语句的返回值是一个整数B. 执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作C. MsgBox语句的第一个参数不能省略D. 如果省略MsgBox语句的第三个参数（Title），则信息框的标题为空15. 在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是A.Private Sub Text1_Change() Label1.Caption = Str(Len(Text1.Text)End SubB. Private Sub Text1_Click() Label1.Caption = Str(Len(Text1.Text)End SubC. Private Sub Text1_Change() Label1.Caption = Text1.TextEnd SubD.Private Sub Label1_Change () Label1.Caption = Str(Len(Text1.Text)End Sub16. 在窗体上画两个单选按钮（名称分别为Option1、Option2，标题分别为“宋体”和“黑体”）、1个复选框（名称为Check1，标题为“粗体”）和1个文本框（名称为Text1，Text属性为“改变文字字体”），窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是A. Option1.Value = False Check1.Value = TrueB. Option1.Value = False Check1.Value = 0C.Option1.Value = True Check1.Value = 2D. Option1.Value = True Check1.Value = 117. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() c = 1234 c1 = Trim(Str(c) For i = 1 To 4 Print NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：则在横线处应填入的内容为A. Right(c1, i)B. Left(c1, i)C. Mid(c1, i, 1)D. Mid(c1, i, i)18. 假定有以下程序段For i = 1 To 3 For j = 5 To 1 Step 1 Print i * j Next jNext I则语句Print i * j的执行次数是A. 15B. 16C. 17D. 1819. 在窗体上画文本框（名称分别为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和0B. 2和72C. 3和50D. 4和16820. 阅读程序：Private Sub Form_Click() a = 0 For j = 1 To 15 a = a + j Mod 3 Next j Print aEnd Sub程序运行后，单击窗体，输出的结果是A. 105B. 1C. 120D. 1521. 以下说法中正确的是A. 当焦点在某个控件上时，按下一个字母键，就会执行该控件KeyPress事件过程B. 因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程C. 若按下的键相同，KeyPress事件过程中KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同D. 在KeyPress事件过程中，KeyAscii参数可以省略22. 语句Dim a(-3 To 4, 3 To 6) As Integer定义的数组的元素个数是A. 18B. 28C. 21D. 3223. 在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private 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 sEnd Sub程序运行后，单击命令按钮，其输出结果是A. 4321B. 1234C. 34D. 1224. 假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是A. 数组中每个命令按钮的名称（Name属性）均为Command1B. 若未做修改，数组中每个命令按钮的大小都一样C. 数组中各个命令按钮使用同一个Click事件过程D. 数组中每个命令按钮的Index属性值都相同25. 在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private 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. 0B. 1C. 2D. 326. 以下关于函数过程的叙述中，正确的是A. 函数过程形参的类型与函数返回值的类型没有关系B. 在函数过程中，过程的返回值可以有多个C. 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D. 如果不指明函数过程参数的类型，则该参数没有数据类型27. 在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub Func(L As Label) L.Caption = 1234End SubPrivate Sub Command1_Click() a = Val(Label2.Caption) Call Func(Label1) Label2.Caption = aEnd SubPrivate Sub Form_Load() Label1.Caption = ABCDE Label2.Caption = 10End Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为A. ABCD和10B. 1234和100C. ABCD和100D. 1234和1028. 在窗体上画一个命令按钮（名称为Command1），并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a - b b = t + a Fun1 = t + bEnd FunctionPrivate Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x - 1), x - 1)End Sub程序运行后，单击命令按钮，输出结果是A. 10B. 0C. 11D. 2129. 以下关于过程及过程参数的描述中，错误的是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 = Then Image1.Left = - 100 End IfEnd Sub（7）设窗体上有一个名称为Combo1的组合框，并有以下程序：Private Sub Combo1_KeyPress(KeyAscii As Integer) If = 13 Then 回车符的ASCII码是13 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 End If End IfEnd Sub程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。（8）在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本.下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。Private Sub Command1_Click() Dim ch$, ascii As Integer Open myfile.txt For As #1 While Not EOF(1) Line Input #1, ch ascii = toascii( ) Print ascii Wend Close #1End SubPrivate Function toascii(mystr$) As Integer n = 0 For k = 1 To n = n + Asc(Mid(mystr, k, 1) Next k toascii = nEnd Function（9）本程序实现文本加密。先给定序列：a1，a2，an，它们的取值范围是1n，且互不相