| 全国计算机等级考试 历年真题 2006年4月计算机二级考试VB程序设计试题 |
一、选择题（每题2分，共计70分） |
|
|
|
2.两个或两个以上模块之间关联的紧密程度称为。
A) 耦合度B) 内聚度
C) 复杂度 D) 数据传输特性
|
|
A
B
C
D
|
3.下列叙述中正确的是。
A) 软件测试应该由程序开发者来完成
B) 程序经调试后一般不需要再测试
C) 软件维护只包括对程序代码的维护
D) 以上三种说法都不对
|
|
A
B
C
D
|
4.按照“后进先出”原则组织数据的数据结构是。
A) 队列B) 栈
C) 双向链表D) 二叉树
|
|
A
B
C
D
|
5.下列叙述中正确的是。
A) 线性链表是线性表的链式存储结构
B) 栈与队列是非线性结构
C) 双向链表是非线性结构
D) 只有根结点的二叉树是线性结构
|
|
A
B
C
D
|
6.对如下二叉树
ABDECF
进行后序遍历的结果为。
A) ABCDEFB) DBEAFC
C) ABDECFD) DEBFCA
|
|
A
B
C
D
|
7.在深度为7的满二叉树中，叶子结点的个数为。
A) 32B) 31C) 64 D) 63
(8)“商品”与“顾客”两个实体集之间的联系一般是。
A) 一对一B) 一对多
C) 多对一D) 多对多
|
|
A
B
C
D
|
8.“商品”与“顾客”两个实体集之间的联系一般是。
A) 一对一B) 一对多
C) 多对一D) 多对多
|
|
A
B
C
D
|
9.在E-R图中，用来表示实体的图形是。
A) 矩形B) 椭圆形
C) 菱形D) 三角形
|
|
A
B
C
D
|
10.数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是。
A) DB包含DBS和DBMSB) DBMS包含DB和DBS
C) DBS包含DB和DBMS D) 没有任何关系
|
|
A
B
C
D
|
11.以下关于Visual Basic特点的叙述中，错误的是。
A) Visual Basic是采用事件驱动编程机制的语言
B) Visual Basic程序既可以编译运行，也可以解释运行
C) 构成Visual Basic程序的多个过程没有固定的执行顺序
D) Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构
|
|
A
B
C
D
|
12.以下叙述中，错误的是。
A) 一个Visual Basic应用程序可以含有多个标准模块文件
B) 一个Visual Basic工程可以含有多个窗体文件
C) 标准模块文件可以属于某个指定的窗体文件
D) 标准模块文件的扩展名是.bas
|
|
A
B
C
D
|
13.以下叙述中，错误的是。
A) 在Visual Basic中，对象所能响应的事件是由系统定义的
B) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定
C) Visual Basic中允许不同对象使用相同名称的方法
D) Visual Basic中的对象具有自己的属性和方法
|
|
A
B
C
D
|
14.设有如下语句：
Dim a，b As Integer
c="VisualBasic"
d=#7／20／2005#
以下关于这段代码的叙述中，错误的是。
A) a被定义为Integer类型变量
B) b被定义为Integer类型变量
C) c中的数据是字符串
D) d中的数据是日期类型
|
|
A
B
C
D
|
15.以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是。
A) LeftB) Mid
C) String D) Instr
|
|
A
B
C
D
|
16.设a=4，b=3，c=2，d=1，下列表达式的值是。
a>b+1 Or c<d And b Mod c
A) TrueB) 1
C) -1D) 0
|
|
A
B
C
D
|
17.以下可以作为Visual Basic变量名的是。
A) A#AB) counstA
C) 3AD) ?AA
|
|
A
B
C
D
|
18.设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是。
A) Print A=x+yB) Print"A=";x+y
C) Print "A="+Str(x+y) D) Print"A="&x+y
|
|
A
B
C
D
|
19.假定有如下的命令按钮(名称为Command1)事件过程：
Private Sub Command1_Click()
x=InputBox("输入："，"输入整数")
MsgBox"输入的数据是：”，，”输入数据："+x
End Sub
程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是。
A) x的值是数值10
B) 输入对话框的标题是“输入整数”
C) 信息框的标题是“输入数据：10”
D) 信息框中显示的是“输入的数据是：”
|
|
A
B
C
D
|
20.在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然
后编写如下事件过程：
Private Sub Command1_Click()
x=Val(Text1.Text)
Select Case x
Case 1，3
y=x*x
Case Is>=10，Is<=-10
y=x
Case -10 To 10
y=-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。
A) 执行y=x*xB) 执行y=-x
C) 先执行y=x*x，再执行y=-xD) 程序出错
|
|
A
B
C
D
|
21.设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click()
Dim a(30)As Integer
For i=1 To 30
a(i)=Int(Rnd*100)
Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem；
If arrItem>90 Then Exit For
Next
End Sub
对于该事件过程，以下叙述中错误的是。
A) a数组中的数据是30个100以内的整数
B) 语句For Each arrItem In a有语法错误
C) If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数
D) If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环
|
|
A
B
C
D
|
22.设有命令按钮Command1的单击事件过程，代码如下：
Private Sub Command1_Click()
Dim a(3，3)As Integer
For i=1 To 3
For j=1 To 3
a(i，j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i，4-i)
Next i
Print Sum
End Sub
运行程序，单击命令按钮，输出结果是。
A) 20 B) 7
C) 16 D) 17
|
|
A
B
C
D
|
23.在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2<>0 Then
a=a-1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序运行后，单击命令按钮，输出结果是。
A) 0 B) 2
C) 3 D) 4
|
|
A
B
C
D
|
24.窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问号(?)处应填入的内容是。
图1图2 Private Sub Option1_Click(Index As Integer)
If Text1.Text<>""Then
Select Case ?
Case 0
Text2.Text=Val(Text1.Text)
Case 1
Text2.Text=Val(Text1.Text)*10
Case 2
Text2.Text=Val(Text1.Text)*100
End Select
End If
End Sub
A) IndexB) Option1.Index
C) Option1(Index) D) Option1(Index).Value
|
|
A
B
C
D
|
25.在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim a(10)As Integer
Dim x As Integer
For i=1 To 10
a(i)=8+i
Next
x=2
Print a(f(x)+x)
End Sub
Function f(x As Integer)
x=x+3
f=x
End Function
程序运行后，单击命令按钮，输出结果为。
A) 12 B) 15
C) 17 D) 18
|
|
A
B
C
D
|
26.以下关于过程的叙述中，错误的是。
A) 事件过程是由某个事件触发而执行的过程
B) 函数过程的返回值可以有多个
C) 可以在事件过程中调用通用过程
D) 不能在事件过程中定义函数过程
|
|
A
B
C
D
|
27.在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。
编写如下程序：
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=f(x，y)
End Sub
Function f(ByVal x As Integer,ByVal y As Integer)
Do While y<>0
tmp=x Mod y
x=y
y=tmp
Loop
f=x
End Function
运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。
A) 4 B) 6
C) 8 D) 12
|
|
A
B
C
D
|
28.窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是。
Private Sub Text1_LostFocus()
Call CheckInput(Text1，500)
End Sub
Private Sub Text2_LostFocus()
Call CheckInput(Text2，1000)
End Sub
Sub CheckInput(t As ?，x As Integer)
If Val(t.Text)>x Then
MsgBox"请重新输入!"
End If
End Sub
A) Text B) SelText
C) Control D) Form
|
|
A
B
C
D
|
29.在窗体上画1个文本框，其名称为Text1，然后编写如下过程：
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer)
Print Chr(KeyCode+2)
End Sub
程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。
A)AA
B)AB
C)AC
D)AD
|
|
A
B
C
D
|
30.为了使列表框中的项目呈多列显示，需要设置的属性为。
A) Columns B) Style
C) List D) MultiSelect
|
|
A
B
C
D
|
31.在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("请输入：")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X<10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Flag=True
End Sub
运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。
A) 0 B) 5
C) 15 D) 无任何输出
|
|
A
B
C
D
|
32.在菜单编辑器中建立1个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=1 Then
PopupMenu Menu0
End If
End Sub
则以下叙述中错误的是。
A) 该过程的作用是弹出一个菜单
B) 单击鼠标右键时弹出菜单
C) Menu0是在菜单编辑器中定义的弹出菜单的名称
D) 参数X、Y指明鼠标当前位置的坐标
|
|
A
B
C
D
|
33.窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下：
Private Sub Command1_Click()
CD1.FileName=""
CD1.Filter="All Files|*.*|(*.DoC)|*.Doc|(*.Txt)|*.txt"
CD1.FilterIndex=2
CD1.Action=1
End Sub
关于以上代码，错误的叙述是。
A) 执行以上事件过程，通用对话框被设置为“打开”文件对话框
B) 通用对话框的初始路径为当前路径
C) 通用对话框的默认文件类型为*.Txt
D) 以上代码不对文件执行读写操作
|
|
A
B
C
D
|
34.以下叙述中错误的是。
A) 用Shell函数可以执行扩展名为.exe的应用程序
B) 若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型
C) Static类型的变量可以在标准模块的声明部分定义
D) 全局变量必须在标准模块中用Public或Global声明
|
|
A
B
C
D
|
35.以下关于文件的叙述中，错误的是。
A) 使用Append方式打开文件时，文件指针被定位于文件尾
B) 当以输入方式(Input)打开文件时，如果文件不存在，则建立一个新文件
C) 顺序文件各记录的长度可以不同
D) 随机文件打开后，既可以进行读操作，也可以进行写操作
|
|
A
B
C
D
|
二、填空题（每空2分，共计30分） |
| 1.对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为【1】。
|
| 输入答案，中间不含空格:
|
| 2.在面向对象方法中，【2】描述的是具有相似属性与操作的一组对象。
|
| 输入答案，中间不含空格:
|
| 3.在关系模型中，把数据看成是二维表，每一个二维表称为一个【3】。
|
| 输入答案，中间不含空格:
|
| 4.程序测试分为静态分析和动态测试。其中【4】是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。
|
| 输入答案，中间不含空格:
|
| 5.数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为【5】。
|
| 输入答案，中间不含空格:
|
6.下列语句的输出结果是【6】。
Print Format(Int(12345.6789*100+0.5)／100，"0000，0.00")
|
| 输入答案，中间不含空格:
|
7.在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim arr(1 To 100）As Integer
For i=1 To 100
arr(i)=Int(Rnd*1000)
Next i
Max=arr(1)
Min=arr（1）
For i=1 To 100
If【7】Then
Max=arr(i)
End If
If【8】Then
Min=arr(i)
End If
Next i
Print"Max="；Max，"Min="；Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
2006年4月笔试试卷 第9页(共12页)2006年4月笔试试卷第10页(共12页)
|
| 输入答案，中间不含空格:
|
| 8.上一题【8】
|
| 输入答案，中间不含空格:
|
9.在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：
Function Fun(x As Integer,ByVal y As Integer)As Integer
x=x+y
If x<0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=-10：b=5
Text1.Text=Fun(a，b)
Text2.Text=Fun(a，b)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【9】和【10】。
|
| 输入答案，中间不含空格:
|
| 10.上一题【10】
|
| 输入答案，中间不含空格:
|
11.在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编
写如下代码：
Dim SaveAll As String
Private Sub Command1_Click()
Text1.Text=Left(UCase(SaveAll)，4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是【11】。
|
| 输入答案，中间不含空格:
|
12.在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.【12】="打开文件"
CommonDialog1.Filter="All Files(*.*)|*.*"
CommonDialog1.InitDir="C：＼"
CommonDialog1.ShowOpen
End Sub
该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIl Files(*.*)”，并显示C盘根目录下
的所有文件，请填空。
|
| 输入答案，中间不含空格:
|
13.在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load()
Open"d：＼temp＼dat.txt"For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
lf【13】=13 Then
If UCase(Text1.Text)=【14】Then
Close 1
End
Else
Write#1，【15】
Text1.Text=""
End If
End If
End Sub
以上程序的功能是，在D盘temp目录下建立1个名
为dat.txt的文件，在文本框中输入字符，每次按
回车键(回车符的ASCII码是13)都把当前文本框中
的内容写入文件dat.txt，并清除文本框中的内容；
如果输入“END”，则结束程序。请填空。
|
| 输入答案，中间不含空格:
|
| 14.上一题【14】
|
| 输入答案，中间不含空格:
|
| 15.上一题【15】
|
| 输入答案，中间不含空格:
|
Hi,亲爱的朋友，欢迎光临Passtwo！
您想做点什么呢？
I Want....
热门软件下载
实用电子地图
本站隆重推荐自主开发的VFP上机模拟系统免费下载使用
二级vfp上机模拟系统
|
