2013年9月全国计算机等级《二级VB》上机模考试卷(5) - 233网校计算机二级题库：在线全真模
1、软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)，下面属于系统软件的是（ ）。
A．编辑软件
B．操作系统
C．教务管理系统
D．浏览器
2、 以下关于顺序文件的叙述中，正确的是（ ）。
A．可以用不同的文件号以不同的读写方式同时打开同一个文件
B．文件中各记录的写入顺序与读出顺序是一致的
C．可以用Input#或Line Input#语句向文件写记录
D．如果用Append方式打开文件，则既可以在文件末尾添加记录，也可以读取原有记录
3、 下列关于关系运算的叙述中正确的是（ ）。
A．投影、选择、连接从二维表的行的方向来进行运算
B．并、交、差从二维表的列的方向来进行运算
C．投影、选择、连接从二维表的列的方向来进行运算
D．以上三种说法都不对
4、 语句Dim a(-3 To 4，3 To 6)As Integer定义的数组元素个数是（ ）。
A．18
B．28
C．21
D．32
5、 下列选项中属于面向对象设计方法主要特征的是（ ）。
A．继承
B．自顶向下
C．模块化
D．逐步求精
6、 在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command1 Click（ ）
a$=”software and hardware”
b$=Right(a$，8)
c$=Mid(a$，L，8)
MsgBox a$，，bs，CS，1
End sub
则在弹出的信息框标题栏中显示的标题是（ ）。
A．software and bardware
B．hardware
C．software
D．1
7、 下列叙述中正确的是（ ）。
A．有一个以上根结点的数据结构不一定是非线性结构
B．只有一个根结点的数据结构不一定是线性结构
C．循环链表是非线性结构
D．双向链表是非线性结构
8、 下列叙述中正确的是（ ）。
A．在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化
B．在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化
C．在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化
D．上述三种说法都不对
9、 一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是（ ）。
A．一对一
B．一对多
C．多对多
D．多对一
10、 以下关于局部变量的叙述中错误的是（ ）。
A．在过程中用Dim语句或Static语句声明的变量是局部变量
B．局部变量的作用域是它所在的过程
C．在过程中用Stalic语句声明的变量是静态局部变量
D．过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放
11、 要在命令按钮控件上显示图像应（ ）。
A．设置Picture属性
B．实现不了
C．先将Style设置为1，然后再设置Picture属性
D．以上都不对
12、 在窗体上从仨到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1 中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是（ ）。
A．Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii==13 Then
'回车符的ASCIl码是13
a=Val(Text1)
If a>=0 Or a<=100 Then
Text2．SetFocus
Else
Text1．SetFocus：MsgBox("分数错")
End If
End If
End Sub
B．Private Sub Textl—KeyPress(KeyAscii As Integer)
If KeyAseii=13 Then
'回车符的ASCIl码是13
a=Val(Text1)
If a>=0 And a<=100 Then
Textl．SetFocus
Else
Text2．SetFocus：MsgBox("分数错")
End If
End If
End Sub
C．Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
'回车符的ASCII码是13
a=Val(Text1)
If a<0 And a>100 Then
Text2．SetFocus
Else
Text1．SetFocus：MsgBox("分数错")
End If
End If
End Sub
D．Private Sub Text1_KeyPress(KeyAscii As Integer)
If KevAscii=13 Then
'回车符的ASCII码是13
a=Val(Textl)
If a>=0 Aad a<=100 Then
Text2．SetFocus
Else
Text1．SetFocus：MsgBox("分数错")
End If
End If
End Sub
13、 假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（ ）。
A．Load
B．Click
C．LostFocus
D．KcyPress
14、 在窗体E先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片，如图1所示，且将banana．DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。能实现此功能的事件过程是（ ）。
A．Private 3ub Form—DragDrop(Source As Control，X As Single，Y As Single)
banana．Move Picture1．Left+X，Picture1．Top+Y
End Sub
B．Private Sub banana_DragDrop(Source As Control，X As Single，Y As Single)
Source．Move Picture1．Left+X，Picture 1．Top+Y
End Sub
C．Private Sub Picturei_DragDrop(Source As Control，X As Single，Y As Single)
Source．Move Picture1．Left+X，Picture1．Top+Y
End Sub
D．Private Sub Picture1_DragDrop(Source As Control，X As Single，Y As Single)
banana．Move banana．Left+X，banana．Top +Y
End Sub
15、 下面有关标准模块的叙述中，错误的是（ ）。
A．标准模块不完全由代码组成，还可以有窗体
B．标准模块中的Private过程不能被工程中的其他模块调用
C．标准模块的文件扩展名为．bas
D．标准模块中的全局变量可以被工作中任何模块引用
16、 在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（ ）。
A．Private Sub Text1 Change（ ）
Labe11．Caption=Str(Len(Text1．Text))
End Sub
B．Private Sub Text1 Click（ ）
Labe11．Caption=str(Len(Text1．Text))
End Sub
C．Private Sub Text1 Change（ ）
Labe11．Caption=Text1．Text
End Sub
D．Private Sub Labe1 1_Change（ ）
Labe11．Caption=Str(Len(Text1．Text))
End Sub
17、 某人编写了下面的程序，希望能把Text1文本框中的内容写到out．txt文件中：
Private Sub Command1Click（ ）
Open"out．txt" For Output As#2
Print”Text1”
Close#2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是（ ）。
A．把Print”Text1¨改为Print#2，Text1
B．把Print”Text 1”改为Print Text1
C．把Print”Text1”改为Write”Text1”
D．把所有#2改为#1
18、 下列叙述中正确的是（ ）。
A．对长度为n的有序链表进行查找，最坏情况下需要的比较次数为n
B．对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n／2)
C．对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(1og2n)
D．对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(nlog2n)
19、 执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1中选中一个列表项(数据为456)，使结果为123456 的语句是（ ）。
A．y=x$+List1．List(0)
B．y=x$+List1．List(1)
C．y=Val(x$)+Val(List1．List(0))
D．y=Val(x$)＆Val(List1．List(1))
20、 在窗体上画1个名为Textl的文本框和1个名为Labell的标签，再画4个名为Opl 的单选按钮控件数组，其Index属性按季度顺序为0～3，如图1所示。在文件Sales．txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句（ ）。
Option Base 1
Dim sales(12)As Long
Private Sub Fo rm Load（ ）
Open"C：＼sales．txt"For Input As#1
For k=1 To 12
Input#1，sales(k)
Nextk
Close#1
End Sub
Private Sub (Index As Integer)
Dim sum As Long，k As Integer，month As Integer
sum=0
month=In&x*
For k=1 To 3
month=month+1
sum=sum+sales(month)
Next k
Label1．Caption=________．Caption＆"销售总额："
Text1=Sum
End Sub
A．Op1_Click 3 Op1(Index)
B．Op1_Click 0 Option1(Index)
C．Option1_Click l Op1(Index)
D．Option1_Click 2 Option1(Index)
21、 为了使列表框中的项目分为多列显示，需要设置的属性为（ ）。
A．Columns
B．Style
C．List
D．MultiSelect
22、 窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：
Private Sub Command1_Click（ ）
For k=List1．ListCout-1 To 0 Step-1
If List1．Selected(k)Then
List2．Addltem List1．List(k)
List1．Removeltem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。
A．在List2中插入了“外语”、“物理”两项
B．在List1中删除了“外语”、“物理”两项
C．同时产生A和B的结果
D．把List1巾最后1个列表项删除并插入到List2中
23、 下列不能扫开菜单编辑器的操作是（ ）。
A．按“Ctrl+E”组合键
B．单击工具栏中的“菜单编辑器”按钮
C．执行“工具”菜单中的“菜单编辑器”命令
D．按“Shift+AIt+M”组合键
24、 设X是整型变量，与函数IIf(x>0，-x，x)有相同结果的代数式是（ ）。
A．|X|
B．-|X|
C．X
D．-X
25、 窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1Click（ ）
Dim a(10)，x％
Fork=1 To 10
a(k)=Int(Rnd*90+10)
x=x+a(k)Mod 2
Next k
Print X
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A．10个数中奇数的个数
B．10个数中偶数的个数
C．10个数中奇数的累加和
D．10个数中偶数的累加和
26、下列关于栈的叙述正确的是（ ）。
A．栈顶元素最先能被删除
B．栈顶元素最后才能被删除
C．栈底元素永远不能被删除
D．以上三种说法都不对
27、 下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是（ ）。Private Sub Command1Click（ ）
Dim cout(25)As Integer，ch As String
ch=Ucase(Int,utBox("请输入字母字符串"))
For k=1 To i en(ch)．
n=ASC(Mid(ch，k，1))-Asc("A")
If n>=0 Then
count(n)=count(n)+1
End If
Next k
m=count(0)
For k=1 To 25
If m
End If
Next k
Print m
End Sub
A．0
B．1
C．2
D．3
28、 设有下列程序
Private Sub Form Click（ ）
X=50
For i=1 T0 4
y=InputBox("请输入一个整数")
y=Val(v)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
A．100
B．50
C．120
D．70
29、 下面正确使用动态数组的是（ ）。
A．Dim arr（ ）As Integer
…
ReDim arr(3，5)
B．Dim arr（ ）As Integer
…
ReDim arr(50)As String
C．Dim arr（ ）
…
RcDim arr(50)As Integer
D．Dim arr(50)AS Integer
…
ReDim arr(20)
30、
在窗体上面有一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（ ）
MsgBox Str(123+321)
End Sub
程序运行后，单击命令按钮，则在信息框中显示的提示信息为（ ）。
A．字符串“123+321”
B．字符串“444”
C．数值“444”
D．空白
31、
窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：
Private Sub Command1 Click（ ）
Dim n As Integer
n=add(5，10)
Print n
End Sub
Function add(v1 As Integer，v2 As Integer，Optiona1 v3)As Integer
If Not IsMissing(v3)Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是（ ）。
A．程序不能正常运行，因为函数add的参数定义有错
B．程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配
C．程序能正常运行，结果是在窗体上显示15
D．程序能正常运行，结果是在窗体上显示510v3
32、
某系统总体结构图如下图所示：
该系统总体结构图的深度是（ ）。
A．7
B．6
C．3
D．2
33、
以下叙述中正确的是（ ）。
A．窗体及窗体上所有控件的事件过程代码都保存在窗体文件中
B．在工程中只有启动窗体可以建立菜单
C．窗体名称必须与窗体文件的名称相同
D．程序一定是从某个窗体开始执行的
34、
窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：
Private Sub Command1_Click（ ）
Timer1．Enabled=True
End Sub
Private Sub Form_Load（ ）
Timer1．Interval=10
Timer1．Enabled=False
End Sub
Private Sub Timer1 Timer（ ）
Command1．Left=Command1．Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是（ ）。
A．命令按钮每10秒向左移动一次
B．命令按钮每10秒向右移动一次
C．命令按钮每10毫秒向左移动一次
D．命令按钮每10毫秒向右移动一次
35、
设a=2，b=3，c=4，d=5，下列表达式的值是（ ）。
Not a<=c Or 4*C=b^2 And b<>a+C
A．-1
B．1
C．True
D．False
36、
有两个关系R，S如下：
由关系R通过运算得到关系S，则所使用的运算为（ ）。
A．选择
B．投影
C．插入
D．连接
37、
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是（ ）。
A．DB包含DBS和DBMS
B．DBMS包含DB和DBS
C．DBS包含DB和DBMS
D．没有任何关系
38、
定义无符号整数类为UInt，下面可以作为类UInt实例化值的是（ ）。
A．一369
B．369
C．0．369
D．整数集合{1，2，3，4，5}
39、
为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是（ ）。
A．CD1．DialogTitle=“对话框窗口”
B．CD1．Action=“对话框窗口”
C．CD1．FileName=“对话框窗口”
D．CD1．Filter=“对话框窗口”
40、
在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：
Private Sub Command1_Click（ ）
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=""
For k=1 To stlen／2
temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)
Next k
fun=temp
End Function
程序运行时，单击命令按钮，则在窗体上显示的是（ ）。
A．ABCDEFG
B．AGBFCE
C．GFEDCBA
D．AGBFCED
二、基本操作题（共18分）
41、
在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图2—1所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj1．vbp。
42、
在窗体Form1上画一个命令按钮，名称为Command1，标题为“打开文件”，在窗体上添加适当的控件爿编写适当的程序代码，要求程序运行时，单击“打开文件”命令按钮，可以弹出“打开文件”对话框。程序运行时的窗体界面如图5-1所示。
注意：保存时必页存放在考生文件夹下，窗体文件名为Sj1．frm，工程文件名为Sj1．vbp。
三、简单应用题（共24分）
43、在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Check1和Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图1—3所示。
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件和文件名。
44、
在窗体上建立一个名称为List1的列表框和一个名为Text1的文本框。编写程序，实现列表框和文本框中项目的交换。要求List1中的项目按字母升序排列，Text1中的项目按照加人的先后顺序排列。当双击List1某个项目时，该项目从列表框中消失，并出现在Text1中。程序运行时的窗体界面如图2-3所示。
注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj3．vbp与sj3．frm。
四、综合应用题（共18分）
45、
在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars 属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“计算保存”，如图3-6所示。要求程序运行后，如果单击“读入数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Text1中显示出来，同时把结果存入考生文件夹的result．txt文件中(在prog．bas中的putdata过程可以把结果存入
result．txt文件)。
注意：文件必须存放在考生文件夹下，窗体文件名为si5．frm，工程文件名为si5．vbp，计算结果存入result．txt文件中，否则没有成绩。
- 只看不练，假把式······
- 进入233题库【模拟考场】，在线做题测试，在线查看成绩及详细答案解析！
- 马上进入
题库优势
- 更好的做题体验
- 233计算机二级题库有四种做题模式，可选择自己的喜欢和当前适合的做题模式进行训练。
- 更多的习题、真题
- 233计算机二级题库题量储备百万道，包含历年真题，模拟试题等题型，题题结合考试大纲贴近考试 考点。
- 更专业的试题解析
- 233计算机二级题库结合考试大纲，将各试题划分了详细的章节知识，更全面的详细的展示答案解析。
- 进入计算机二级模拟考场>>