二级vb笔试历年真卷2011年3月

1、2011 年 3 月计算机等级二级笔试试卷Visual Basic 语言程序设计（时间 90 分钟，满分 100 分）一、选择题（每小题 2 分，共 70 分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列关于栈叙正确的是（）。A）栈顶元素最先能被删除B）栈顶元素最后才能被删除C）栈底元素不能被删除D）以上三种说法都不对（2）下列叙述中正确的是（）。A）有一个以上根结点的数据结构不一定是非线性结构 B）只有一个根结点的数据结构不一定是线性结构 C）循环链表是非线性结构 D）双向链表是非线性结构（3）某二叉树共有

2、7 个结点，其中叶子结点只有 1 个，则该二叉树的深度为（假设根结点在第 1 层）（）。A）3（4）在A）B）4开发中，需求分析阶段产生的主要文档是（集成测试计划C）6）。）D）D）7详细设计说明书需求规格说明书C）用户手册（5）结构化程序所要求的基本结构不包括（A）顺序结构 C）选择（分支）结构）。B）GOTO 跳转D）重复（循环）结构（6）下面描述中错误的是（A）系统总体结构图支持）。系统的详细设计B）设计是将需求转换为表示的过程C）数据结构与数据库设计是设计的任务之一D）PAD 图是详细设计的表示工具（7）负责数据库中查询操作的数据库语言是（）。A）数据定义语言B）数据管理语言C）数据语

3、言D）数据控制语言（8）一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是（）。A）1：1 联系（9）有三个关系R、S 和T 如下（RB）1：m 联系）。SC）m:1 联系D）m n 联系T则由关系R 和 S 得到关系 T 的操作是A）自然连接B）交C）除D）并2011 年 3 月笔试真卷及详解 第 1 页（共 12 页）C1ABc3ABCa12b21c31（10）定义无符号整数类为U A）-369C）0.369，下面可以作为类U实例化值的是（B）369）。D）整数集合1，2，3，4，5（11）在 Visual Basic 集成环境中，可以列出工程中所有模块名称的窗口

4、是（）。A）工程资源管理器窗口C）属性窗口B）窗体设计窗口D）代码窗口（12）假定编写了如下 4 个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（A）Load）。B）ClickC）LostFocusD）KeyPress（13）为了使A）Caption具有“透明”的显示效果，需要设置的属性是（）。B）AlignmentC）BackStyleD）AutoSize（14）下面可以产生 2030（含 20 和 30）的随机整数的表达式是（）。A） (Rnd*10+20)C） (Rnd*20+30)B） (Rnd*11+20)D） (Rnd*30+20)（15）设窗体上有一个名称

5、为 HSl 的水平滚动条，如果执行了语句：HSl.Value = (HSl.Max - HSl.Min) / 2 + HSl.Min 则（A）滚动块处于最左端 B）滚动块处于最右端 C）滚动块处于中间位置）。D）滚动块可能处于任何位置，具置取决于 Max、Min 属性的值（16）窗体上有一个名称为 Cbl 的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。A）PrCbl.SelectedC）PrCbl.Selected.TextB）PrCbl.List(Cbl.ListIndex)D）PrCbl.List(Listlndex)（17）为了在窗体上建立 2 组单选按钮，并且当程序运

6、行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（）。把这 2 组单选按钮设置为名称不同的 2 个控件数组使 2 组单选按钮的Index 属性分别相同使 2 组单选按钮的名称分别相同把 2 组单选按钮分别画到 2 个不同的框架中如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（它的 YI、Y2 属性的值相等它的 X1、X2 属性的值相等它的 X1、Y1 属性的值分别与 X2、Y2 属性的值相等它的 Xl、X2 属性的值分别与 Y1、Y2 属性的值相等）。（19）设a=2，b=3，c=4，d=5，则下面语句的输出是（Pr3 2 * b Or a = c And b c Or c

7、 d）。A）False（20）窗体 Form1 上有一个名称为B）lC）TrueD）-ld1令按钮，以下对应窗体单击事件的事件过程是（）。A）Private Sub Form 1_Click()End SubB）Private Sub Form_Click()End Sub2011 年 3 月笔试真卷及详解 第 2 页（共 12 页）C）Private SubEndSub默认情况下，下面 Dim a(5, -2 To 2) A）20设有如下程序段：Dim a(10)For Each x ln adl_Click()D）Private Subdl_Click()End Sub的数组的元素个数是（

8、）。B）24C）25D）30PNext xx;在上面的程序段中，变量x 必须是（）。A）整型变量（23）设有以下函数过程Private Function Fun(a() AsEnd Function若已有变量：B）变体型变量C）动态数组D）静态数组eger,b As String)AsegerDim x(5)Aseger，n Aseger，ch As String则下面正确的过程调用语句是（A）x(0) = Fun(x, ch) C）Call Fun x,ch（24）假定用下面的语句打开文件： Open Filel.Txt For Input As #l则不能正确读文件的语句是（ A）Inpu

9、t #1, ch$C）ch$ = Input$(5, #1)）。B）n = Fun(n, ch)D）n = Fun(x(5), ch)）。B）Line Input #1, ch$D）read #1,ch$（25）下面程序的执行结果是（）。Private Suba = 10For k = 1 To 5 Step -1 a = a - kNext kPa; k End SubA）-5 6d1_Click()B）-5 -5C）10 0d1D）10 l令按钮，并有以下（26）设窗体上有一个名为 Text1 的文本框和一个名为事件过程：Private Subd1_Click()x! = Val(Text

10、1.Text) Select Case xCase Is = 20P输入错误Case Is 0P20 - x2011 年 3 月笔试真卷及详解 第 3 页（共 12 页）Case Is 10P20Case Is 5 Or x -1 NextEnd Sub运行程序，其中 Do 循环执行的次数是（）。A）15（28）阅读程序：Private SubDim arr Dim i AsB）10C）7D）3d1_Click()egerarr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)For i = 0 To 2Prarr(7 - i);Next End Sub程序运

11、行后，窗体上显示的是（）。6 5A）8 7 6（29）在窗体上画一个名为B）7d1C）6 5 4D）54 3令按钮，然后编写以下程序：Private SubDim a(10) Asd1_Click()egerFor k = 10 To 1 Step -1 a(k) = 20 - 2 * kNext kk = k + 7Pra(k - a(k)End Sub运行程序，单击命令按钮，输出结果是（）。A）18（30）窗体上有一个名为Private SubDim a(10), x% For k = 1 To 10B）12C）8D）6dl令按钮，并有如下程序：d1_Click()a(k) =(Rnd *

12、 90 + 10)x = x + a(k) Mod 22011 年 3 月笔试真卷及详解 第 4 页（共 12 页）Next k PxEnd Sub程序运行后，单击命令按钮，输出结果是（）。A）10 个数中奇数的个数B）10 个数中偶数的个数C）10 个数中奇数的累加和 D）10 个数中偶数的累加和（31）窗体上有一个名为Private Subdld1_Click()令按钮和一个名为 Timerl 的计时器，并有下面的事件过程：Timerl.Enabled=True EndSubPrivate Sub Form_Load() Timerl.erval=10 Timerl.Enabled=Fal

13、seEnd SubPrivate Sub Timerl_Timer()mandl.Left+10End Sub程序运行时，单击命令按钮，则产生的结果是（A）命令按钮每 10 秒向左移动一次C）命令按钮每 10 毫秒向左移动一次）。B）命令按钮每 10 秒向右移动一次D）命令按钮每 10 毫秒向右移动一次（32）设窗体上有一个名为Listl 的列表框，并编写下面的事件过程：Private Sub Listl_Click()Dim ch As String ch=Listl.List(Listl.ListIndex)List1.RemoveItem List 1.ListIndex List1.A

14、ddItem chEndSub-程序运行时，单击一个列表项，则产生的结果是（A）该列表项被移到列表的最前面 C）该列表项被移到列表的最后面）。B）该列表项被删除 D）该列表项被删除后又在原位置（33）窗体上有一个名为Private Subdl令按钮，并有如下程序：d1_Click()Dim a As a = 8b = 12eger, b AsegerPrfun(a, b); a; b End SubPrivate Function Fun(ByVal a As a = a Mod 5b = b 5 Fun = aEnd Functioneger, b Aseger) Aseger程序运行时，单

15、击命令按钮，则输出结果是（）。A）3 3 2B）3 8 2C）8 8 12编写了下面的程序：D）3 8 12（34）为了从当前文件夹中读入文件File1.txt，Private Subd1_Click()Open File1.txt For Output As #202011 年 3 月笔试真卷及详解 第 5 页（共 12 页）Do While Not EOF(20)Line Input #20, ch$PLoop Close #20End Subch程序调试时，发现有错误，下面的修改方案中正确的是（）。A）在Open 语句中的文件名前添加路径B）把程序中各处的“20”改为“1”D）把Open

16、 语句中的Output 改为InputC）把Prch 语句改为Pr（35）以下程序运行后的窗体# 20，ch。其中组合框的名称是 Combo1，已有列表框；命令按钮的名称是Private Subd1。d1_Click()If Not Check(Combo1.Text) Then MsgBox (输入错误)Exit Sub End IfFor k = 0 To Combo1.ListCount - 1If Combo1.Text = Combo1.List(k) Then MsgBox (添加项目失败)Exit Sub End IfNext kCombo1.AddItem Combo1.Tex

17、t MsgBox (添加项目成功)End SubPrivate Function Check(ch As String) As n = Len(ch)For k = 1 To nc$ = UCase(Mid(ch, k, 1) If c Z ThenCheck = False Exit FunctionEnd If Next k Check = TrueEnd Function程序运行时。如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（）。A）显示“输入错误”C）显示“添加项目成功”B）显示“添加项目失败”D）没有任何显示二、填空题(每空 2 分，共 30 分)请将每空的

18、正确写在答题卡【l】至【15】序号的横线上，答在试卷上不得分。（1）有序线性表能进行二分查找的前提是该线性表必须是 【1】 的。（2）一颗二叉树的中序遍历结果为 DBEAFC，前序遍历结果为 ABDECF，则后序遍历结果为 【2】 。（3）对设计的最小（模块或程序单元）进行的测试通常称为 【3】 测试。（4）实体完整性约束要求关系数据库中元组的 【4】 属性值不能为空。（5）在关系 A(,D)和关系 B(,NM)中，A 的主关键字是 S，B 的主关键字是 D,则称 【5】 是关系 A2011 年 3 月笔试真卷及详解 第 6 页（共 12 页）的外码。（6）在窗体上有 1 个名称为d1令按钮，

19、并有如下事件过程和函数过程：Private SubDim p Asd1_Click()egerp = m(1) + m(2) + m(3)PpEnd SubPrivate Function m(n Aseger) AsegerS ic s AsegerFor k = 1 To ns = s + 1Next m = sEnd Function运行程序，单击命令按钮（7）在窗体上画 1 个名称为dl 后的输出结果为 【6】 。令按钮，然后编写如下程序：d1Private Subd1_Click()Dim m Aseger, x As Dim flag Asflag = Falseegern = Val(InputBox(请输入任意 1 个正整数)Do While Not flag a = 2flag = 【7】 Do While flag And a i Theni = i + 1a(i) = 【10】 End IfLoop While i a(j) Then temp = a(i): a(i) = a(j): 【12】 Next j Next iFor i =