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

下列叙述中正确的是

某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为（假设根结点在第1层）

在软件开发中，需求分析阶段产生的主要文档是

结构化程序所要求的基本结构不包括

下面描述中错误的是

负责数据库中查询操作的数据库语言是

一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是

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

定义无符号整数类为UInt,下面可以作为类UInt实例化值的是

在学生表中要查找所有年龄大于30岁姓王的男同学，应该采用的关系运算是

下列可以建立索引的数据类型是

下列关于字段属性的叙述中，正确的是

查询“书名”字段中包含“等级考试”字样的记录，应该使用的条件是

在Access中对表进行“筛选”操作的结果是

在学生表中使用“照片”字段存放相片，当使用向导为该表创建窗体时，照片字段使用的默认控件是

下列表达式计算结果为日期类型的是

若要将“产品”表中所有供货商是“ABC”的产品单价下调50，则正确的SQL语句是

若查询的设计如下，则查询的功能是
　　

在教师信息输入窗体中,为职称字段提供“教授”、“副教授”、“讲师”等选项供用户直接选择，应使用的控件是

在报表中要显示格式为“共N页，第N页”的页码,正确的页码格式设置是

某窗体上有一个命令按钮,要求单击该按钮后调用宏打开应用程序Word，则设计该宏时应选择的宏命令是

下列表达式中,能正确表示条件“x和y都是奇数”的是

若在窗体设计过程中，命令按钮Command0的事件属性设置如下图所示，则含义是
　　

若窗体Frm1中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为

在VBA中，能自动检查出来的错误是

下列给出的选项中，非法的变量名是

如果在被调用的过程中改变了形参变量的值；但又不影响实参变量本身，这种参数传递方式称为

表达式“B=INT(A+0.5)”的功能是

VBA语句“Dim NewArray(10) as Integer”的含义是

运行下列程序段，结果是
For m=10 to 1 step 0
k=k+3
Next m

运行下列程序，结果是
Private Sub Command32_Click()
f0=1:f1=1:k=1
Do While k<=5
f=f0+f1
f0=f1
f1=f
k=k+1
Loop
MsgBox "f="&f
End Sub

有如下事件程序，运行该程序后输出结果是
Private Sub Command33_Click()
Dim x As Integer,y As Integer
x=1:y=0
Do Until y<=25
y=y+x*x
x=x+1
Loop
MsgBox "x="&x&",y="&y
End Sub

下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39)
Private Sub Command34_Click()
t=0
m=1
sum=0
Do
t=t+m
sum=sum+t
m=______
Loop While m<=39
MsgBox "Sum="&sum
End Sub
为保证程序正确完成上述功能，空白处应填入的语句是

下列程序的功能是返回当前窗体的记录集
Sub GetRecNum()
Dim rs As Object
Set rs=______
MsgBox rs.RecordCount
End Sub
为保证程序输出记录集（窗体记录源）的记录数，空白处应填入的语句是

有序线性表能进行二分查找的前提是该线性表必须是＿＿ 存储的。

一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为＿＿ 。

对软件设计的最小单位（模块或程序单元）进行的测试通常称为＿＿  测试。

实体完整性约束要求关系数据库中元组的＿＿ 属性值不能为空。

在关系A(S,SN,D)和关系B(D,CN,NM)中，A的主关键字是S，B的主关键字是D，则称＿＿ 是关系A的外码。

在Access查询的条件表达式中要表示任意单个字符，应使用通配符＿＿。

在SELECT语句中，HAVING子句必须与＿＿  子句一起使用。

若要在宏中打开某个数据表，应使用的宏命令是＿＿ 。

在VBA中要将数值表达式的值转换为字符串，应使用函数＿＿ 。

运行下列程序，输入如下两行：
Hi,
I am here．
弹出的窗体中的显示结果是＿＿ 。
Private Sub Command11_Click()
Dim abc As String, sum As string
sum=""
Do
abc=InputBox("输入abc")
If Right(abc,1)="." Then Exit Do
sum=sum+abc
Loop
MsgBox sum
End Sub

运行下列程序，窗体中的显示结果是：x= ＿＿ 。
Option Compare Database
Dim x As Integer
Private Sub Form_Load()
x=3
End Sub
Private Sub Command11_Click()
Static a As Integer
Dim b As Integer
b=x^2
fun1 x,b
fun1 x,b
MsgBox "x="&x
End Sub
Sub fun1(ByRef y As Integer,ByVal z As Integer）
y=y+z
z=y-z
End Sub

“秒表”窗体中有两个按钮（“开始/停止”按钮bOK,“暂停/继续”按钮bPus）；一个显示计时的标签1Num；窗体的“计时器间隔”设为100计时精度为0.1秒。
要求：打开窗体如图1所示；第一次单击“开始婷止”按钮，从0开始滚动显示计时（见图2)；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。
 　　
相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。
Option Compare Database
Dim flag,pause As Boolean
Private Sub bOK Click()
flag= ＿＿
Me!bOK.Enabled=True
Me!bPus.Enabled=flag
End Sub
Private Sub bPus_Click()
pause=Not pause
Me!bOK.Enabled=Not Me!bOK.Enabled
End Sub
Private Sub Form Open(Cancel As Integer)
flag=False
pause=False
Me!bOK.Enabled=True
Me!bPus.Enabled=False
End Sub
Private Sub Form Timer()
Static count As Single
If flag=True Then
If pause=False Then
Me!1Num.Capti_dj=Round(count,1)
End If
count= ＿＿
Else
count=0
End If
End Sub

数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定：
“平时成绩”加“考试成绩”大于等于85分，则期末总评为“优”，“平时成绩”加“考试成绩”小于60分，则期末总评为“不及格”，其他情况期末总评为“合格”。
下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command0_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pscj,kscj,qmzp As DAO.Field
Dim count As Integer
Set db=CurrentDb()
Set rs=db.OpenRecordset("学生成绩表")
Set pscj=rs.Fields("平时成绩")
Set kscj=rs.Fields("考试成绩")
Set qmzp=rs.Fields("期末总评")
count=0
Do While Not rs.EOF
＿＿
If pscj+kscj>=85 Then
qmzp="优"
ElseIf pscj+kscj<60 Then
qmzp="不及格"
Else
qmzp="合格"
End If
rs.Update
count=count+1
＿＿
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
MsgBox "学生人数："&count
End Sub