2010年9月全国计算机等级考试二级笔试试卷.doc

2010年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90分钟 满分100分）一、选择题(第小题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）一组对象所具有的相似性质 B）一个对象具有另一个对象的性质 C）各对象之间的共同性质 D）类之间共享属性和操作的机制（7）层次型、网状型和关系型数据库划分原则是A）记录长度 B）文件的大小 C）联系的复杂程度 D）数据之间的联系方式（8）一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是A）一对一 B）一对多 C）多对多 D）多对一（9）数据库设计中反映用户对数据要求的模式是A）内模式 B）概念模式 C）外模式 D）设计模式（10）有三个关系R、S和T如下： R S ABCa12b21c31ADc4TABCc32d32则由关系R和S得到关系T的操作是A）自然连接 B）交 C）投影 D）并（11）在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是A） B） C） D）（12）在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是A）工程资源管理器窗口 B）属性窗口 C）工具箱窗口 D）代码窗口（13）下列叙述中错误的是A）列表框与组合框都有List属性 B）列表框有Selected属性，而组合框没有 C）列表框和组合框都有Style属性 D）组合框有Text属性，而列表框没有（14）窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是A）Name B）Index C）Caption D）Left（15）滚动条可以响应的事件是A）Load B）Scroll C）Click D）MouseDown（16）设a=2，b=6，c=7，d=8，执行语句x=iif(ab) And (cd),10,20)后，x的值是A）10 B）20 C）30 D）200（17）语句Print Sgn(-62)+Abs(-62)+Int(-62)的输出结果是A）-36 B）1 C）-1 D）-72（18）在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如图所示，则命令按钮的Top属性值是A）200 B）300 C）500 D）700（19）在窗体上画一个名称为Command1的命令按钮，单击命令按钮时执行如下事件过程：Private Sub Command1_Click() a$ = software and hardware b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1End SubA）software and hardware B）hardwareC）software D）1（20）在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是A）Private Sub Text1_Change() Label1.Caption = Text1.TextEnd Sub B）Private Sub Label1_Change() Label1.Caption = Text1.TextEnd SubC）Private Sub Text1_Click() Label1.Caption = Text1.TextEnd Sub D）Private Sub Label1_Click() Label1.Caption = Text1.TextEnd Sub（21）以下说法中错误的是A）如果把一个命令按钮的Default属性设置为True，则按回车键与单击该命令按钮的作用相同B）可以用多个命令按钮组成命令按钮数组C）命令按钮只能识别单击（Click）事件D）通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用（22）以下关于局部变量的叙述中错误的是A）在过程中用Dim语句或Static语句声明的变量是局部变量B）局部变量的作用域是它所在的过程C）在过程中用Static语句声明的变量是静态局部变量D）过程执行完毕，该过程中用Dim或Static语句生命的变量即被释放（23）以下程序段的输出结果是 x = 1 y = 4 Do Until y 4 x = x * y y = y + 1 Loop Print xA）1 B）4 C）8 D）20（24）如果执行一个语句后弹出如图所示的窗口，则这个语句是A）InputBox(输入框, 请输入VB数据)B）x = InputBox(输入框, 请输入VB数据)C）InputBox(请输入VB数据, 输入框)D）x = InputBox(请输入VB数据, 输入框)（25）有如下事件过程：Private Sub Form_Click() Dim n As Integer x = 0 n = InputBox( 请输入一个整数) For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print xEnd Sub程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是A）13 B）14 C）15 D）16（26）请阅读程序：Sub subP(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next iEnd SubPrivate Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subP a() For i = 1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，则输出结果是A）2468 B）5 678C）10 12 14 16D）出错（27）Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。Function Isfab(x As Integer) As Boolean Dim a As Integer, b As Integer, c As Integer, flag As Boolean flag = False a = 1: b = 1 Do While x b c = a + b a = b b = c If x = b Then flag = True Loop Isfab = flagEnd Function测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是A）把a=b与b=c的位置互换 B）把c=a+b移到b=c之后C）把Do While xbD）把If x=b Then flag=True改为If x=a Then flag=True （28）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() Dim a$, b$, c$, k% a = ABCD b = 123456 c = k = 1 Do While k = Len(a) Or k = Len(b) If k = Len(a) Then c = c & Mid(a, k, 1) End If If k = 1 s = s + a(i) * j i = i - 1 j = j * 10 Loop Print sEnd Sub运行上面的程序，单击命令按钮，则输出结果是A）4321 B）123 C）234 D）1234（31）下列可以打开随机文件的语句是A）Open file1.dat For Input As #1B）Open file1.dat For Append As #1C）Open file1.dat For Output As #1D）Open file1.dat For Random As #1 Len = 20（32）有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是内缩标题名称无编辑edit剪切cut粘贴pasteA）Private Sub Form_Click() PopupMenu cutEnd SubB）Private Sub Command1_Click() PopupMenu editEnd SubC）Private Sub Form_Click() PopupMenu editEnd SubD）Private Sub Form_Click() PopupMenu cut PopupMenu pasteEnd Sub（33）请阅读程序：Option Base 1Private Sub Form_Click() Dim arr(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 2 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print arr(j, i); Next j Print Next iEnd Sub程序运行后，单击窗体，则输出结果是A）5 7 6 8B）6 8 7 9C）7 9 8 10D）8 10 8 11（34）下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str=“ABCDABCD”，ch=“B”，则函数的返回值为：“ACDACD”Function delchar(str As String) As String Dim k As Integer, temp As String, ret As String ret = For k = 1 To Len(str) temp = Mid(str, k, 1) If temp = ch Then ret = ret & temp End If Next k delchar = retEnd Function但实际上函数有错误，需要修改。下面的修改方案中正确的是A）把ret = ret & temp改为ret = tempB）把If temp = ch Then 改为 If temp ch ThenC）把delchar = ret改为delchar = tempD）把 ret = 改为 temp = （35）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：Dim S1 As String, S2 As StringPrivate Sub Form_Load() text1.Text = text2.Text = text1.Enabled = False text2.Enabled = FalseEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) S2 = S2 & Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer) S1 = S1 & Chr(KeyAscii)End SubPrivate Sub Command1_Click() Text1.Text = S1 Text2.Text = S2 S1 = S2 = End Sub程序运行后，先后按“a“、”b“、”c“键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为A）abc和ABC B）空白 C）ABC和abc D）出错二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡上，答在试卷上不得分。（1）一个栈的初始状态为空。首先将元素5、4、3、2、1依次入栈，然后退栈一次，再将元素A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为【1】 。（2）在长度为n的线性表中，寻找最大项至少需要比较【2】 。（3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有【3】 个结点。（4）仅由顺序、选择（分支）和重复（循环）结构构成的程序是【4】 程序。（5） 数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和【5】 。（6）窗体上有一个名称为Combo1的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。Option Base 1Private Sub Command1_Click() Dim city As Variant city =【6】 Array(北京, 天津, 上海, 武汉, 重庆, 西宁) For i = 【7】1 To UBound(city) Combo1.AddItem 【8】city(i) NextEnd Sub（7）窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。Private Sub Command1_Click() Dim x As Integer x = Val(InputBox(输入数据) Text1 = str(FUN(x) + FUN(x) + FUN(x)End SubPrivate Function FUN(ByRef N As Integer) If N Mod 3 = 0 Then N = N + N Else N = N * N End If 【9】 = NEnd Function单击命令按钮，在输入对话框中输入2时，文本框中显示的是【10】 276（8）窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form1_Load事件过程的作用是，把Data1.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。Private Type Pic gName As String * 10 物品名称 picFile As String * 20 物品图片的图片文件名End TypeDim p(4) As Pic, pRec As PicPrivate Sub Form_Load() Open data1.txt For Random As #1 【11】Len = Len(pRec) For i = 0 To 4 Ge