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

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

1.线性结构中的一个结点代表一个数据元素，通常要求同一线性结构的所有结点所代表的数据具有相同的特性，这意味着____。
A、每个结点所代表的数据元素都一样
B、每个结点所代表的数据元素包含的数据项的个数要相等
C、不仅数据元素所包含的数据项的个数要相同，而且对应数据项的类型要一致
D、结点所代表的数据元素有同一特点
A       B       C       D      
2.如果进栈序列为e1e2e3e4，则可能的出栈序列是____。
A、e3 e1 e4 e2
B、e4 e2 e1 e3
C、e3 e2 e1 e4
D、e3 e4 e1 e2
A       B       C       D      
3.已知二叉树的后序遍历序列是dabec，中序遍历序列是debac，它的前序遍历序列是____。
A、acbed
B、decab
C、deabc
D、cedba
A       B       C       D      
4.用快速排序法对下列关键字序列进行排序，速度最慢的是____。
A、{7，11，19，23，25，27，32}
B、{27，25，32，19，23，7，11}
C、{3，11，19，32，27，25，7}
D、{123，27，7，19，11，25，32}
A       B       C       D      
5.对建立良好的程序设计风格，下面描述正确的是
A、程序应简单、清晰、可读性好
B、符号名的命名只要符合语法
C、充分考虑程序的执行效率
D、程序的注释可有可无
A       B       C       D      

答案
6.程序流程图（PED）中的箭头代表的是
A、数据流
B、控制流
C、调用关系
D、组成关系
A       B       C       D      
7.验收测试是对软件进行______测试。
A、可靠性
B、有效性
C、可维护性
D、可用性
A       B       C       D      
8.下列关于关系数据库视图的说法中，哪些是正确的？

I.视图是关系数据库三级模式中的内模式
II.视图能够对机密数据提供一定的安全保护
III.视图对重构数据库提供了一定程度的逻辑独立性
IV.对视图的一切操作最终都要转换为对基本表的操作
V.所有的视图都是可以更新的
A、I、II和III
B、II、III和IV
C、II、III、IV和V
D、都正确
A       B       C       D      
9.关系数据库系统采用关系模型作为数据的组织方式。关系模型是谁首先提出的？
A、P.P.S.Chen
B、J.Martin
C、E.F.Codd
D、W.H.Inmon
A       B       C       D      
10.RDBMS的层次结构按照处理对象的不同，依最高级到最低级的次序来划分，他们是
A、应用层、语言翻译处理层、数据存取层、数据存储层、操作系统层
B、应用层、数据存储层、语言翻译处理层、数据存储层、操作系统层
C、应用层、语言翻译处理层、数据存储层、数据存取层、操作系统层
D、应用层、数据存取层、数据存储层、语言翻译处理层、操作系统层
A       B       C       D      

答案
11.窗体中存在命令按钮Command1，其Click事件代码如下：

Private Sub Command1_Click()
X = 2
Y = 1
If X * Y < 1 Then Y = Y - 1 Else Y = -1
Print Y - X > 0
End Sub

程序运行后，单击命令按钮，输出结果为
A、True
B、False
C、-1
D、1
A       B       C       D      
12.将文本框的ScrollBars属性设置为非零值，却没有效果，原因是____。
A、文本框中没有内容
B、文本框的MultiLime属性值为False
C、文本框的MultiLine属性值为True
D、文本框的Locked属性值为True
A       B       C       D      
13.下列符号_____不是VB中的合法变量名。
A、ABCabc
B、bd_1234
C、22wed
D、cmd$
A       B       C       D      
14.在用菜单编辑器设计菜单时，必须输入的项是____。
A、快捷键
B、标题
C、索引
D、名称
A       B       C       D      
15.将窗体的_____属性设置为False后，运行时窗体上的按钮、文本框就不会对用户的操作做出响应。
A、ControlBox
B、Visible
C、Enabled
D、BorderStyle
A       B       C       D      

答案
16.设a="Visual Basic"，下面使b="Basic"的语句是
A、b=Lift(a,8,12)
B、b=Mid(a,8,5)
C、b=Right(a,5,5)
D、b=Left(a,8,5)
A       B       C       D      
17.在设计阶段，在属性窗口设置Text属性时，通过按下Ctrl+Enter组合键实现文本的换行。在运行阶段，如果在窗体上有缺省按钮存在，则必须在文本框中按下____组合键才能移动到下一行。
A、Enter
B、Alt+Enter
C、Ctrl+Shift+Enter
D、Ctrl+Enter
A       B       C       D      
18.通过设置Line控件的_____属性可以绘制多种形状的图形。
A、Shape
B、Style
C、FillStyle
D、BorderStyle
A       B       C       D      
19.下面表达式中,____的运算结果与其他三个不同。
A、Exp(-3.5)
B、Int(-3.5)+0.5
C、-Abs(-3.5)
D、Sgn(-3.5)-2.5
A       B       C       D      
20.在Visual Basic中绘制直线时，直线的默认名称为_____，其中x为1，2，3，4……。
A、PictureX
B、ImageX
C、LineX
D、ShapeX
A       B       C       D      
21.要把一个命令按钮设置成无效，应设置其____属性值。
A、Visible
B、Enabled
C、Default
D、Cancel
A       B       C       D      
22.要在C盘当前文件夹下建立一个名为StuData.dat的顺序文件，应先使用___语句。
A、Open"StuData.dat"For Output As #2
B、Open"C:StrData.dat"For Input As #2
C、Open"C:StuData.dat"For Output As #2
D、Open"StuData.dat"For Input AS#2
A       B       C       D      
23.如果在C盘当前文件夹下已存在名为StuData.dat的顺序文件，那么执行语句Open "C:\StuData. dat" For Append As #1之后将____。
A、删除文件中原有内容
B、保留文件中原有内容，可在文件尾添加新内容
C、保留文件中原有内容，在文件头开始添加新内容
D、以上均不对
A       B       C       D      
24.以下叙述错误的是
A、双击鼠标可以触发DblClick事件
B、窗体或控件的事件的名称可以由编程人员确定
C、移动鼠标时，会触发MouseMove事件
D、控件的名称可以由编程人员设定
A       B       C       D      
25.有如下程序段
TYPE goods
Num AS INTEGER
Nam AS STRING *13
END TYPE
DIM cloth AS goods
该程序段定义了两个程序成分,它们分别是____。
A、记录类型和记录变量
B、记录类型和数组
C、显示类型和数组
D、记录变量和数组
A       B       C       D      
26.下述语句定义的数组元素有____个。
OPTION BASE 1
DIM A(12,8)
A、117
B、128
C、96
D、20
A       B       C       D      
27.设有以下循环结构
Do
循环体
Loop While<条件>
则以下叙述中错误的是
A、若“条件”是一个为0的常数，则一次也不执行循环体
B、“条件”可以是关系表达式、逻辑表达式或常数
C、循环体中可以使用Exit Do 语句
D、如果“条件”总是为True，则不停地执行循环体
A       B       C       D      
28.在窗体上画一个通用对话框，其Name属性为CommonDialog1（默认值），再画两个命令按钮，Name属性分别为Command1和Command2，然后编写如下过程，试填写空白。
Private Sub Command1_Click()
CommonDialog1.FileName = " "
CommonDialog1.Flags = vbOFileMustExist
CommonDialog1.Filter = _____
CommonDialog1.FilterIndex = 3
CommonDialog1.DialogTitle = "Open File(*.EXE)"
CommonDialog1.Action = 1
If CommonDialog1.FileName = " " Then
MsgBox "No file selectd"
Else
'对所有选择的文件进行处理
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, A$
Print A$
Loop
End If
End Sub
A、All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT
B、All Files|"*.*"|(*.exe)|"*.exe"|(*.TXT)|"*.TXT"
C、"All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT"
D、"All Files|*.*"|"(*.exe)|*.exe"|"(*.TXT)|*.TXT"
A       B       C       D      
29.在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称
为Filel的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”
的标签。编写程序，使得驱动器列表框与目录列表框与文件列表框同步变化，并且在标签
Label1中显示当前文件夹中文件的数量。如图所示。

能够正确实现上述功能的程序是
A)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.ListCount
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
D)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.List
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
A       B       C       D      
30.下列程序的执行结果为____。
A=75
If A>60 Then
I=1
ElseIf A>70 Then
I=2
ElseIf A>80 Then
I=3
ElseIf A>90 Then
I=4
EndIf
Print"I=";I
A、I=1
B、I=2
C、I=3
D、I=4
A       B       C       D      
31.单击窗体时，下列程序代码的执行结果为____。
Private Sub Form_Click( )
Text 2
End Sub
Private Sub Text(x As Integer)
x=x*2+1
If x<6 Then
Call Text(x)
End If
x=x*2+1
Print x;
End Sub
A、23 47
B、11
C、10 22
D、23
A       B       C       D      
32.以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0。
Private Sub Command1_Click( )
Dim A(4,4)
For I=1 To 4
For J=1 To 4
A(I,J)=0
Next J
A(I,I)=1
_____
Next I
For i=1 To 4
For j=1 To 4
Print A(i,j);
Next j
Print
Next i
End Sub
A、什么也不填
B、A(I,5-I)=1
C、A(5-I,I)=1
D、A(5-I,5-I)=1
A       B       C       D      
33.下列程序段的执行结果为____。
Dim M(10)
For I=0 To 9
M(I)=2*I
Next I
Print M(M(3))
A、12
B、6
C、0
D、4
A       B       C       D      
34.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n=1 To 20
If n Mod 3<>0 then m=m+n\3
Next n
print n
End sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是
A、15
B、18
C、21
D、24
A       B       C       D      
35.下列程序段的执行结果为____。
Dim A(4)
N=3
A(1)=1
For K=0 To N-1
For L=1 To K+1
X=K+2-L
A(X)=A(X)+A(X-1)
If KPrint A(X);
Next L
Next K
A、1 2 1
B、1 2 1
C、2 4 6
D、1 3 1
A       B       C       D      
1.用链表表示线性表的优点是____。
输入答案，中间不含空格:
2.结构化程序设计的三种基本逻辑结构为顺序、选择和____ 。
输入答案，中间不含空格:
3.软件工程研究的内容主要包括：____技术和软件工程管理。
输入答案，中间不含空格:
4.实体完整性规则要求主属性____。
输入答案，中间不含空格:
5.E-R数据模型一般在数据库设计的____阶段使用。
输入答案，中间不含空格:
6.
输入答案，中间不含空格:
7.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n=5
f=1
s=0
For i=1 To n
f=f____
s=s+f
Next
Print s
End Sub
该事件过程的功能是计算s=1+1/2!+1/3!+...+1/n!的值。请填空。
输入答案，中间不含空格:
8. 在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下事件过程：

Private Sub Form_Load()
Timer1.Enabled=Falses
Timer1.Interval=____
End Sub

Private Sub Form_Click()
Timer1.Enabled=____
End Sub


Private Sub Timer1_Timer()
Label1.CAption=____
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1分钟变换一次（见图）。请填空。
输入答案，中间不含空格:
9.上一题 第 2 空
输入答案，中间不含空格:
10.上一题 第 3 空
输入答案，中间不含空格:
11.以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_Click()
For i = 1 To 20
x= Int(____*200+100)
If____ = 0 then
Print x
S = S + ____
End If
Next i
Print "Sum = ";S
End Sub
输入答案，中间不含空格:
12.上一题 第 2 空
输入答案，中间不含空格:
13.上一题 第 3 空
输入答案，中间不含空格:
14.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Load()
Text1.Text = "计算机"
End Sub
Private Sub Text1_Change()
Picture1.Print"等级考试"
End Sub
程序运行后，在文本框中显示的内容是____，而在图片框中显示的内容是____。
输入答案，中间不含空格:
15.上一题 第 2 空
输入答案，中间不含空格:

答案
21.要把一个命令按钮设置成无效，应设置其____属性值。
A、Visible
B、Enabled
C、Default
D、Cancel
A       B       C       D      
22.要在C盘当前文件夹下建立一个名为StuData.dat的顺序文件，应先使用___语句。
A、Open"StuData.dat"For Output As #2
B、Open"C:StrData.dat"For Input As #2
C、Open"C:StuData.dat"For Output As #2
D、Open"StuData.dat"For Input AS#2
A       B       C       D      
23.如果在C盘当前文件夹下已存在名为StuData.dat的顺序文件，那么执行语句Open "C:\StuData. dat" For Append As #1之后将____。
A、删除文件中原有内容
B、保留文件中原有内容，可在文件尾添加新内容
C、保留文件中原有内容，在文件头开始添加新内容
D、以上均不对
A       B       C       D      
24.以下叙述错误的是
A、双击鼠标可以触发DblClick事件
B、窗体或控件的事件的名称可以由编程人员确定
C、移动鼠标时，会触发MouseMove事件
D、控件的名称可以由编程人员设定
A       B       C       D      
25.有如下程序段
TYPE goods
Num AS INTEGER
Nam AS STRING *13
END TYPE
DIM cloth AS goods
该程序段定义了两个程序成分,它们分别是____。
A、记录类型和记录变量
B、记录类型和数组
C、显示类型和数组
D、记录变量和数组
A       B       C       D      
26.下述语句定义的数组元素有____个。
OPTION BASE 1
DIM A(12,8)
A、117
B、128
C、96
D、20
A       B       C       D      
27.设有以下循环结构
Do
循环体
Loop While<条件>
则以下叙述中错误的是
A、若“条件”是一个为0的常数，则一次也不执行循环体
B、“条件”可以是关系表达式、逻辑表达式或常数
C、循环体中可以使用Exit Do 语句
D、如果“条件”总是为True，则不停地执行循环体
A       B       C       D      
28.在窗体上画一个通用对话框，其Name属性为CommonDialog1（默认值），再画两个命令按钮，Name属性分别为Command1和Command2，然后编写如下过程，试填写空白。
Private Sub Command1_Click()
CommonDialog1.FileName = " "
CommonDialog1.Flags = vbOFileMustExist
CommonDialog1.Filter = _____
CommonDialog1.FilterIndex = 3
CommonDialog1.DialogTitle = "Open File(*.EXE)"
CommonDialog1.Action = 1
If CommonDialog1.FileName = " " Then
MsgBox "No file selectd"
Else
'对所有选择的文件进行处理
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, A$
Print A$
Loop
End If
End Sub
A、All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT
B、All Files|"*.*"|(*.exe)|"*.exe"|(*.TXT)|"*.TXT"
C、"All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT"
D、"All Files|*.*"|"(*.exe)|*.exe"|"(*.TXT)|*.TXT"
A       B       C       D      
29.在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称
为Filel的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”
的标签。编写程序，使得驱动器列表框与目录列表框与文件列表框同步变化，并且在标签
Label1中显示当前文件夹中文件的数量。如图所示。

能够正确实现上述功能的程序是
A)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.ListCount
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
D)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.List
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
A       B       C       D      
30.下列程序的执行结果为____。
A=75
If A>60 Then
I=1
ElseIf A>70 Then
I=2
ElseIf A>80 Then
I=3
ElseIf A>90 Then
I=4
EndIf
Print"I=";I
A、I=1
B、I=2
C、I=3
D、I=4
A       B       C       D      
31.单击窗体时，下列程序代码的执行结果为____。
Private Sub Form_Click( )
Text 2
End Sub
Private Sub Text(x As Integer)
x=x*2+1
If x<6 Then
Call Text(x)
End If
x=x*2+1
Print x;
End Sub
A、23 47
B、11
C、10 22
D、23
A       B       C       D      
32.以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0。
Private Sub Command1_Click( )
Dim A(4,4)
For I=1 To 4
For J=1 To 4
A(I,J)=0
Next J
A(I,I)=1
_____
Next I
For i=1 To 4
For j=1 To 4
Print A(i,j);
Next j
Print
Next i
End Sub
A、什么也不填
B、A(I,5-I)=1
C、A(5-I,I)=1
D、A(5-I,5-I)=1
A       B       C       D      
33.下列程序段的执行结果为____。
Dim M(10)
For I=0 To 9
M(I)=2*I
Next I
Print M(M(3))
A、12
B、6
C、0
D、4
A       B       C       D      
34.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n=1 To 20
If n Mod 3<>0 then m=m+n\3
Next n
print n
End sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是
A、15
B、18
C、21
D、24
A       B       C       D      
35.下列程序段的执行结果为____。
Dim A(4)
N=3
A(1)=1
For K=0 To N-1
For L=1 To K+1
X=K+2-L
A(X)=A(X)+A(X-1)
If KPrint A(X);
Next L
Next K
A、1 2 1
B、1 2 1
C、2 4 6
D、1 3 1
A       B       C       D      
1.用链表表示线性表的优点是____。
输入答案，中间不含空格:
2.结构化程序设计的三种基本逻辑结构为顺序、选择和____ 。
输入答案，中间不含空格:
3.软件工程研究的内容主要包括：____技术和软件工程管理。
输入答案，中间不含空格:
4.实体完整性规则要求主属性____。
输入答案，中间不含空格:
5.E-R数据模型一般在数据库设计的____阶段使用。
输入答案，中间不含空格:
6.
输入答案，中间不含空格:
7.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n=5
f=1
s=0
For i=1 To n
f=f____
s=s+f
Next
Print s
End Sub
该事件过程的功能是计算s=1+1/2!+1/3!+...+1/n!的值。请填空。
输入答案，中间不含空格:
8. 在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下事件过程：

Private Sub Form_Load()
Timer1.Enabled=Falses
Timer1.Interval=____
End Sub

Private Sub Form_Click()
Timer1.Enabled=____
End Sub


Private Sub Timer1_Timer()
Label1.CAption=____
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1分钟变换一次（见图）。请填空。
输入答案，中间不含空格:
9.上一题 第 2 空
输入答案，中间不含空格:
10.上一题 第 3 空
输入答案，中间不含空格:
11.以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_Click()
For i = 1 To 20
x= Int(____*200+100)
If____ = 0 then
Print x
S = S + ____
End If
Next i
Print "Sum = ";S
End Sub
输入答案，中间不含空格:
12.上一题 第 2 空
输入答案，中间不含空格:
13.上一题 第 3 空
输入答案，中间不含空格:
14.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Load()
Text1.Text = "计算机"
End Sub
Private Sub Text1_Change()
Picture1.Print"等级考试"
End Sub
程序运行后，在文本框中显示的内容是____，而在图片框中显示的内容是____。
输入答案，中间不含空格:
15.上一题 第 2 空
输入答案，中间不含空格:

答案
26.下述语句定义的数组元素有____个。
OPTION BASE 1
DIM A(12,8)
A、117
B、128
C、96
D、20
A       B       C       D      
27.设有以下循环结构
Do
循环体
Loop While<条件>
则以下叙述中错误的是
A、若“条件”是一个为0的常数，则一次也不执行循环体
B、“条件”可以是关系表达式、逻辑表达式或常数
C、循环体中可以使用Exit Do 语句
D、如果“条件”总是为True，则不停地执行循环体
A       B       C       D      
28.在窗体上画一个通用对话框，其Name属性为CommonDialog1（默认值），再画两个命令按钮，Name属性分别为Command1和Command2，然后编写如下过程，试填写空白。
Private Sub Command1_Click()
CommonDialog1.FileName = " "
CommonDialog1.Flags = vbOFileMustExist
CommonDialog1.Filter = _____
CommonDialog1.FilterIndex = 3
CommonDialog1.DialogTitle = "Open File(*.EXE)"
CommonDialog1.Action = 1
If CommonDialog1.FileName = " " Then
MsgBox "No file selectd"
Else
'对所有选择的文件进行处理
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, A$
Print A$
Loop
End If
End Sub
A、All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT
B、All Files|"*.*"|(*.exe)|"*.exe"|(*.TXT)|"*.TXT"
C、"All Files|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT"
D、"All Files|*.*"|"(*.exe)|*.exe"|"(*.TXT)|*.TXT"
A       B       C       D      
29.在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称
为Filel的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”
的标签。编写程序，使得驱动器列表框与目录列表框与文件列表框同步变化，并且在标签
Label1中显示当前文件夹中文件的数量。如图所示。

能够正确实现上述功能的程序是
A)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B)Private Sub Dirl_Change()
File1.Path=Dirl.path
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.ListCount
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
D)Private Sub Dirl_Change()
File1.Path=Dirl.path
Label1.Caption=File1.List
End Sub
Private Sub Drive1_Change()
Dirl.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
A       B       C       D      
30.下列程序的执行结果为____。
A=75
If A>60 Then
I=1
ElseIf A>70 Then
I=2
ElseIf A>80 Then
I=3
ElseIf A>90 Then
I=4
EndIf
Print"I=";I
A、I=1
B、I=2
C、I=3
D、I=4
A       B       C       D      

答案
31.单击窗体时，下列程序代码的执行结果为____。
Private Sub Form_Click( )
Text 2
End Sub
Private Sub Text(x As Integer)
x=x*2+1
If x<6 Then
Call Text(x)
End If
x=x*2+1
Print x;
End Sub
A、23 47
B、11
C、10 22
D、23
A       B       C       D      
32.以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0。
Private Sub Command1_Click( )
Dim A(4,4)
For I=1 To 4
For J=1 To 4
A(I,J)=0
Next J
A(I,I)=1
_____
Next I
For i=1 To 4
For j=1 To 4
Print A(i,j);
Next j
Print
Next i
End Sub
A、什么也不填
B、A(I,5-I)=1
C、A(5-I,I)=1
D、A(5-I,5-I)=1
A       B       C       D      
33.下列程序段的执行结果为____。
Dim M(10)
For I=0 To 9
M(I)=2*I
Next I
Print M(M(3))
A、12
B、6
C、0
D、4
A       B       C       D      
34.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n=1 To 20
If n Mod 3<>0 then m=m+n\3
Next n
print n
End sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是
A、15
B、18
C、21
D、24
A       B       C       D      
35.下列程序段的执行结果为____。
Dim A(4)
N=3
A(1)=1
For K=0 To N-1
For L=1 To K+1
X=K+2-L
A(X)=A(X)+A(X-1)
If KPrint A(X);
Next L
Next K
A、1 2 1
B、1 2 1
C、2 4 6
D、1 3 1
A       B       C       D      

答案

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

1.用链表表示线性表的优点是____。
输入答案，中间不含空格:
2.结构化程序设计的三种基本逻辑结构为顺序、选择和____ 。
输入答案，中间不含空格:
3.软件工程研究的内容主要包括：____技术和软件工程管理。
输入答案，中间不含空格:
4.实体完整性规则要求主属性____。
输入答案，中间不含空格:
5.E-R数据模型一般在数据库设计的____阶段使用。
输入答案，中间不含空格:

答案
6.
输入答案，中间不含空格:
7.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n=5
f=1
s=0
For i=1 To n
f=f____
s=s+f
Next
Print s
End Sub
该事件过程的功能是计算s=1+1/2!+1/3!+...+1/n!的值。请填空。
输入答案，中间不含空格:
8. 在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下事件过程：

Private Sub Form_Load()
Timer1.Enabled=Falses
Timer1.Interval=____
End Sub

Private Sub Form_Click()
Timer1.Enabled=____
End Sub


Private Sub Timer1_Timer()
Label1.CAption=____
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1分钟变换一次（见图）。请填空。
输入答案，中间不含空格:
9.上一题 第 2 空
输入答案，中间不含空格:
10.上一题 第 3 空
输入答案，中间不含空格:
打印本文 打印本文  关闭窗口 关闭窗口