2013年9月全国计算机等级《二级VB》上机模考试卷(3) - 233网校计算机二级题库：在线全真模
1、 下列说法中正确的是（ ）。
A．当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程
B．因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程
C．若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同
D．在KeyPress事件过程中，KeyAscii参数可以省略
2、 下面关于标准模块的叙述中错误的是（ ）。
A．标准模块中可以声明全局变量
B．标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程
C．标准模块中可以包含一些Public过程
D．一个工程中可以包含有多个标准模块
3、 使用白盒测试法时，确定测试数据应该根据（ ）和指定的覆盖标准。
A．程序的内部逻辑
B．程序的复杂结构
C．使用说明书
D．程序的功能
4、 阅读程序：
Function fac(ByVal As Integer)As Integer
Dim temp As Integer
temp=1
For i％=1 To n
temp=temp*i％
Next i％
fac=temp
End Function
Private Sub Form Click（ ）
Dim nsum As Integer
nsum=1
For i％=2 T0 4
nsum=nsum+fac(i％)
Next i％
Print nsum
End Sub
程序运行后，单击窗体，输出结果是（ ）。
A．35
B．31
C．33
D．37
5、 下列关于数据库设计的叙述中，正确的是（ ）。
A．在需求分析阶段建立数据字典
B．在概念设计阶段建立数据字典
C．在逻辑设计阶段建立数据字典
D．在物理设计阶段建立数据字典
6、 设有如下程序
Private Sub Command1 Click（ ）
x=10：Y=0
For i=l To 5
Do
x=x-2
y=y+2
Loop Until y>j Or x<-l
Nex1
End Sub
运行程序，其中Do循环执行的次数是（ ）。
A．15
B．10
C．7
D．3
7、 有下列二叉树，对此二叉树前序遍历的结果是（ ）。
A．ACBEDGFH
B．ABDGCEHF
C．HGFEDCBA
D．ABCDEFGH
8、 下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。空白处应填入的内容是（ ）。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Private Sub Form_Click（ ）
Dim Y As Single
Dim i As Integer
Dim Ksc As Ang
Open_______
Y=3．14159／180
For i-1 T0 90
KSC．K-i
KSC．Sinx=Sin(i*Y)
KSC．Cosx=Cos(i+Y)
________
Next i
Close#2
Elld Stub
A．"．．＼Data1．txt"For RandomAs#1 Len=10 Put#1，i，KSC
B．"．．＼Data1．txt"For Random As#1 Len=10 Put#1，Y，KSC
C．"．．＼Data1．txt"For Random As#1 Put#1，i，KSC
D．"．．＼Data1．txt"For Random As#1 Put#1，Y，KSC
9、 在窗体上建立通用对话框需要先添加的控件是（ ）。
A．Data控件
B．From控件
C．CommonDialog控件
D．VBComboBox控件
10、 窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：
DimY As Integer
Private Sub Command1 Click（ ）
Dim X As Integer
x=2
Text1．Text=p2(p1(X)，Y)
Text2．Text=p1(x)
End Sub
Private Function p1(X As Integer)As Integer
x+x+v: y=x+y
p1=x+y
End Function
Private Function p2(X As Integer，Y As Integer)As Integer
p2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为（ ）。
A．2 4
2 4
B．2 4
4 8
C．4 4
8 8
D．10 10
58 58
11、 面向对象的设计方法与传统的面向过程的方法有本质不同，它的基本原理是（ ）。
A．模拟现实世界中不同事物之间的联系
B．强调模拟现实世界中的算法而不强调概念
C．使用现实世界的概念抽象地思考问题从而自然地解决问题
D．鼓励开发者在软件开发的绝大部分中都用实际领域的概念去思考
12、 为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（ ）。
A．Visible
B．Timer
C．Enabled
D．Interval
13、 对如下二叉树
进行后序遍历的结果为（ ）。
A．ABCDEF
B．DBEAFC
C．ABDECF
D．DEBFCA
14、 VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母（ ）。
A．这3个事件都会触发
B．只触发KeyPress事件
C．只触发KeyDown、KeyUp事件
D．不触发其中任何一个事件
15、 以下关于通用对话框的叙述中，错误的是（ ）。
A．若没有指定InitDir属性值，则起始目录为当前目录
B．用一个通用对话框控件可以建立几种不同的对话框
C．File Title属性指明了文件对话框中所选择的文件名
D．文件对话框用属性FiherIndex指定默认过滤器，它是一个从0开始的整数
16、 一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程问的联系是（ ）。
A．1：1联系
B．1：m联系
C．m：1联系
D．m：n联系
17、 软件(程序)调试的任务是（ ）。
A．诊断和改正程序中的错误
B．尽可能多地发现程序中的错误
C．发现并改正程序中的所有错误
D．确定程序中错误的性质
18、 结构化程序所要求的基本结构不包括（ ）。
A．顺序结构
B．GOTO跳转
C．选择(分支)结构
D．重复(循环)结构
19、 假定在图片框控件Picturel中装入了一个图形，为了在程序运行时清除该图形，则应使用（ ）。
A．选择图片框控件，然后按
B．执行语句Picture 1．Picture=LoadPicture("")
C．执行语句Picture1．Picture=""
D．选择图片框控件，在属性窗口中选择Picture属性，然后删除该属性的值
20、 窗体上有名称为Command1的命令按钮和名称为Textl的文本框
Private Sub Command1 Click（ ）
Text1．Text="程序设计"
Text1．SeFocus
End Sub
Private Sub Text1 GotFocus（ ）
Text1．Text="等级考试"
End Sub
运行以下程序，单击命令按钮后（ ）。
A．文本框中显示的是"程序设计"，且焦点在文本框中
B．文本框中显示的是"等级考试"，且焦点在文本框中
C．文本框中显示的是"程序设计"，且焦点在命令按钮上
D．文本框中显示的是"等级考试"，且焦点在命令按钮上
21、 下面（ ）属性肯定不是框架控件的属性。
A．Text
B．Caption
C．Left
D．Enabled
22、下面循环语句中在任何情况下都至少执行一次循环体的是（ ）。
A．Do While<条件>
循环体
Loop
B．While <条件>
循环体
Wend
C．Do
循环体
Loop Until<条件>
D．Do Until <条件>
循环体
Loop
23、 语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是（ ）。
A．-36
B．1
C．-1
D．-72
24、 窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。
Private Sub Command1_Click（ ）
Dim str As String，S As String．k As Integer
s=Text1
str =""
For k=Listl．ListCount-1 To 0 Step-1
If InStr(List1．List(k)，s)>0 Then
str=str ＆ List1．List(k)＆""
End If
Next k
If str=""Then
Text2="没有匹配的项目"
Else
Text2=str
End If
End Sub
程序运行时，在Text1中输入"京"，单击命令按钮，则在Text2中显示的内容是（ ）。
A．京
B．北京南京
C．南京北京
D．没有匹配的项目
25、 请阅读程序：
Private Sub Form Click（ ）
m=1
For i=4To 1 Step-1
Print Str(m)；
m=m+1
For j=1 To i
Print"*"：
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是（ ）。
A．1****
2***
3**
4*
B．4****
3***
2**
1*
C．****
***
**
*
D．*
**
***
****
26、
某二叉树共有7个结点，其中叶子结点只有l个，则该二叉树的深度为(假设根结点在第l层)（ ）。
A．3
B．4
C．6
D．7
27、
窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（ ）。
A．Print Cb1．Selected
B．Print Cb1．List(Cbl．LisfIndex)
C．Print Cb1．Selected．Text
D．Print Cb1．List(ListIndex)
28、
下列叙述中正确的是（ ）。
A．MsgBox语句的返回值是一个整数
B．执行MsgBox,语句并出现信息框后，不用关闭信息框即可执行其他操作
C．MsgBox语句的第一个参数不能省略
D．如果省略MsgBox语句的第三个参数(Title)，则信息框的标题为空
29、
窗体上有一个名称为Option1的单选按钮控件，当程序运行时，当单击某个单选按钮时，会调用下面的事件过程：
Private Sub Option1 Click(Index As Integer)
End Sub
下面关于此过程的参数Index的叙述中正确的是（ ）。
A．Index为1表示单选按钮被选中，为0表示未选中
B．Index的值可正可负
C．Index的值用来区分哪个单选按钮被选中
D．Index表示数组中单选按钮的数量
30、
在窗体上有一个命令按钮，然后编写如下事件过程：
Private Sub Command1Click（ ）
Dim a(5)As String
For i=1，To 5
a(i)=Chr(Asc("A")+(i-1))
Next i
For Each b In a
Print b；
Next
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
31、
面向对象方法中，继承是指（ ）。
A．一组对象所具有的相似性质
B．一个对象具有另一个对象的性质
C．各对象之间的共同性质
D．类之间共享属性和操作的机制
32、
若要获得组合框中输入的数据，可使用的属性是（ ）。
A．ListIndex
B．Caption
C．Text
D．List
33、
下列关于过程及过程参数的描述中，错误的是（ ）。
A．过程的参数可以是控件名称
B．调用过程时使用的实参的个数应与过程形参的个数相同
C．只有函数过程能够将过程中处理的信息返回到调用程序中
D．窗体可以作为过程的参数
34、
设有下列通用过程：
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<=StrL
tStr=tStr＆Mid(xStr，i+1，1)
i=i+1
Loop
Fun=tStr＆tStr
End Function
在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程：
Private Sub Commandl Click（ ）
Dim S1 As String
S1="ABCDEF"
Text1．Text=LCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，文本框中显示的是（ ）。
A．ABCDEF
B．abedef
C．defdef
D．defabc
35、
有三个关系R、S和T如下：
则由关系R和S得到关系T的操作是（ ）。
A．自然连接
B．交
C．除
D．并
36、
有两个关系R和T如下：
则由关系R得到关系T的操作是（ ）。
A．选择
B．投影
C．交
D．并
37、
下列关于线性链表的叙述中，正确的是（ ）。
A．各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致
B．各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续
C．进行插入与删除时，不需要移动表中的元素
D．以上三种说法都不对
38、
现有如下一段程序：
Option Base 1
Privalc Sub Command1 Click（ ）
Dim a
a=Array(3，5，7，9‘)
x=1
For i=4，10 j Step-1
s=s+a(i)*X
x=x*10
Next i
Print s
End Sub
执行程序，单击Command1命令按钮键，执行上述事件过程，输出结果是（ ）。
A．9753
B．3579
C．35
D．79
39、
下列可以打开随机文件的语句是（ ）。
A．Open"file 1．dat"For Input As#1
B．Open"file1．dat"For Append As#1
C．Open"file1．dat"For Output As#1
D．Open"file1．dat"For Randow As#1 Len=20
40、
将E—R图转换为关系模式时，实体和联系都可以表示为（ ）。
A．属性
B．键
C．关系
D．域
二、基本操作题（共18分）
41、
在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Com mand1，标题为“当前时间／日期切换”；每次单击按钮时，Textl就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图1—2所示。
注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2．vbp与sj2．frm。
42、 在窗体Form1上画一个列表框，名称为List1，有“Item1”、“Item2”、“Item3”和“Item4”4个表项。要求编写适当的程序代码，当双击列表中某一项时，弹出一个对话框提示“是否删除”。对话框中只有“是”与“否”两个选择按钮，单击按钮，则继续当前的操作。程序运行时的窗体界面如图5—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
三、简单应用题（共24分）
43、 在考生文件夹中有工程文件sj4．vbp及其窗体文件sj4．frm，该程序是不完整的。
在窗体上有四个复选框，名称分别为Check1、Check2、Check3和Check4，标题分别为“足球”、“篮球”、“羽毛球”和“排球”。一个标签，名称为Label1，还有一个命令按钮，名称为Command1，标题为“选择结果”。要求程序运行后，如果选中某个复选框，当单击“选择结果”命令按钮时，则显示相应的信息。例如，如果选中“足球”和“羽毛球”复选框，单击“选择结果”命令按钮后，在标签上显示“我喜欢的运动是足球羽毛球”，如图8—4所示。
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
44、 在名称为Forml的窗体上建立两个主菜单，其标题分别为“文件”和“编辑”，名称分别为vbFile和VbEdit，在“文件”菜单下有三个子菜单项，标题分别为“打开”、“保存”和“关闭”，名称分别为vbOpen、vbSave和vbClose。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图6-3所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sja．vbp。
四、综合应用题（共18分）
45、 在考生文件夹下有一个工程文件sj5．vbp，相应的窗体文件为sj5．frm，此外在考生文件夹下还有一个名为in5．txt的文本文件，其内容如下：
10，11，12，13，14．15，16，17，18，19，20，21，22，23，24，25，26，27，28，29，30，31，32，33。34
程序运行后，双击窗体，将把文件in5．txt中的数据输入到二维数组Arr中，在窗体上按5行×5列的矩阵形式显示出来，并在其下显示该矩阵左上一右下对角线的右上部分。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并使之能正确运行。程序运行效果如图2—5所示。
要求：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
- 只看不练，假把式······
- 进入233题库【模拟考场】，在线做题测试，在线查看成绩及详细答案解析！
- 马上进入
题库优势
- 更好的做题体验
- 233计算机二级题库有四种做题模式，可选择自己的喜欢和当前适合的做题模式进行训练。
- 更多的习题、真题
- 233计算机二级题库题量储备百万道，包含历年真题，模拟试题等题型，题题结合考试大纲贴近考试 考点。
- 更专业的试题解析
- 233计算机二级题库结合考试大纲，将各试题划分了详细的章节知识，更全面的详细的展示答案解析。
- 进入计算机二级模拟考场>>