2010年9月全国计算机等级考试二级笔试试卷Access数据库程序设计

下列叙述中正确的是

软件测试的目的是

下面描述中，不属于软件危机表现的是

软件生命周期是指

面向对象方法中，继承是指

层次型、网状型和关系型数据库划分原则是

一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员、与实体计算机之间的联系是

数据库设计中反映用户对数据要求的模式是

有三个关系R、S和T如下：
 　　
则由关系R和S得到关系T的操作是

在Access中要显示“教师表”中姓名和职称的信息，应采用的关系运算是

学校图书馆规定，一名旁听生同时只能借一本书，一名在校生同时可以借5本书，一名教师同时可以借10本书，在这种情况一F,读者与图书之间形成了借阅关系，这种借阅关系是

Access数据库最基础的对象是

下列关于货币数据类型的叙述中，错误的是

若将文本型字段的输入掩码设置为“####-######”,则正确的输入数据是

如果在查询条件中使用通配符“[]”,其含义是

在SQL语言的SELECT语句中，用于实现选择运算的子句是

在数据表视图中，不能进行的操作是

下列表达式计算结果为数值类型的是

如果在文本框内输入数据后，按键或按键，输入焦点可立即移至下一指定文本框，应设置

在成绩中要查找成绩≥80且成绩≤90的学生，正确的条件表达式是

“学生表”中有“学号”、“姓名”、“性别”和“入学成绩”等字段。执行如下SQL命令后的结果是
Select avg（入学成绩）From学生表Group by性别

若在“销售总数”窗体中有“订货总数”文本框控件，能够正确引用控件值的是

因修改文本框中的数据而触发的事件是

在报表中，要计算“数学”字段的最低分，应将控件的“控件来源”属性设置为

要将一个数字字符串转换成对应的数值，应使用的函数是

下列变量名中，合法的是

若变量i的初值为8,则下列循环语句中循环体的执行次数为
Do While i<=17
i=i+2
Loop

InputBox函数的返回值类型是

下列能够交换变量X和Y值的程序段是

窗体中有命令按钮Commandl,事件过程如下：
Public Function f（x As Integer） As Integer
Dim y As Integer
x=20
y=2
f=x*y
End Function
Private Sub Commandl_Click（）
Dim y As Integer
Static x As Integer
x=10
y=5
y=f（x）
Debug .Print x;y
End Sub
运行程序，单击命令按钮，则立即窗口中显示的内容是

窗体中有命令按钮Commandl和文本框Text1,事件过程如下：
Function result（ByVal x As Integer）As Boolean
If ×Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Commandl_Click（）
x=Val（InputBox（“请输入一个整数”））
If______ Then
Text1=Str（x）&“是偶数.”
Else
Text1=Str（x）&“是奇数.”
End  If
End Sub
运行程序，单击命令按钮，输入19,在Text1中会显示“19是奇数”.那么在程序的空白处应填写

窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下：
Private Sub Commandl_Click（  ）
For  i=1  To  4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1 .Value=Str（x）
End Sub
运行以上事件过程，文本框中的输出是

窗体中有命令按钮run34,对应的事件代码如下：
Private Sub run34_Enter（）
Dim num As Integer,a As Integer,b As Integer,i As Integer
For i=1 To 10
num=InputBox（“请输入数据：”,“输入”）
If Int（num/2）=num/2 Then
a=a+1
Else
b=b+1
End If
Next i
MsgBox（“运行结果：a=”&Str（a）&“,b=”&Str（b））
End Sub
运行以上事件过程，所完成的功能是

运行下列程序，输入数据8, 9, 3, 0后，窗体中显示结果是
Private Sub Form _click（）
Dim sum AsInteger,m As Integer
sum=0
Do
m=InputBox（“输入m”）
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub

一个栈的初始状态为空。首先将元素5,4,3,2,1依次入栈，然后退栈一次，再将元素A,B,C,D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素)的顺序为＿＿。

在长度为n的线性表中，寻找最大项至少需要比较＿＿次。

一棵二叉树有10个度为1的结点，7个度为2的结点，则该二义树共有＿＿个结点。

仅由顺序、选择（分支）和重复（循环）结构构成的程序是＿＿程序。

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

如果要求在执行查询时通过输入的学号查询学生信息，可以采用＿＿查询。

Access中产生的数据访问页会保存在独立文件中，其文件格式是＿＿。

可以通过多种方法执行宏：在其他宏中调用该宏；在VBA程序中调用该宏；＿＿发生时触发该宏。

在VBA中要判断一个字段的值是否为Null,应该使用的函数是＿＿。

一下列程序的功能是求方程：x2十y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。
Private Sub Commandl_Click（）
Dim × as integer,y as integer
For x= -34 To 34
For y= -34 To 34
If＿＿Then
Debug .Print x,y
End If
Next y
Next x
End Sub

下列程序的功能是求算式：1+1/2 ! +1/3!+1/4!+……前10项的和（其中n!的含义是n的阶乘）。请在空白处填入适当的语句，使程序完成指定的功能。
Private Sub Commandl_Click（）
Dim i as integer,s as single,a as single
a=1:s=0
For i=1 To 10
a=＿＿
s=s+a
Next i
Debug .Print “1+1/2!十1/3!+. …=”;s
End Sub

在窗体中有一个名为Command12的命令按钮，Click事件功能是：接收从键盘输入的10个大于0的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Command12_Click（）
max=0
maxn=0
for i=1 To 10
num=Val（InputBox（‘,请输入第“&i&”个大于0的整数：“））
If＿＿Then
max=num
maxn=＿＿
End If
Next i
MsgBox（”最大值为第“&maxn&”个输入的“&max）
End Sub

数据库的”职I基本情况表“有”姓名“和”职称“等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Commands_Click（）
Dim db As DAO .Database
Dim rs As DAO .Recordset
Dim zc As DAO .Field
Dim Countl As Integer,Count2 As Integer,Count3 As Integer
Set db=CurrentDb（）
Set rs=db .OpenRecordset（”职工基本情况表“）
Set zc=rs .Fields（”职称“）
Countl=0 : Count2=0 : Count3=0
Do While Not＿＿
Select Case zc
Case Is=”教授“
Countl=Countl+1
CaseIs=”副教授“
Count2=Count2+1
Case Else
Courit3=Count3+1
End Select
＿＿
Loop
rs .Close
Set rs=Nothing
Set db=Nothing
MsgBox”教授：“&Count1&”,副教授：“&Count2 &”,其他：“&count3
End Sub