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

算法的时间复杂度是指

软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是

软件(程序)调试的任务是

数据流程图(DFD图)是

软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于

数据库管理系统中负责数据模式定义的语言是

在学生管理的关系数据库中，存取一个学生信息的数据单位是

数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的

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

下列关于关系数据库中数据表的描述，正确的是

下列对数据输入无法起到约束作用的是

Access中，设置为主键的字段

输入掩码字符“&”的含义是

在Access中，如果不想显示数据表中的某些字段，可以使用的命令是

通配符“#”的含义是

若要求在文本框中输入文本时达到密码“*”的显示效果，则应该设置的属性是

假设“公司”表中有编号、名称、法人等字段，查找公司名称中有“网络”二字的公司信息，正确的命令是

利用对话框提示用户输入查询条件，这样的查询属于

在SQL查询中“GROUP BY”的含义是

在调试VBA程序时，能自动被检查出来的错误是

为窗体或报表的控件设置属性值的正确宏操作命令是

在已建窗体中有一命令按钮(名为Commandl)，该按钮的单击事件对应的VBA代码为：
Private Sub Commandl_Click()
subT.Form.RecordSource = "select * from雇员"
End Sub
单击该按钮实现的功能是

在报表设计过程中，不适合添加的控件是

下列关于对象“更新前”事件的叙述中，正确的是

下列属于通知或警告用户的命令是

能够实现从指定记录集里检索特定字段值的函数是

如果X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是

在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为

由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行

在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：
Private Sub Command1_Click()
Dim i,j,x
For i = 1 To 20 step 2
x = 0
For j = To 20 step 3
x = x + 1
Next j
Next i
Textl.Value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是

在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Commandl_Click()
Dim y As Integer
y = 0
Do
y = InputBox("y=")
If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y;
Loop Until y = 0
End Sub
打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是

在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 12: y = 32
Call Proc(x, y)
Debug.Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n = n Mod 10
m = m Mod 10
End Sub
打开窗体运行后，单击命令按钮，立即窗口上输出的结果是

在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Commandl_Click()
Dim d1 As Date
Dim d2 As Date
dl = #12/25/2009#
d2 = #1/5/2010#
MsgBox DateDiff(” ww”, d1, d2)
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是

下列程序段的功能是实现“学生”表中“年龄”字段值加1
Dim Str As String
Str=" "
Docmd.RunSQL Str
空白处应填入的程序代码是

一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为＿＿ 。

设某循环队列的容量为50，如果头指针front=45(指向队头元素的前一位置)，尾指针rear=10(指向队尾元素)，则该循环队列中共有＿＿个元素。

设二叉树如下：
 　　
对该二叉树进行后序遍历的结果为＿＿ 。

软件是＿＿ 、数据和文档的集合。

有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号，＿＿  ，成绩)。

下图所示的窗体上有一个命令按钮(名称为Command1)和一个选项组(名称为Framel)，选项组上显示“Framel”文本的标签控件名称为Labell，若将选项组上显示文本“Frame1”改为汉字“性别”，应使用的语句是＿＿。
　　

在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是＿＿。

使用向导创建数据访问页时，在确定分组级别步骤中最多可设置＿＿个分组字段。

在窗体文本框Text l中输入“456AbC”后，立即窗口上输出的结果是＿＿。
Private Sub Textl_KeyPress(KeyAscii As Integer)
Select Case DeyAscii
Case 97 To 122
Debug.Print Ucase(Chr(KeyAscii));
Case 65 To 90
Debug.Print Lcase(Chr(KeyAscii));
Case 48 To 57
Debug.Print Chr(KeyAscii);
Case Else
KeyAscii = 0
End Select
End Sub

在窗体上有一个命令按钮Commandl，编写事件代码如下：
Private Sub Command1_Click()
Dim a(10), p(3) As Integer
k = 5
For i = 1 To 10
a(i) = i * i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) *2
Next i
MsgBox k
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是＿＿。

下列程序的功能是找出被5、7除，余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Form_Click()
Dim Ncount %, n%
n = n + 1
If ＿＿ Then
Debug.Print n
Ncount =Ncount + 1
End If
Loop Until Ncont = 5
End Sub

以下程序的功能是在立即窗口中输出100到200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command2_Click()
Dim i%, j%, k%, t % ‘t 为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k = 2
j = Int(Sqr(i))
Do While k <= j And b
If I Mod k = 0 Then
b = ＿＿
End If
k = ＿＿
Loop
If b = True Then
t = t + 1
Debug.Print i
End If
Next i
Debug.Print "t="; t
End Sub

数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资之总和。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command5_Click()
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim gz As DAO.Field
Dim zc As DAO.Field
Dim sum As Currency
Dim rate As Single
Set db = CurrentDb()
Set rs = db.OpenRecordset("工资表")
Set gz = rs.Fields("工资")
Set zc = rs.Fields("职称")
sum = 0
Do While Not ＿＿
rs.Edit
Select Case zc
Case Is = "教授"
rate = 0.15
Case Is = "副教授"
rate = 0.1
Case Else
rate = 0.05
End Select
sum = sum + gz * rate
gz = gz + gz * rate
＿＿
rs.MoveNext
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
MsgBox "涨工资总计:" & sum
End Sub