打印本文 打印本文  关闭窗口 关闭窗口  
全国计算机等级考试二级VB模拟试题15
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:49:16  文章录入：杜斌  责任编辑：杜斌
答案

一、选择题（每题2分，共计70分）

1.在下面关于线性表的叙述中，选出正确的一项____。
A、线性表的每个元素都有一个直接前趋和直接后继
B、线性表中至少要有一个元素
C、线性表中的元素必须按递增或递减的顺序排列
D、除第一个元素和最后一个元素外，每个元素都有一个直接前趋和一个直接后继
A       B       C       D      
2.队列适用于下列哪一种应用？
A、表达式求值
B、堆排序算法的实现
C、树的层次次序周游算法的实现
D、二叉树对称周游算法的实现
A       B       C       D      
3.设一颗二叉树中，度为1的结点数为9，则该二叉树的叶结点的数目为
A、10
B、11
C、12
D、不确定
A       B       C       D      
4.对以下序列{22，86，49，12，30，65，35，18}进行排序，排序过程如下：
①{22，86，49，12，30，65，35，18}
②{18，12，22，49，30，65，35，86}
③{12，18，22，35，30，49，65，86}
④{12，18，22，30，35，49，65，86}
则可以认为使用了____排序方法。
A、选择排序
B、冒泡排序
C、快速排序
D、插入排序
A       B       C       D      
5.对建立良好的程序设计风格，下面描述正确的是
A、程序应简单、清晰、可读性好
B、符号名的命名只要符合语法
C、充分考虑程序的执行效率
D、程序的注释可有可无
A       B       C       D      

答案
6.在软件生命周期中，_________阶段的工作量最大，约占70%。
A、分析
B、编码
C、测试
D、维护
A       B       C       D      
7.软件调试的目的是
A、发现错误
B、改正错误
C、改善软件的性能
D、挖掘软件的潜能
A       B       C       D      
8.Foxbase、FoxPro、Access属于下列哪一种DBMS体系结构？
A、微机环境下简单DBMS系统体系结构
B、分布式环境下的集中式数据库系统机构
C、分布式DBMS系统结构
D、面向对象数据库管理系统
A       B       C       D      
9.下面对于关系的叙述中，哪个是不正确？
A、关系中的每个属性是不可分解的
B、在关系中元组的顺序是无关紧要的
C、任意的一个二维表都是一个关系
D、每一个关系只有一种记录类型
A       B       C       D      
10.下述哪一条是由于关系模式设计不当所引起的问题?
A、丢失修改
B、更新异常
C、读脏数据
D、数据被非法读取
A       B       C       D      

答案
11.在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称
为T（下标从0开始，自左至右顺序增大，然后编写如下事件过程：

Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)=Text1(1).Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为

A、0 1 2 3
B、1 2 3 4
C、0 1 3 2
D、出错信息
A       B       C       D      
12.下列可作为Visual Basic变量名的是
A、A#A
B、4A
C、?xy
D、constA
A       B       C       D      
13.要使一个标签透明且不具有边框，则应：____
A、将其BackStyle属性设置为0,BorderStyle属性设置为0
B、将其BackStyle属性设置为0,BorderStyle属性设置为1
C、将其BackStyle属性设置为1,BorderStyle属性设置为0
D、将其BackStyle属性设置为1,BorderStyle属性设置为1
A       B       C       D      
14.假定有一菜单项，名为 MenuItem，为了运行时使该菜单项失效（变灰），应使用的语句为____。
A、MenuItem.Enabled=False
B、MenuItem.Enabled=True
C、MenuItem.Visible=True
D、MenuItem.Visible=False
A       B       C       D      
15.以下叙述中正确的是
A、窗体的Name属性指定窗体的名称，用来标识一个窗体
B、窗体的Name属性的值是显示在窗体标题栏中的文件
C、可以在运行期间改变对象的Name属性的值
D、对象的Name属性值可以为空
A       B       C       D      

答案
16.以下叙述错误的是
A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B、保存Visual Basic程序时，应分别保存窗体文件及工程文件
C、Visual Basic应用程序只能以解释方式进行
D、事件可以由用户引发，也可以由系统引发
A       B       C       D      
17.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
a = 12345
Print Format$(a, "000.00")
End Sub
程序运行后，单击命令按钮，窗体上显示的是
A、123.45
B、12345.00
C、12345
D、00123.45
A       B       C       D      
18.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句
Public X As Integer
在Model1中有语句
Public Y As Integer
则以下叙述中正确的是
A、变量X、Y的作用域相同
B、Y的作用域是Model1
C、在From1中可以直接使用X
D、在Form2中可以直接使用X和Y
A       B       C       D      
19.表达式Str(Len("123"))+Str(77.7)的值为____。
A、377.7
B、□3 □77.7
说明：□ 表示空格
C、80.7
D、12377.7
A       B       C       D      
20.如果将布尔常量值True赋值给一个整型变量，则整型变量的值为____。
A、0
B、-1
C、True
D、False
A       B       C       D      

答案
21.目录列表框的Path属性的作用是____。
A、显示当前驱动器或指定驱动器上的目录结构
B、显示当前驱动器或指定驱动器上的某目录下的文件名
C、显示根目录下的文件名
D、显示该路径下的文件
A       B       C       D      
22.为使图像框的大小自动适应图像的大小，则应____。
A、将其Autosize属性值设置为True
B、将其Autosize属性值设置为False
C、将其Stretch属性值设置为True
D、将其Stretch属性值设置为False
A       B       C       D      
23.能够获得一个文本框中被选中文本的内容属性是____。
A、Text
B、Length
C、SelText
D、SelStart
A       B       C       D      
24.下面叙述中不正确的是____。
A、自定义类型只能在窗体模块的通用声明段进行声明
B、自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型
C、在窗体模块中定义自定义类型时必须使用Private关键字
D、自定义类型必须在窗体模块或标准模块的通用声明段进行声明
A       B       C       D      
25.表达式Int(-17.8)+Sgn(17.8)的值是____。
A、18
B、-17
C、-18
D、-16
A       B       C       D      

答案
26.在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(keyascii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是
A、单击鼠标
B、双击文本框
C、鼠标滑过文本框
D、按下键盘上的某个键
A       B       C       D      
27.在程序代码中将图片文件pic.jpg装入图片框Picture的语句是____。
A、Picture1.picture="pic,jpg"
B、Picture.image="pic,jpg"
C、Picture1.picture=LoadPicture("pic.jpg")
D、LoadPicture("pic.jpg")
A       B       C       D      
28.如果两个质数的差为2，就称这两个质数为质数对。下列程序代码输出100以内的质数对。
Private Sub Commandl_click( )
Dim i As Integer
P1=Abc(3)
For i=5 To 100 Step 2
p2=Abc(i)
If____Then Print i-2,i
P1=p2
Next I
End Sub
Public Function Abc(m As Integer)As Boolean
Dim i As Integer
Abc=True
For i=2 To Int(Sqr(m))
If m Mod i=0 Then Abc=False:Exit For
Next i
End Function
A、p1=p2
B、p1 And p2
C、p1,p2
D、p1 Or p2
A       B       C       D      
29.单击窗体时,下列程序代码的执行结果为____。
Private Sub Invert(xStr As String, yStr As String)
Dim tempStr As String
Dim I As Integer
I = Len(xStr)
Do While I > 1
tempStr = tempStr + Mid(xStr, I, 1)
I = I - 1
Loop
yStr = tempStr

End Sub


Private Sub Form_Click()
Dim s1 As String, s2 As String
s1 = "abcdef"
Invert s1, s2
Print s2
End Sub
A、abcdef
B、afbecd
C、fedcba
D、defabc
A       B       C       D      
30.阅读程序：
Sub subP(b() As Integer)
For i = 1 To 4
b(i) = 2 * i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
Call subP(a())
For i = 1 To 4
Print a(i)
Next i
End Sub
A、2
4
6
8
B、5
6
7
8
C、16
D、出错
A       B       C       D   

答案
31.下面是窗体Forml的Click事件过程,实现运行时每次单击窗体时,窗体均向右移动100。
Private Sub Form_click()
Static intleft As Integer
intleft = intleft + 100
Form1.____ = intleft
End Sub
请选择正确属性填充空白处，完成本程序：
A、Caption
B、Top
C、Width
D、Left
A       B       C       D      
32.窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()
Dim A(10), B(5)
For I = 1 To 10
A(I) = I
Next I
For J = 1 To 5
B(J) = J * 20
Next J
A(5) = B(2)
Print "A(5)=", A(5)
End Sub

窗体运行后，单击命令按钮，输出结果是
A、A(5)=40
B、A(5)=20
C、A(5)=10
D、A(5)=5
A       B       C       D      
33.窗体上有两名称分别为Text1、Text2的文本框，一个名称为Command1命令按钮。运行后的
窗体外观如图所示：

设有如下的类型声明
Type Person
name As String*8
major As String*20
End Type
当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中
的数据已正确地赋值给Person类型的变量p。
则能够正确地把数据写入文件的程序段是：
A)Open "c:\Test29.dat"For Random As #1
Put #1,1,p
Close #1
B)Open "c:\Test29.dat"For Random As #1
Get #1,1,p
Close #1
C)Open "c:\Test29.dat"For Random As #1 Len=Len(p)
Put #1,1,p
Close #1
D)Open "c:\Test29.dat"For Random As #1 Len=Len(p)
Get #1,1,p
Close #1
A       B       C       D      
34.设有如下程序：
Private Sub Command1_Click()
Dim sum As Double,X As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是
A、1+1/2+2/3+3/4+4/5
B、1+1/2+2/3+3/4
C、1/2+2/3+3/4+4/5
D、1+1/2+1/3+1/4+1/5
A       B       C       D      
35.在窗体上画一个命令按钮，名称为Command1,然后编写如下程序：
Function Func(ByVal x As Integer, y As Integer)
y = y * x
If y > 0 Then
Func = x
Else
Func = y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 3
b = 4
c = Func(a, b)
Print a;b;c
End Sub
程序运行后，单击命令按钮，其输出结果为
A、3 12 3
B、3 4 3
C、3 4 12
D、3 12 12
A       B       C       D      

答案

二、填空题（每空2分，共计30分）

1.在线性表的顺序存储中，元素之间的逻辑关系是通过相邻位置决定的；在线性表的
链接存储中，元素之间的逻辑关系是通过____决定的。
输入答案，中间不含空格:
2.在堆排序和快速排序中，若原始记录接近正序或反序，则选用____。
输入答案，中间不含空格:
3.问题分析图简称____。
输入答案，中间不含空格:
4.外模式是____的子集。
输入答案，中间不含空格:
5.在数据库的三级模型体系统结构中，外模式与模式之间的映象（外模式/模式），实现了
数据库的____独立性。
输入答案，中间不含空格:

答案
6.Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是____。
输入答案，中间不含空格:
7.窗体文件的扩展名为____，每个窗体对应一个窗体文件，窗体及其控件的属性和其他信
息(包括代码)都存放在该窗体文件中,一个应用程序可以有多个窗体，最多可达____。
因此就可以有多个以.frm为扩展名的窗体文件。
输入答案，中间不含空格:
8.上一题 第 2 空
输入答案，中间不含空格:
9.属性窗口主要是针对窗体和控件设置的。在Visual Basic中，窗体和控件被称为____每个
对象都可以用一组属性来刻画出其特征，而属性窗口就是用来设置窗体或窗体中控件属
性的。
输入答案，中间不含空格:
10.在C盘当前文件夹下建立一个名为Data.txt的顺序文件。要求用文本框输入若干英文单词，每次按下回车键时写入一条记录，
并清除文本框中的内容，直至文本框中输入“END”时为止。
Private Sub Form_Load( )
Open "C:\Data.txt" For Output As #3
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(Key Ascii As Integer)
If KeyAscii=13 Then
If____="END"Then
Close ____
End
Else
Write #3,Text1.Text
End If
输入答案，中间不含空格:

答案
11.上一题 第 2 空
输入答案，中间不含空格:
12.在C盘当前文件夹下有一个已建立好的顺序文件alph.txt，文件内容为只含有字母的一个字符串（有双引号界定符）。
单击窗体，打开alph.txt文件，读取字符串并显示在文本框Text1中，然后调用StrSort过程将此字符串按ASCII码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入文件alphout.txt中（无双引号界定符）。
Private Sub Form_Click( )
Dim StrIn As String,StrOut As String
Open "C:alph.txt" For Input As #2
____
Close
Text1.Text=StrIn
StrOut=StrSore(StrIn)
Text2.Text=StrOut
Open"C:alphout.txt"For Output As#2
Print #2,StrOut
Close
End Sub
Private Function StrSort(s As String)As String
Dim sArr( )As String *1，i As Integer,j As Integer,n As Integer
Dim t As String * 1
n=Len(s)
ReDim sArr(n)
For i=1 To n
sArr(i)=Mid(s,i,1)
Next i
For i=1 TO n-1
Forj=i+1 To n
If sArr(i)>sArr(j) then
t=sArr(i)
sArr(i)=sArr(j)
sArr(j)=t
End If
Next i
For i=1 To n
t=t & sArr(i)
Next i
StrSort=t
End Function
输入答案，中间不含空格:
13.从指定的任意一个驱动器中的任何一个文件夹下查找文件（不含汉字），并将选定的文件的完整路径显示在文本框Text1中，
文件内容显示在文本框Text2中。
Private Sub Form_Load( )
File1.____="*.txt"
End Sub
Private Sub Dir1_Change( )
File1.Path=Dir1.Path
End Sub
Private Sub Dir1_Change( )
Dir1.Path=Drive1.Drive
End Sub
Private Sub File1_Click( )
If Right(File.Path,1)<>"\"Then
Text1.Text=File1.Path & File1.FileName
Else
Text1.Text=File1.Path & File1.FileName
____
Open Text1.Text For Input As #1
Text2.Text=Input(LOF(1),1)
Close
End Sub
输入答案，中间不含空格:
14.上一题 第 2 空
输入答案，中间不含空格:
15.为了改变计时器控件的时间间隔，应该修改该控件的____属性。
输入答案，中间不含空格:
打印本文 打印本文  关闭窗口 关闭窗口