近三年计算机等级考试中VB真题的发现
Visual Basic语言编程
(考试时间90分钟，满分100分)
一、选择题(每小题2分，* * * 70分)
在下面的四个选项a)，b)，c)和d)中，只有一个选项是正确的。请在答题卡相应位置填写正确选项，答案不在试卷上计分。
(1)软件指
a)程序b)程序和文件
c)算法加数据结构d)全套程序、数据和相关文档。
(2)软件调试的目的是
a)找出错误b)改正错误
c)提高软件的性能d)验证软件的正确性。
(3)在面向对象方法中，信息隐藏依赖于
a)对象的继承b)对象的多态性
c)对象的封装d)对象的分类
(4)在下列陈述中，不符合良好编程风格要求的是
a)程序的效率是第一位的，清晰是第二位的；程序是可读的。
c)程序中应有必要的注释d)输入数据前应有提示信息。
(5)下列说法是正确的
a)程序执行的效率与数据的存储结构密切相关。
b)程序执行的效率只取决于程序的控制结构。
c)程序执行的效率只取决于处理的数据量。
d)以上三种说法都不正确。
(6)下列说法是正确的
a)数据的逻辑结构和存储结构必须一一对应。
b)因为计算机存储空间是矢量存储结构，所以数据存储结构必须是线性结构。
c)编程语言中的数组一般都是顺序存储结构，所以数组只能用来处理线性结构。
d)以上三种说法都不正确。
(7)最坏情况下气泡排序的比较时间为
a)n(n+1)/2 B)nlog 2n C)n(n-1)/2d)n/2
(8)二叉树中有70个叶节点和80个度为1的节点，则二叉树中的汇总点为
a)219 B)221 C)229D)231
(9)下列说法是正确的
a)数据库系统是独立的系统，不需要操作系统的支持。
b)数据库技术的根本目标是解决数据共享问题。
c)数据库管理系统是数据库系统。
d)以上三种说法都不正确。
(10)下列说法是正确的
a)为了建立关系，首先要构建数据的逻辑关系。
b)表示关系的二维表中的每个元组的每个组件也可以被分成若干数据项。
c)关系的属性列表称为关系模式。
d)一个关系可以包括多个二维表。
(11)要使文本框显示多行文本，应将属性设置为True
a)使能B)多线C)掩模宽度D)宽度
(12)表单上有一个名为Text1的文本框。当光标位于文本框中时，如果按下字母键“A ”,则调用的事件过程是
a)Form _ KeyPress()B)text 1 _ lost focus()
c)text 1 _ Click()D)test 1 _ Change()
(13)表单上有一个名为Command1的命令按钮和一个名为Text1的文本框。单击命令1按钮时，需要将光标移动到文本框。以下正确的事件过程是
a)私有Sub命令1_Click() B)私有Sub
Text1。GotFocus命令1。获得焦点
结束Sub结束Sub
c)私有Sub命令1_Click() D)私有Sub
Text1。SetFocus命令1。SetFocus
末端接头
(14)执行以下程序后的输出为
私有子命令1_Click()
Ch$="AABCDEFGH "
Print Mid(Righ(ch$，6)，Len(left(ch$，4))，2)
末端接头
A)CDEFGH B)ABCD C)FG D)AB
(15)表单Form1上有一个列表框List1，其中有几个项目。单击列表框中的项目时，在表单上显示该项目。正确的事件流程是
a)私有子列表1_Click() B)私有子表单1_Click()
打印列表1。文本打印列表1。文本
末端接头
c)私有子列表1_Click() D)私有子表单1_Click()
打印表格1。文本列表1。打印列表1。文本
末端接头
(16)如果表单的图片框中有命令按钮，则该按钮的Left属性是指
a)从按钮左端到表单左端的距离b)从按钮左端到图片框左端的距离
c)从按钮的中心点到表单左端的距离d)从按钮的中心点到图片框左端的距离
(17)为了使程序运行时显示在通用对话框CD1上的标题成为“对话框窗口”，如果标题是由程序设置的，要使用的语句是
A)CD1。dialog title = " dialog window " B)CD 1。Action= "对话窗口"
C)CD1。FileName = " dialog window " D)CD 1。Filter= "对话窗口"
(18)表单上有控件，如右图所示，以及每个控件的名称。
与其标题相同，并具有以下步骤:
私有子窗体_Load()
命令2。启用=假
Check1.value=1
末端接头
当我第一次运行该程序时，我看到了表单的外观:
(19)表单中有一个名为List1的列表框，里面有几个条目(如图)。选择一个项目后，单击命令1按钮删除所选项目。正确的事件流程是
a)私有子命令1_Click()
List1。清楚的
末端接头
b)私有子命令1_Click()
List1。清除列表1。列表索引
末端接头
c)私有子命令1_Click()
List1。remove item list 1。列表索引
末端接头
d)私有子命令1_Click()
List1。移除项目
末端接头
(20)有人设计了下面的程序计算输出7！(7的阶乘)
私有子命令1_Click()
t=0
对于k=7到2步-1
t=t*k
然后
打印t
末端接头
执行程序时，发现结果不对。以下修改方案中能得到正确结构的是
a)将t=0改为t=1。
b)将k =7到2的步长-1更改为k = 7到1的步长-1。
c)将k = 7to2sip-1更改为Fork=1 To 7。
d)更改Nexi k旁边的内容
(21)如果表单中已经有几个不同的单选按钮，要将它们更改为单选按钮的数组，在“属性”窗口中您需要且只需要做的是
a)将所有单选按钮的索引属性更改为相同的值。
b)将所有单选按钮的索引属性连续更改为不同的值。
c)将所有单选按钮的标题属性值更改为相同。
d)将所有单选按钮的名称更改为相同，并将它们的索引属性更改为连续不同的值。
(22)表单上有一个文本框Text1和一个菜单。菜单的标题和名称如表所示，结构如图所示。程序执行时点击“保存”菜单项，其标题将显示在Text1文本框中。可以实现该功能的事件流程如下:
标题名称
文件文件
新建新
保存保存
a)私有子保存点击()B)私有子保存点击()
Text1。text = file . save . caption text 1。Text =保存。标题
末端接头
c)私有子文件_Click() D)私有子文件_Click()
Text1。text = file . save . caption text 1。Text =保存。标题
末端接头
(23)有人在表单上画了一个名为Timer1的定时器和一个名为Lab的定时器。
的属性设置为Enabled=True，Interval=0，编程如下。我想每两秒钟在标签上显示一次当前系统时间。
私有子定时器1_Timer()
Label1。标题=时间美元
末端接头
在程序执行中，发现上述目标并未实现。然后，他应该进行以下修改。
a)通过属性窗口将计时器的间隔属性设置为2000。
b)通过属性窗口将定时器的启用出生设置为False。
c)更换标签1。事件过程中的Caption=Time$语句到Timer1。间隔=Tims$。
d)更换标签1。事件过程中的Caption=Time$语句来标记1 . caption = timer 1 . Time
(24)形状控件的形状属性有六个值，分别代表六种几何图形。下列不属于六种几何学的是
(25)下列对文件的描述中错误的是
a)随机文件中每个记录的长度是相同的]
b)打开随机文件时使用的文件访问方法应该是随机的。
c)应该使用语句Print#文件号将数据写入随机文件。
D) Open语句用于打开随机文件和顺序文件。
(26)假设表单上有一个图片框Picture1，程序运行时要加载当前文件夹下的图形文件File1.jpg。可以实现这个功能的语句是
a)图片1。图片="Flie1.jpg
b)图片1。picture = load picture(" file 1 . jpg ")
C) LoadPicture("File1.jpg ")
d)调用LoadPicture("File1.jpg ")
(27)当执行以下程序时，表格上显示的是
私有子命令1_Click()
Dim a(10)
对于k = 1至10
a(k)= 11–k
下一个k
打印a(a(3)\a(7) Mod a(5))
末端接头
A)3 B)5 C)7
(28)为了交换A和B中的值并输出它们，有人编程如下:
私有子命令1_Click()
a% = 10:b% = 20
呼叫交换(a，b)
打印a、b
末端接头
私有子交换(ByVal a为整数，ByVal b为整数)
c= a:a=b:b=c
末端接头
运行时发现输出结果错误，需要修改。以下错误原因和修改是正确的。
a)调用swap过程的语句错误，应改为调用swap a，b。
b)输出语句错误，应改为:打印“a”和“b”
c)进程的形参有问题，应该改成swap (Byref a为整数，Byref b为整数)。
D)D)swap中三个赋值语句的顺序不对，应改为A = B: B = C: C = A。
(29)具有以下功能:
函数fun(a为整数，n为整数)为整数
将m标注为整数
而a & gt=n
a=a-n
m= m+1
行
乐趣=m
结束功能
这个函数的返回值是
a)a乘以n的乘积b)a加n的和。
c)a和n的差d)a除以n的商(不包括小数部分)
(30)下面程序的输出是
私有子命令1_Click()
ch$="ABCDEF "
进程ch
打印通道
末端接头
私有子过程(ch为字符串)
S= " "
对于k=Len(ch)到1步长-1
s =标准普尔。Mid(ch，k，1)
下一个k
ch=s
末端接头
A)ABCDEF B)FEDCBA C)A D)F
(31)有人写了一个函数过程，可以返回数组A中的最大数10，代码如下:
函数Maxvalue(a()为整数)为整数
最大尺寸%
max=1
对于k = 2到10
如果a(k)>a(最大)然后
最大值= k
如果…就会结束
下一个k
Maxvalue = max
结束功能
程序运行时发现函数进程返回值错误，需要修改。下列修改方案是正确的
a)应将语句max = 1改为max = a(1)
b)k = 2到10的语句应改为k = 1到10。
C)C)If语句中的条件a (k)>: A(max)应改为A(k)>最大
d)应将语句Maxvalue = max改为Maxvalue = a(max)
(32)在表单上绘制一个名为Command1的命令按钮，并编写以下程序:
私有子命令1_Click()
尺寸n%，b，t
t = 1:b = 1:n = 2
做
b = b*n
t = t + b
n = n +1
循环直到n & gt九
打印t
末端接头
这个程序计算并输出一个表达式的值，它是
A)9！B)10！C)1！+2!+…+9!D)1！+2!+…+10!
(33)有一个名为Form1的表单，没有控件，有以下程序(方法Pset(X，Y)的作用是在坐标X，Y处画一个点):
Dim cmdmave为布尔值
私有子窗体_MouseDown(按钮为整数，Shift为整数，X为单值，Y为单值)
cmdmave = True
末端接头
private Sub Form _ MouseMove(Button为整数，Shift为整数，X为Single，Y为Single)
如果cmdmave，则
表单1。Pset(X，Y)
如果…就会结束
末端接头
私有子窗体_MouseUp(Button为整数，Shift为整数，X为Single，Y为Single)
cmdmave = False
末端接头
这个程序的功能是
a)每按一次鼠标键，在鼠标指向的位置画一个点。
b)按下鼠标键，在鼠标指向的位置画一个点；松开鼠标按钮，该点消失。
c)不按鼠标键拖动鼠标，会沿着鼠标拖动的轨迹画一条线。
d)按住鼠标键拖动鼠标，沿着鼠标拖动的轨迹画一条线，松开鼠标键结束画线。
(34)有人设计了下面这个函数fun，它的作用是返回参数a中值的位数。
函数fun(a为整数)为整数
尺寸n%
n = 1
而a \ 10 >= 0
n = n + 1
a = a \ 10
行
乐趣= n
结束功能
调用该函数时，发现返回的结果不正确，需要修改函数。以下修改方案中正确的是
a)将语句n = 1改为n = 0。
b)把循环条件a 10 >；= 0更改为10 > 0
c)将语句a = a 10改为a = a Mod 10。
d)将语句fun = n改为fun = a。
(35)表单上有一个名为Check1的复选框数组。
(带有4个复选框)和一个名为Text1的文本。
框中，初始内容为空。当程序运行时，单击任何检查。
框中，则所有选中的复选框都会在文本中列出。
在这个盒子里(见图)。可以实现该功能的事件流程如下
a)私有子检查1_Click(以整数表示)
Text1。文本= " "
对于k = 0到3
If Check1(k)。那么值= 1
Text1。Text = Text1。文本& ampCheck1(k)。标题和标题。" " '双引号中有空格。
如果…就会结束
下一个k
末端接头
b)私有子检查1_Click(索引为整数)
对于k = 0到3
If Check1(k)。那么值= 1
Text1。Text = Text1。文本& ampCheck1(k)。标题和标题。" " '双引号中有空格。
如果…就会结束
下一个k
末端接头
c)私有子检查1_Click(索引为整数)
Text1。文本= " "
对于k = 0到3
If Check1(k)。那么值= 1
Text1。Text = Text1。文本& ampCheck1(索引)。标题和标题。" " '双引号中有空格。
如果…就会结束
下一个k
末端接头
d)私有子检查1_Click(索引为整数)
Text1。文本= " "
对于k = 0到3
If Check1(k)。那么值= 1
Text1。Text = Text1。文本& ampCheck1(k)。标题和标题。" " '双引号中有空格。
为...退出
如果…就会结束
下一个k
末端接头
二、填空(每空2分，***30分)
请将正确答案写在答题卡序号横线[1]~[15]的每一个空白处，答案不在试卷上计分。
(1)软件需求规格说明书要完整、明确、正确、可验证、可修改，其中1最重要。
(2)在两种基本的测试方法中，2-test的原则之一是保证被测模块中的每条独立路径至少执行一次。
(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的三级存储结构。
(4)以下二叉树的中序遍历结果为4。
(5)在E-R图中，矩形代表5。
(6)表单上有一个组合框，已经输入。
几个项目。当程序运行时，单击其中一个。
物品，你可以用最上面的物品交换。
例如，在图1中点击“重庆”与“北方”相同
北京”交换，得到图2的结果。以下是可用的。
请填写实现该功能的步骤。
私有子组合1_Click()
昏暗温度
temp = Combo1。文本
[6] = Combo1。列表(0)
Combo1。List(0) = temp
末端接头
(7)假设窗体上有一个名为HScroIII的水平滚动条，要求当滚动条块移动时，能在窗体上输出移动距离(即新位置与原位置的刻度值之差，向右为正，向左为负)。以下是可以实现该功能的程序，请填写。
Dim [7]为整数
私有子窗体_Load()
pos=HScroIII.value
末端接头
私有Sub HScroIII_Change()
打印[8]-位置
pos=HScroIII.value
末端接头
(8)让表单有一个名为CD1的常规对话框、一个名为Text1的文本框和一个名为Command1的命令按钮。程序执行时，点击命令1按钮，显示文件打开对话框。当操作员从其中选择一个文本文件并点击对话框上的“打开”按钮后，他可以打开该文本文件，读取一行文本并显示在Text1中。以下是实现该功能的事件流程。请填空。
私有子命令1_Click()
CD1。Filter = "文本文件1*。txt(Word文档)*。doc "
CD1。Filterinder = 1
CD1。ShowOpen
如果CD1。文件名& lt& gt”“那么
打开[9]作为#1输入
线路输入#1，ch$
关闭#1
Text1。Text = [10]
如果…就会结束
末端接头
(9)执行下面的程序时，可以从键盘输入一个正整数，然后逆序输出该数的每一位。比如:输入7685，输出5867；输入1000，输出0001。请填空。
私有子命令1_Click()
将x标注为整数
X=InputBox("请输入一个正整数")
而x & gt__[11]___
打印x Mod 10；
x=x\10
行
打印__[12]__
末端接头
(10)具有如图所示的形式。当程序执行时，首先在文本1文本框中输入数字。当焦点试图离开文本1时，程序检查数字的合法性。如果数字合法，焦点可以离开Text1文本框。否则，将显示相应的错误信息，并自动选择错误的字符，并且
焦点不能离开Text1文本框(见图)。
法定数字由以下部分组成:前两个字符是大写的英文。
字母，第三个字符是“-”，后面是数字字符。
(至少1)。下面的程序可以实现这个功能吗
填空。
私有子文本1_Lostfocus()
dim k % n %
n=Len( [13])
对于k=1到if(n & gt；3，n，4)
c=Mid(Text1。文本，k，1)
选择案例k
案例1，2
如果c & lt“A”或c & gt那就Z吧
MsgBox("第一个" &；k & amp"字符必须是大写字母！")
设定位置k
为...退出
如果…就会结束
案例3
如果c & lt& gt“-”然后
MsgBox("第一个" &；k & amp字符必须是字符" ' "-" ' " "
设定位置k
为...退出
如果…就会结束
其他情况
如果c & lt“0”或c & gt那就“9”
MsgBox("第一个" &；k & amp“字符必须是数字！”)
设定位置k
为...退出
如果…就会结束
结束选择
下一个k
末端接头
私有子集合位置(位置为整数)
Text1。SelStart=pos-1
文字。SelLength= [14]
Text1。[15]
末端接头
2007年9月全国计算机等级考试二级VB参考答案。
一、选择题
1-5 DBCAA
6-10 CCABA
11-15 BDCCA
16-20巴卡
21-25 DBABC
26-30溴化二苯醚
31-35 DCDBA
第二，填空
1，歧义
2.白盒测试
3.命令
4、ACBDFEHGP
5.实体集
6、Combol1。列表(Combol1。列表索引)
7、pos
8、HScroll1.value
9、CD1。文件名
10、ch
11、10
12、x
13、Text1。文本
14、1
15、设置焦点