06.09全国计算机VB真题

2006年9月全国计算机等级考试二级笔试试卷

一. 选择题（每小题2分，共70分）

（1）下列选项中的不符合良好程序设计风格的是

A）源程序要文档化

B）数据说明的次序要规范化

C）避免滥用GOTO语句

D）模块设计要保证高耦合.高内聚

（2）从工程管理角度，软件设计一般分为两步完成，它们是

A）概要设计与详细设计B）数据设计与接口设计

C）软件结构设计与数据设计D）过程设计与数据设计

（3）下列选项中不属于软件生命周期开发阶段任务的是

A）软件测试B）概要设计C）软件维护D）详细设计

（4）在数据库系统中，用户所见的数据模式为

A）概念模式B）外模式C）内模式D）物理模式

（5）数据库设计的四个阶段：需求分析、概念设计、逻辑设计和

A）编码设计B）测试阶段C）运行阶段D）物理设计

（6）设有如下三个关系表

R S T

A B C A B C

m 1 3 m 1 3

n n 1 3

下列操作中正确的是

A） T=R∩S B)T=RUS C)T=R×S D)T=R/S

（7）下列描述中正确的是

A）一个算法的空间复杂度大，则其时间复杂度必定大

B）一个算法的空间复杂度大，则时间复杂度必定小

C）一个算法的空间复杂度大，则空间度必定小

D）上述三种说法都不对

（8）在长度为64的有序性表中进行顺序查找，最坏情况下需要比较的次数为A）63 B）64 C）6 D）7

（9）数据库技术的根本目标是要解决数据的

A）存储问题B）共享问题C）安全问题D）保护问题

（10）对下列二叉树

进行中序遍历的结果是

A） ACBDFEG

B） ACBDFGE

C） ABDCGEF

D） FCADBEG

（11）以下叙述中正确的是

A）窗体的NAME属性指定窗体的名称，用来标识一个窗体

B）窗体的NAME属性值是显示在窗体标题栏中的文本

C）可以在运行期间改变窗体的NAME属性的值

D）窗体的NAME属性值可以为空

（12）以下叙述中错误的是

A）打开一个工程文件时，系统自动装入与该工程有关的窗体文件

B）保存VB程序时，应分别保存窗体文件及工程文件

C）VB应用程序只能以解释方式执行

D）窗体文件包含该窗体及其控件的属性

（13）设A=2，B=3，C=4下列表达式的值是

Not a<=c or 4*=b^2 And b<> a+c

A） -1 B）1 C）True D）False

（14）设有如下的用户定义类型：

Type Student

Number As String

Name As String

age As Integer

End Type

则以下正确引用该类型成员的代码是

A） https://www.wendangku.net/doc/a64548507.html,=”李明”

B） Dim s As Student

https://www.wendangku.net/doc/a64548507.html, =”李明”

C） Dim s As Type Student

https://www.wendangku.net/doc/a64548507.html, =”李明”

D) Dim s As Type

https://www.wendangku.net/doc/a64548507.html, =”李明”

(15) 设a=5，b=6，c=7，d=8，执行下列语句后，x值为

x=Iif（（a>b）And (c>d)，10，20）

A）10 B）20 C）True D）False

（16）执行以下程序后，变量c$的值为

a$=”Visual Basic Programming”

b$=”Quick”

c$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,12)

A) Visual BASIC Programming

B) Quick Basic Programming

C) QUICK Basic Programming

D) Quick BASIC Programming

（17）在窗体上画一个文本框（其名为Text1）和一个标签（其名称为Label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是

A) Private Sub Text1_Click()

Label1.Caption=Text1.Text

End Sub

B) Private Sub Text1_Change()

Label1.Caption=Text1.Text

End Sub

C) Private Sub Label1_Change()

Label1.Caption=Text1.Text

End Sub

D) Private Sub Label1_Click()

Label1.Caption=Text1.Text

End Sub

（18）在窗体上画一个命令按扭和一个标签，其名称分别为Command1和Label1,然后编写如下事件过程：

Private Sub Command1_Click()

Counter=0

For I =1To 4

For j=6 To 1 Step-2

Counter=Counter +1

Next j

Next I

Label1.Caption =Str(Counter)

End Sub

程序运行后，单击命令按扭，标签中显示的内容是

A)11 B)12 C)16 D)20

（19）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按扭，然后编写如下事件过程：

Private Sub Command1_Click()

Dim I As Integer，n As Integer

For I =0 To 50

I=I+3

N=n+1

IF I>10 Then Exit For

Next

Text1.Text=Str(n)

End Sub

程序运行后，单击命令按扭，在文本框中显示的值是

A)5 B)4 C)3 D)2

（20）在窗体上画一个命令按扭和两个标签，其名称是Command1,Label1和Label2，然后编写如下事件过程：

Private Sub Command1_Click()

a=0

For I =1To10

a=a+1

b=0

For j=1To 10

a=a+1

b=b+2

Next j

Next i

Label1.Caption=Str(a)

Label2.Caption=Str(b)

End Sub

程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是

A）10和20 B）20和110 C）200和110 D）110和20

（21）在窗体上画一个名称为Label1的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是

A) Private Sub List1_Click()

Label1.Caption=List.ListIndex

List1.RemoveItem List1.Text

End Sub

B) Private Sub List1_Click()

https://www.wendangku.net/doc/a64548507.html,=List1.ListIndex

List1.RemoveItem List1.Text

End Sub

C) Private Sub List1_Click()

Label1.Caption=List1.Text

List1.RemoveItem List1.ListIndex

End Sub

D) Private Sub List1_Click()

https://www.wendangku.net/doc/a64548507.html,= List1.Text

List1.RemoveItem List1.ListIndex

End Sub

(22)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Dim I As Integer,j As Integer

Dim a(10,10)As Integer

For I=I To 3

For j=1 To 3

a(I,j)=(I-1)*3+j

Print a(I,j);

Next j

Print

Next I

End Sub

程序运行后，单击命令按钮，窗体显示的是

A)1 2 3 B)2 3 4 C)1 4 7 D)1 2 3

2 4 6

3

4

5 2 5 8 4 5 6

2 3 4 4 5 6 3 6 9 7 8 9

(23)在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：

Option Base 0

Private Sub Command1_Click()

Dim A(4) As Integer，B(4)As Integer

For k=0 To 2

A(k+1)=InputBox(“请输入一个整数”)

B(3-k)=A(k+1)

Next k

Print B(k)

End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为A）0 B）2 C）3 D）4

（24）有以下程序：

Option Base 1

Dim arr () As Integer，j As Integer

Private Sub Form_Click()

Dim I as integer，j as integer

Redim arr(3,2)

For I=1 to 3

For j=1 to 2

Arr(I,j)=I*2+j

Next j

Next I

Redim preserve arr(3,4)

For j=3 to 4

Arr(3,j)=j+9

Next j

Print arr(3,2)；arr(3,4)

EndSub

程序运行后，单击窗体，输出结果为

A）8 13 B）0 13 C）7 12 D）0 0

（25）以下叙述中正确的是：

A）一个Sub过程至少要有一个Exit Sub语句

B）一个Sub过程必须有一个End Sub语句

C）可以在Sub过程中定义一个Function过程，但不能定义Sub过程

D）调用一个Function过程可以获得多个返回值

（26）有以下程序：

Sub subP（b（）As Integer)

For i = 1 to 4

b(i)=2*i

Next I

End Sub

Private sub command1-click()

Dim a(1to4)as interger

a(1)=5:a(2)=6:a(3)=7

aA(4)=8

Subp a()

For I=1 to 4

Print a(i)

Next i

End sub

运行上面日程序,单击命令按纽,输出结果为

A) 2 B) 5 C) 10 D) 出错

4 6 12

6 7 14

8 8 16

（27）设有如下通用过程

Public Function Fun(xstr as string) as integer

Dim tstr as string，strl as interger

Tstr=””

Strl=Len(xstr)

I=1

Do while I<=strl/2

Tstr=tstr & mid(xstr，I，1) & mid(xstr，strl-I+1，1)

I=I+1

Loop

Fun=tstr

End function

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：

Private sub command1_click()

dim s1 as string

s1=”abcdef”

Text1.text=Ucase(Fun(s1))

End sub

程序运行后，单击命令按钮，则Text1中显示的是

A）ABCDEF B）abcdef C）AFBECD D）DEFABC

（28）在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：

Private Sub TxtA_KeyPress (KeyAscii As Integer)

……

End Sub

假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是

A）单击鼠标

B）双击文本框

C）鼠标滑过文本框

D）按下键盘上的某个键

（29）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序：

Dim S1 As String，S2 As String

Priivate Sub Form_Load()

Text1.Text=””

Text2.Text=””

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)

S2=S2 & Chr(KetCode)

End Sub

Private Sub Text1_KeyPress (KeyAscii As Integer)

S1=S1& Chr(KeyAscii)

End Sub

Private Sub Command1_Click()

Text1.Text=S2

Text2.Text=S1

S1=””

S2=””

End Sub

程序结束后，在Text1中输入”abc”，然后单击命令按扭，在文本框Text1和Text2中显示的内容分别为

A) abc和ABC B) abc和abc C)ABC和abc D)ABC 和ABC

（30）以下说法中正确的是

A）任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器

B）只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

C）任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器

D）只有当代码窗口为当前活动窗体时，才能打开菜单编辑器

（31）在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：

private sub command1_click()

commondialog1.filter=”ALL Files(*.*)|Text Files ” & _

“(*.txt)|.txt|Executable Files(*.exe)|*.exe”

commondialog1.filterindex=3

commondialog1.showopen

msgbox commondialog1.filename

end sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是

A）ALL Files(*.*) B）Text Files(*.txt)

C）Executable Files(*.exe) D）不确定

（32）以下叙述中错误的是

A）一个工程中可以包含多个窗体文件

B）在一个窗体文件中用Public定义的通用过程不能被其他窗体调用

C）窗体和标准模块需要分别保存为不同类型的磁盘文件

D）用Dim定义的窗体层变量只能在该窗体中使用

（33）以下叙述中错误的是

A）语句“Dim a,b as integer”声明了两个整型变量

B）不能在标准模块中定义Satic型变量

C）窗体层变量必须先声明，后使用

D）在事件过程或通用过程内定义的变量是局部变量

（34）设有语句open “d:\test.txt ”for output as #1,以下叙述中错误的是

A）若D盘根目录下无Test.txt文件，则该语句创建此文件

B）用该语句建立的文件的文件号为1

C）该语句打开D盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息D）执行该语句后，就可以通过Print# 语句向文件Test.txt中写入信息

（35）以下叙述中错误的是

A）顺序文件中的数据只能按顺序读写

B）对同一个文件，可以用不同的方式和不同的文件号打开中

C）执行Close语句，可将文件缓冲区中的数据写到文件中

D）随机文件各句路的长度是随机的

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

（1）下列软件系统结构图

的宽度为[1]

（2）[2]的任务是诊断和改正程序中的错误

（3）一个关系表的行称为[3]

(4)按“先进后出”原则组织数据的数据结构是[4]

（5）数据结构分为线性结构和非线性结构，带链的队列属于[5]

（6）描述“X是小于100的非负整数”的Visual Basic表达式是[6]

（7）在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（灰色），此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。

Private Sub Form_Load()

Command1.Enabled=False

End Sub

Private Sub Text1_[7]()

Command1.Enabled=True

End Sub

（8）在窗体上画一个名称为“Command1”的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()

Dim a As Steing

a=”123456789”

For i=1 to 5

Print Space(6-I);Mid$(a, [8],2*i-1)

Next I

End Sub

程序运行后，单击命令按钮，窗体上的输出结果是

5

456

34567

2345678

123456789

请填空。

（9）以下程序的功能是：将一维数组A中的100元素分别赋给二维数组B的每个元素并打印出来，要求把到依次赋予A(1)到A(10)依次赋给B(1,1)到B(1,10)把A(11)到A(20)依次赋给B(2,1) 到B(2,10),……把A(91)到A(100)依次赋给B(10,1)到B(10,10)。请填空。

Option Base1

Private Sub Form _Click()

Dim ,i As Integer, j As Integer

Dim A(1 to 100)As Integer

Dim B(1 to 10, 1to10)As Integer

For i=1 to 100

A(i)=Int(Rnd*100)

Next i

For i=1 to [9]

For j=1 to [10]

B(i,j);

Next j

Print

Next I

End Sub

(10)在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1,Label2标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的类表中，并在Label2中给出提示“已成功添加新输入项。”如图所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中。”。请填空。

Private sub combo1_keypress(keyascii as integer)

If keyascii=13 then

For I=0 to combol1.listcount-1

If combo1.text=[12] then

Label2.caption=”输入项已在组合框中”

Exit sub

End If

Next I

Label2.Caption=”已成功添加新输入项”

Combol. [13] Combol.Text

End If

End Sub

(11)在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1,然后编写如下事件过程：

Private Sub Command1_Click()

Dim inData As String

Text1.Text=””

Open”d:\myfile.txt”For [14] As#1

Do While [15]

Input#1,inData

Text.1Text=Text+inData

Loop

Close #1

End Sub

程序的功能是，打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中。请填空。