2011年3月计算机等级考试二级Access笔试真题(标准参考答案版)

（12）“秒表”窗体中有两个按钮（“开始/停止”按钮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= 【12】

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.Caption=Round(count,1)

End If

count= 【13】

Else

count=0

End If

End Sub

（13）数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定：

“平时成绩”加“考试成绩”大于等于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

【14】

If pscj+kscj>=85 Then

qmzp="优"

ElseIf pscj+kscj<60 Then

qmzp="不及格"

Else

qmzp="合格"

End If

rs.Update

count=count+1

【15】

Loop

rs.Close

db.Close

Set rs=Nothing

Set db=Nothing

MsgBox "学生人数："&count

End Sub

（9）在VBA中要将数值表达式的值转换为字符串，应使用函数 【9】 。

（11）运行下列程序，窗体中的显示结果是：x= 【11】 。

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

（10）运行下列程序，输入如下两行：

Hi,

I am here．

弹出的窗体中的显示结果是 【10】 。

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

（7）在SELECT语句中，HAVING子句必须与 【7】 子句一起使用。

（8）若要在宏中打开某个数据表，应使用的宏命令是 【8】 。

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

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

（2）一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为 【2】 。

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

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

（1）有序线性表能进行二分查找的前提是该线性表必须是 【1】 存储的。

下列程序的功能是返回当前窗体的记录集

Sub GetRecNum()

Dim rs As Object

Set rs=

MsgBox rs.RecordCount

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

为保证程序正确完成上述功能，空白处应填入的语句是

运行下列程序，结果是

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

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

运行下列程序段，结果是

For m=10 to 1 step 0

k=k+3

Next m

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

有三个关系R、S和T如下：

则由关系R和S得到关系T的操作是

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

下面描述中错误的是

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

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

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

下列叙述中正确的是

下列关于栈叙述正确的是