单选题
一、选择题（每小题1分，共40小题，共40分）
5
下列程序段的功能是实现"学生"表中"年龄"字段值加1：
Dim Str As String (共35题．
Str="____________"
Docmd.RunSQL Str
空白处应填入的程序代码是
Dim Str As String (共35题．
Str="____________"
Docmd.RunSQL Str
空白处应填入的程序代码是
分值: 1.0分查看题目解析 >
7
在窗体中添加了一个文本框和一个命令按钮(名称分别为tText和bCommand．，并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为"计算机等级考试"。以下能实现上述操作的事件过程是
分值: 1.0分查看题目解析 >
12
在已建窗体中有一命令按钮(名为Command1．，该按钮的单击事件对应的VBA代码为：
Private Sub Command1_Click(．
subT.Form.RecordSource = "select * from 雇员"
End Sub
单击该按钮实现的功能是
Private Sub Command1_Click(．
subT.Form.RecordSource = "select * from 雇员"
End Sub
单击该按钮实现的功能是
分值: 1.0分查看题目解析 >
13
以下是宏m的操作序列设计
条件操作序列操作参数
MsgBox消息为"AA"
[tt]>1 MsgBox消息为"BB"
… MsgBox消息为"CC"
现设置宏m为窗体"fTest"上名为"bTest"命令按钮的单击事件属性，打开窗体"fTest"运行后，在窗体上名为"tt"的文本框内输入数字1，然后单击命令按钮bTest，则
条件操作序列操作参数
MsgBox消息为"AA"
[tt]>1 MsgBox消息为"BB"
… MsgBox消息为"CC"
现设置宏m为窗体"fTest"上名为"bTest"命令按钮的单击事件属性，打开窗体"fTest"运行后，在窗体上名为"tt"的文本框内输入数字1，然后单击命令按钮bTest，则
分值: 1.0分查看题目解析 >
14
设有如下程序
Private Sub Command1_Click( ．
Dim sum As Double, x As Double
sum = 0
n = 0
For i=1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是
Private Sub Command1_Click( ．
Dim sum As Double, x As Double
sum = 0
n = 0
For i=1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是
分值: 1.0分查看题目解析 >
15
设有如下程序
Private Sub Command1_Click( ．
Dim sum As Double, x As Double
sum = 0
n = 0
For i=1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是
Private Sub Command1_Click( ．
Dim sum As Double, x As Double
sum = 0
n = 0
For i=1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是
分值: 1.0分查看题目解析 >
20
在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click(．
Dim i, j, x
For i = 1 To 20 Step 2
x = 0
For j = i To 20 Step 3
x = x + 1
Next j
Next i
Text1.Value = Str(x．
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是
Private Sub Command1_Click(．
Dim i, j, x
For i = 1 To 20 Step 2
x = 0
For j = i To 20 Step 3
x = x + 1
Next j
Next i
Text1.Value = Str(x．
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是
分值: 1.0分查看题目解析 >
22
建立一个基于"学生"表的查询，要查找"出生日期"(数据类型为日期/时间型)在1980-06-06和1980-07-06间的学生，在"出生日期"对应列的"条件"行中应输入的表达式是
分值: 1.0分查看题目解析 >
24
在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_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
打开窗体运行后，单击命令按钮，文本框Text1输出的结果是
Private Sub Command1_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
打开窗体运行后，单击命令按钮，文本框Text1输出的结果是
分值: 1.0分查看题目解析 >
27
假定有如下的Sub过程：
sub sfun(x As Single, y As Single．
t=x
x=t/y
y=t Mod y
End Sub
在窗体上添加一个命令按钮(名为Command1．，然后编写如下事件过程：
Private Sub Command1_Click(．
Dim a as single
Dim b as single
a=5
b=4
sfun(a,b．
MsgBox a & chr(10．+chr(13． & b
End Sub
打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为
sub sfun(x As Single, y As Single．
t=x
x=t/y
y=t Mod y
End Sub
在窗体上添加一个命令按钮(名为Command1．，然后编写如下事件过程：
Private Sub Command1_Click(．
Dim a as single
Dim b as single
a=5
b=4
sfun(a,b．
MsgBox a & chr(10．+chr(13． & b
End Sub
打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为
分值: 1.0分查看题目解析 >
30
在Access中已建立了"工资"表，表中包括"职工号"、"所在单位"、"基本工资"和"应发工资"等字段，如果要按单位统计应发工资总数，那么在查询设计视图的"所在单位"的"总计"行和"应发工资"的"总计"行中分别选择的是
分值: 1.0分查看题目解析 >
31
在窗体中有一个命令按钮run35，对应的事件代码如下：
Private Sub run35_Enter( ．
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i= 1 To 10
num = InputBox("请输入数据:", "输入",1．
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
运行以上事件所完成的功能是
Private Sub run35_Enter( ．
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i= 1 To 10
num = InputBox("请输入数据:", "输入",1．
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
运行以上事件所完成的功能是
分值: 1.0分查看题目解析 >
问答题
二、基本操作题（共18分）
41
在考生文件夹中有一个“Accl．radb”数据库。
(1)在“订单”表的“订单ID”和“客户”字段之间添加“产品ID”和“数量”字其中，“产品ID”字段的类型为“文本”，字段长度为“8”“数量”字段的类型为“数字”，字段大小为“整型”。
(2)在“订单”表中添加如下数据．
(3)设置“供应商”表到“订单”表的关系为“一对多”，“实施参照完整性”。
(1)在“订单”表的“订单ID”和“客户”字段之间添加“产品ID”和“数量”字其中，“产品ID”字段的类型为“文本”，字段长度为“8”“数量”字段的类型为“数字”，字段大小为“整型”。
(2)在“订单”表中添加如下数据．
| 订单ID | 产品ID | 数量 |
| 0001 | S0001 10 | |
| 0002 | S0008 40 | |
| 0003 | S0011 | 50- |
| ● 0004 | S0005 | 10 |
分值: 18.0分查看题目解析 >
问答题
三、简单应用题（共24分）
42
在考生文件夹下存在…个数据库文件“Aec2．mdb”．其中已经设计好两个关联表对象“职工”和“部门”及表对象“T1”和“T2”。试按以下要求完成设计。
(1)以表对象“职工”为数据源，创建一个查询“查询1”，查找并显示年龄大于等于25的职工的“工号”、“姓名”、“性别”、“年龄”和“职务”5个字段内容。
(2)以表对象“职工”和“部门”为数据源，创建一个查询“查询2”，按照部门名称查找职工信息．显示职工的“工号”、“姓名”及“入职时间”3个字段的内容。要求显示参数提示信息为“请输入职工所属部门名称”。查询结果如图1所示。
(3)创建一个查询“查询3”．在表“T2”中“工号”字段值的前面均增加“ST”字符。查询结果如图2所示。
(4)创建一个查询“查询4”，删除表对象“T1”中所有姓含有“勇”字的记录。查询结果如图3所示。
(1)以表对象“职工”为数据源，创建一个查询“查询1”，查找并显示年龄大于等于25的职工的“工号”、“姓名”、“性别”、“年龄”和“职务”5个字段内容。
(2)以表对象“职工”和“部门”为数据源，创建一个查询“查询2”，按照部门名称查找职工信息．显示职工的“工号”、“姓名”及“入职时间”3个字段的内容。要求显示参数提示信息为“请输入职工所属部门名称”。查询结果如图1所示。
(3)创建一个查询“查询3”．在表“T2”中“工号”字段值的前面均增加“ST”字符。查询结果如图2所示。
(4)创建一个查询“查询4”，删除表对象“T1”中所有姓含有“勇”字的记录。查询结果如图3所示。
分值: 24.0分查看题目解析 >
问答题
四、综合应用题（共18分）
43
在考生文件夹下有一个“Acc3．mdb”数据库。
(1)以“成绩表”为数据源，创建“成绩登录”窗体，如图3所示。用文本框显示“选课ID”和“成绩”字段。用组合框显示“学号”和“课程编号”字段。
(2)在“成绩登录”窗体中添加页眉标签“成绩登录系统”属性设置为“宋体”、“12号字”、“加粗”并“居中”。在窗体中添加“添加记录”和“保存记录”按钮，进行添加记录和保存记录操作。设置窗体宽度为“7．698cm”，“弹出方式”。
(3)以“课程”表为数据源自动创建窗体“课程”。
(4)在“课程”窗体中添加“课程信息”页眉标签，标签文字字体为“宋体”、“l2号”、“加粗”、“居中显示”。在页脚添加“下一记录”、“前一记录”、“添加记录”、“保存记录”和“关闭窗体”。设置窗体为“弹出方式”。结果如图4所示。
(1)以“成绩表”为数据源，创建“成绩登录”窗体，如图3所示。用文本框显示“选课ID”和“成绩”字段。用组合框显示“学号”和“课程编号”字段。
(2)在“成绩登录”窗体中添加页眉标签“成绩登录系统”属性设置为“宋体”、“12号字”、“加粗”并“居中”。在窗体中添加“添加记录”和“保存记录”按钮，进行添加记录和保存记录操作。设置窗体宽度为“7．698cm”，“弹出方式”。
(3)以“课程”表为数据源自动创建窗体“课程”。
(4)在“课程”窗体中添加“课程信息”页眉标签，标签文字字体为“宋体”、“l2号”、“加粗”、“居中显示”。在页脚添加“下一记录”、“前一记录”、“添加记录”、“保存记录”和“关闭窗体”。设置窗体为“弹出方式”。结果如图4所示。
分值: 18.0分查看题目解析 >