2006年9月全国计算机等级考试二级VB真题

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

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

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

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

设有如下三个关系表：
 　　
下列操作中正确的是 （　　） 。

下列叙述中正确的是 （　　） 。

在长度为 64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为 （　　） 。

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

对下列二叉树：
 　　
进行中序遍历的结果是 （　　） 。

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

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

设 a=2,b=3,c=4, 下列表达式的值是 （　　） 。
Not a <= c Or 4*c = b^2 And b <> a+c

没有如下的用户定义类型：
Type Student
number As String
name As String
age AS Integer
End Type
则以下正确引用该类型成员的代码是 （　　） 。

设 a=5,b=6,c=7,d=8 ，执行下列语句后， X 的值为 （　　） 。
X=IIf((a>b)And(c>d),10,20)

执行以下程序段后，变量 c$ 的值为 （　　） 。
a$= “ Visual Bassic Programming ”
b$= “ Quick ” e$=b$&U Case(Mid$(a$,7,6))&Right$(a$,12)

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

在窗体上面画一个命令按钮和一个标签，其名称分别为 Commandl 和 Labell ，然后编写如下事件过程：
Private Sub Commandl_Click()
Counter=0
For i=1 To 4
For j=6 To 1 Step -2
Counter=Counter+1
Nextj
Nexti
Labell.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是

在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程：
Private Commandl_Click()
Dim i As Integer, n As Integer
For i=0 To 50
i = i+3
n = n+1
If i>10Then Exit For
Next
Textl.Text=Str(n)
End Sub
程序运行后，单击命命令按钮，在文本框中显示的值是 （　　） 。

在窗体上画一个命令按钮和两个标签，真名和分别为 Commandl 、 Labell 和 Labe12 ，然后编写如下事件过程：
Private Sub Commandl_Chick.
a=0
For i=1 To 10
a=a+1
b=0
Forj=1 To 10
a=a+1
b=b+2
Nextj
Next i
Labell. Caption=Str(a)
Labe12.Caption=Str(b)
End Sub
程序运行后，单击命令按钮，在标签 Labell 和 Labe12 中显示的内容分别为 （　　） 。

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

在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：
Private Sub Commandl Click()
Dim i As Integer, j As Integer
Dim a (10,10)As Integer
For i=1 To 3
For j= i To 3
a(i,j)=(i-1)*3+j
Print a (i,j);
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是 （　　） 。

在窗体上画一个命令按钮，名称为 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 ，输入结果为 （　　） 。

有以下程序：
Option Base 1
Dim arr() 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(1,4)
For j=3 To 4
arr(3,j)=j+9
Next j
Print arr(3,2);arr(3,4)
End Sub
程序运行后，单击窗体，输出结果为 （　　） 。

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

有以下程序：
Sub subp(b()As Integer)
For i=1To4
b(i)=2-i
Nexti
End Sub
Private Sub Command1_Click()
Dim a (1 To 4)As Integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subpa()
For i=1 To4
Print a (i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为 （　　） 。

设有如下通用过程：
Public Function Fun(xStr As String)
Dim tStr As String, srtL As Integer 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
在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：
Private Sub Command 1_ Click()
Dim S1 As String
S1=”abcdef”
Text1.Text=UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，则 Text1 中显示的是 （　　） 。

在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(KeyAscii As Integer)
……
End Sub
假定焦点已经位一地文本框中，则能够触发 KeyPress 事件的操作是

在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：
Dim S1 As String, S2 As String
Private Sub Form_Load()
Text1. Text=””
Text2. Text=””
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
S2=s2 & Chr(KeyCode)
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 中显示的内容分别为 （　　） 。

以下说法正确的是 （　　） 。

在窗体上画一个通用对话框，其名称为 CommonDialog1 ，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1. Filter=”All Files(*.*)|*.*Text Files”&_
“(*.txt)|*.txt| Executable Files(*.exe)|*.exe”
CommonDialog1. Filterindex=3
CommonDialog1. Show Open
MsgBox CommonDialog1. FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 （　　） 。

以下叙述错误的是

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

设有语句： Open "d: ＼ Text.txt" For OutputAs#1 ，以下叙述中错误的是（）

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

下列软件系统结构图
 　　
的宽度为＿＿。

＿＿的任务是诊断和改正程序中的错误。

一个关系表的行称为＿＿。

按“先进后出”原则组织数据的数据结构是＿＿。

数据结构分为线性结构和非线性结构，带链的队列属于＿＿。

描述 "X 是小于 100 的非负整数 " 的 Visual Basic 表达式是＿＿。

在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ ＿＿ ()
Command1.Enabled=True
End Sub

在窗体上画一个名称为 "Command1" 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
DIm a As String
a ="123456789"
For i=1 To 5
Print Space(6-i);Mid $ (a, ＿＿ ,2*i-1)
Next i
End Sub
程序运行后，单击命令按钮，窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。

以下程序的功能是：将一维组 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 Base 1
Private Sub Form_Click()
Dim i As Integer,j As Integer
Dim A(1 To 100) As Integer
Dim B(1 To 10,1 To 10) As Integer
For i=1 To 100
a(i)=Int(Rnd * 100)
Next i
For i=1 To ＿＿
For j=1 To ＿＿
b(i,j)= ＿＿
Print B(i,j);
Next j
Print
Next i
End Sub

在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 " 城市名称 " 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 " 已成功添加新输入页。 " ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 " 输入项已在组合框中。 " 。请填空。
 　　
Private Sub Combol_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1.ListCount-1
If Combo1.Text= ＿＿ Then
Label2.Capti_dj=" 输入项已在组合框中。 "
Exit Sub
End If
Next i
Label2.Capti_dj=" 已成功添加新输入项。 "
Combo1.＿＿ Combo1.Text
End If
End Sub

在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，然后编写如下事件过程：
Private Sub Command1_Click()
Dim inData As String
Text1.Text=" "
Open "d:\Myfile.txt" for ＿＿ As #1
Do While ＿＿
Input # 1,inData
Text1.Text=Text1.Text+inData
Loop
Close #1
End Sub
程序的功能是，打开 D 盘根目录下的文本文件 myfile.txt, 读取它的全部内容并显示在文本框中。请填空