《2011年3月全国计算机等级考试二级VB笔试试卷及答案word版.doc》由会员分享，可在线阅读，更多相关《2011年3月全国计算机等级考试二级VB笔试试卷及答案word版.doc（9页珍藏版）》请在三一文库上搜索。
1、2011年3月全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计（考试时间 90分钟，满分100分）一、 选择题（每小题2分，共70分） 下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列关于栈叙述正确的是A）栈顶元素最先能被删除 B）栈顶元素最后才能被删除C）栈底元素永远不能被删除 D）以上三种说法都不对（2）下列叙述中正确的是A） 有一个以上根结点的数据结构不一定是非线性结构B）只有一个根结点的数据结构不一定是线性结构C）循环链表是非线性结构D）双向链表是非线性结构（3）某二叉树共有7个结点，其
2、中叶子结点只有1个，则该二叉树的深度为（假设根结点在第1层）A）3 B）4 C）6 D）7 （4）在软件开发中，需求分析阶段产生的主要文档是A） 软件集成测试计划 B）软件详细设计说明书C）用户手册 D）软件需求规格说明书（5）结构化程序所要求的基本结构不包括A）顺序结构 B）GOTO跳转C）选择（分支）结构 D）重复（循环）结构（6）下面描述中错误的是 A）系统总体结构图支持软件系统的详细设计B）软件设计是将软件需求转换为软件表示的过程C）数据结构与数据库设计是软件设计的任务之一D）PAD图是软件详细设计的表示工具（7）负责数据库中查询操作的数据库语言是A）数据定义语言 B）数据管理语言 C
3、）数据操纵语言 D）数据控制语言（8）一个教师可讲授多门课程，一门课程可由多个教师讲授，则实体教师和课程间的联系是A）1:1联系 B）1：m联系 C）m：1联系 D）m：n联系（9）有三个关系R、S和T如下：R S TC1ABCA12B21C31ABc3则由关系R和S得到关系T的操作是A）自然连接 B）交 C）除 D）并（10）定义无符号整数类为UInt，下面可以作为类UInt实例化值的是A）-369 B）369 C）0.369 D）整数集合1，2，3，4，5（11）在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是A）工程资源管理器窗口 B）窗体设计窗口C）属性窗口 D
4、）代码窗口（12）假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是A）Load B）Click C）LostFocus D）KeyPress(13)为了使标签具有“透明”的显示效果，需要设置的属性是A) Caption B) Alignment C) BackStyle D) AutoSize（14）下面可以产生20-30（含20和30）的随机整数的表达式是A) Int（Rnd*10+20） B) Int（Rnd*11+20）C) Int（Rnd*20+30） D) Int（Rnd*30+20）（15）设窗体上有一个名称为HS1的水平滚动条，如果执行了语句
5、：HS1.Value=（HS1.Max-HS1.Min）/2+HS1.Min 则A）滚动块处于最左端B）滚动块处于最右端C）滚动块处于中间位置D）滚动块可能处于任何位置，具体位置取决于Max、Min属性的值（16）窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是A）Print Cb1.Selected B）Print Cb1.List(Cb1.ListIndex)C）Print Cb1.Selected.TextD）Print Cb1.List(ListIndex)(17)为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做
6、法中正确的是A) 把这2组单选按钮设置为名称不同的2个控件数组B) 使2组单选按钮的Index属性分别相同C) 使2组单选按钮的名称分别相同D) 使2组单选按钮分别画到2个不同的框架中（18）如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是A）它的Y1、Y2属性的值相等B）它的X1、X2属性的值相等C）它的X1、Y1属性的值分别与X2、Y2属性的值相等D）它的X1、X2属性的值分别与Y1、Y2属性的值相等（19）设a=2,b=3,c=4,d=5,则下面语句的输出是Print 32*b Or a=c And bc Or cdA) FalseB) 1C) TrueD) -1(20)窗体Fo
7、rm1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是A) Private Sub Form1_Click() End SubB) Private Sub Form_Click() End SubC) Private Sub Command1_Click() End SubD) Private Sub Command_Click() End Sub(21)默认情况下，下面声明的数组的元素个数是Dim a（5，-2 to 2）A）20B）24C）25D）30（22）设有如下程序段Dim a(10)For Each x In a Print x;Next x在上面的程序段
8、中，变量x必须是A) 整型变量 B）变体型变量 C）动态数组 D)静态数组（23） 设有以下函数过程 Private Function Fun(a()As Integer As String)As IntegerEnd Function若已有变量声明：Dim x(5)As Integer,n As Integer,ch As String则下面正确的过程调用语句是 A) x(0)=Fun(x,“ch”) B) n=Fun(n,ch) C) Call Fun x,“ch” D) n=Fun(x(5),ch)(24)假定用下面的语句打开文件： Open“Filel.txt”ForInput AS
9、#1 则不能正确读文件的语句是 A) Input #1 ，ch$ B) Line Input #1，ch$ C) ch$=Input$(5,#1) D) Read #1 ,ch$(25)下面程序执行结果是 Private Sub Command 1_Click（） a=10 For k=1 To 5 Step-1 A=a-k Nest k Print a ;k End Sub A) -5 6 B) -5 -5 C)10 0 D) 10 1（26）设窗体上有一个名为Text1 的文体框和一个名为Command1 的命令按钮，并有以下事件过程： Private Sub Command 1_Clic
10、k() X!=Val(Text1.Text) Select Case x Case Is =20 Print “输入错误” Case Is0 Print 20-x Case Is 10 Print 20 Case Is5 Or x-1 Next End Sub运行程序，其中Do循环执行的次数是 A) 15 B) 10 C) 7 D) 3 （28）阅读程序 Private Sub Command 1_ Click Dim arr Dim i As Integer Arr=Array (0,1,2,3,4,5,6,7,8,9,10) For i=0 To 2 Printarr（7 i）; Next
11、End Sub程序运行后，窗体上显示的是： A) 8 7 6 B) 7 6 5 C) 6 5 4 D) 5 4 3（29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序： Private Sub Command 1_Click() Dim a(10) As Integer For k=10 TO 1 Step -1 a（k）=20-2*k Next k K=k+7 Print a(k-a(k) End Sub运行程序，单击命令按钮，输出结果是A) 18 B) 12 C)8 D)6(30)窗体上有一个名为Command 1 的命令按钮，并有如下程序： Private Sub C
12、ommand 1_Click() Dim a(10),x% For k=1 To 10 a(k)=Int(Rnd*90+10) x=x+a(k) Mod 2Next k Print x End Sub程序运行后，单击命令按钮，输出结果是：A) 10个数中奇数的个数 B) 10个数中偶数的个数C) 10个数中奇数的累加和 D) 10个数中偶数的累加和(31) 窗体上有一个名为 Command 1的命令按钮和一个名为Timer 1 的计时器，并有下面的事件过程： Private Sub Command 1_Click()Timer 1.Enabled=True End Sub Private Su
13、b Form _Load() Timer 1.Interval=10 Timer 1.Enabled=False End Sub Private Sub Timer 1_Timer() Command 1.Left=Command 1.Left+10End Sub程序运行时，单击命令按钮，则产生的结果是A) 命令按钮每10秒向左移动一次B) 命令按钮每10秒向右移动一次C) 命令按钮每10毫秒向左移动一次D) 命令按钮每10毫秒向右移动一次（32）设窗体上有一个名为List1 的列表框，并编写下面的事件过程： Private Sub List 1_Click()Dim ch AS String
14、ch=List 1.List(List1.ListIndex)List 1.RemoveItem List1.ListIndexList 1.AddItem chEnd Sub程序运行时，单击一个列表项，则产生的结果是A) 该列表项被移到列表的最前面 B) 该列表项被删除C) 该列表项被移到列表的最后面 D) 该列表项被删除后又在原位置插入（33）窗体上有一个名为Command1的命令按钮，并有如下程序：Private Sub Command1_Click()Dim a As Integer, b As Integera = 8b = 12Print Fun(a, b); a; bEnd Su
15、bPrivate Function Fun(ByVal a As Integer, b As Integer) As Integera = a Mod 5b = b 5Fun = aEnd Function程序运行时，单击命令按钮，则输出结果是A）3 3 2B）3 8 2C）8 8 12D）3 8 12（34）为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：Private Sub Command1_Click()Open File1.txt For Output As #20Do While Not EOF(20) Line Input #20, ch$ Print chL
16、oopEnd Sub程序调试时，发现有错误，下面的修改方案中正确的是A）在Open语句中的文件名前添加路径B）把程序中各处的“20”改为“1”C）把Print ch 语句改为Print #20,chD）把Open语句中的Output改为Input（35）以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。Private Sub Command1_Click()If Not check(Combo1.Text) Then MsgBox (输入错误) Exit SubEnd IfFor k = 0 To Combo1.ListCoun
17、t - 1 If Combo1.Text = Combo1.List(k) Then MsgBox (添加项目失败) Exit Sub End IfNext kCombo1.AddItem Combo1.TextMsgBox (添加项目成功)End SubPrivate Function Check(ch As String) As Boolean n = Len(ch) For k = 1 To n c$ = UCase(Mid(ch, k, 1) If c Z Then Check = False Exit Function End If Next k Check = TrueEnd Fu
18、nction程序运行时，如果在组合框的编辑区中输入“Java”,则单击命令按钮后产生的结果是A） 显示“输入错误”B） 显示“添加项目失败”C） 显示“添加项目成功”D） 没有任何显示二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。（1）有序线性表能进行二分查找的前提是该线性表必须是【1】存储的。（2）一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为【2】。（3）对软件设计的最小单位（模块或程序单元）进行的测试通常称为【3】测试。（4）实体完整性约束要求关系数据库中元组的【4】属性值不能为空。（5）
19、在关系A（S,SN,D）和关系B（D，CN，NM）中，A的主关键字是S，B的主关键字是D，则称【5】是关系A的外码。（6）在窗体上有1个名称为Command1的命令按钮，并有如下事件过程和函数过程：Private Sub Command1_Click()Dim p As Integerp = m(1) + m(2) + m(3)Print pEnd SubPrivate Function m(n As Integer) As Integer Static s As Integer For k = 1 To n s = s + 1 Next m = sEnd Function运行程序，单击命令按
20、钮Command1后的输出结果为【6】。（7）在窗体上画1个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim m As Integer, x As IntegerDim flag As Booleanflag = Falsen = Val(Intputbox(请输入任意1个正整数)Do While Not flag a = 2 flag = 【7】 Do While flag And a i Then i = i + 1 a(i) = 【10】 End If Loop While i a(j) then temp =a(i),a
21、(i)=a(j);【12】 Next j Next i For i = 1 To 10 Print a(i) Next iEnd Sub（9）窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为“.txt”的文件显示在File1中，如果双击File1中某个文件，则在Text1中显示该文件的内容。请填空。Private Sub Form_Load()File1.Pattern = 【13】End SubPrivate Sub Drive1_Change()Dir1.Path = Dr
22、ive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub File1_DblClick()Dim s As String * 1If Right(File1.Path, 1) = Then f_name = File1.Path + File1.FileNameElse f_name = File1.Path + + File1.FileNameEnd IfOpen f_name 【14】 As #1 Text1.Text = Do While 【15】 s = Input(1, #1) Text1.Text = Text1.Text + s Loop Close #1End Sub2011年全国计算机等级考试二级VB参考答案选择题：1-5 AADDB6-10 BCDCB11-15 AACBC16-20 BDBAA21-25 DBACD26-30 CCBAA31-35 DCBDB填空题 1、顺序 2、DEBFCA 3、单元 4、主键 5、D 6、10 7、Ture 8、a=a+1 9、n 10、num11、i 12、a(j)=temp 13、”*.txt|*.txt” 14、for input 15、not eof(1)9