组的元素个数为
A)20 B)24 C)25 D)36
(30)由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行 A)0次 B)1次 C)4次 D)5次
(31)在窗体上有一个命令按钮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
打开窗体运行后，单击命令按钮，文本框中显示的结果是 A)1 B)7 C)17 D)400
(32)在窗体上有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl_Click() Dim y As Integer y = 0 Do
y = InputBox(\
If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y; Loop Until y = 0 End Sub
打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、280，立即窗口上输出的结果是
A)37 55 64 28 19 19 B)10 50 20 C)10 50 20 0 D)37 55 64 28 19
(33)在窗体上有一个命令按钮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
26
、-19、、19 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是 A)2 32 B)12 3 C)2 2 D)12 32
34)在窗体上有一个命令按钮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
打开窗体运行后，单击命令按钮，消息框中输出的结果是
A)1 B)2 C)10 D)11
(35)下列程序段的功能是实现“学生”表中“年龄”字段值加1 Dim Str As String Str=\
Docmd.RunSQL Str
空白处应填入的程序代码是
A)年龄=年龄+1 B)Update学生 Set 年龄=年龄+1 C)Set 年龄=年龄+1 D)Edit 学生 年龄=年龄+l
二、填空题(每空2分，共30分)
请将每一个空的正确答案写在答题卡【l】~【15】序号的横线上，答在试卷上不得分。(1)一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为 【1】 。
(2)设某循环队列的容量为50，如果头指针front=45(指向队头元素的前一位置rear=10(指向队尾元素)，则该循环队列中共有 【2】 个元素。 (3)设二叉树如下：
对该二叉树进行后序遍历的结果为 【3】 。
(4)软件是 【4】 、数据和文档的集合。
(5)有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，
27
)，尾指针)，
则关系模式选课可定义为：选课(学号， 【5】 ，成绩)。
(6)下图所示的窗体上有一个命令按钮(名称为Command1)和一个选项组(名称为Framel)，选项组上显示“Framel”文本的标签控件名称为Labell，若将选项组上显示文本“Frame1”改为汉字“性别”，应使用的语句是【6】。
(7)在当前窗体上，若要实现将焦点移动到指定控件，应使用的宏操作命令是【(8)使用向导创建数据访问页时，在确定分组级别步骤中最多可设置【 (9)在窗体文本框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
(10)在窗体上有一个命令按钮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
打开窗体运行后，单击命令按钮，消息框中输出的结果是【 28
8】个分组字段。 】。
7】。
9】。 10
(11)下列程序的功能是找出被5、7除，余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。 Private Sub Form_Click() Dim Ncount %, n% n = n + 1
If 【11】 Then Debug.Print n
Ncount =Ncount + 1 End If
Loop Until Ncont = 5
End Sub
(12)以下程序的功能是在立即窗口中输出的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。 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 = 【12】 End If
k = 【13】 Loop
If b = True Then t = t + 1
Debug.Print i End If Next i
Debug.Print \
End Sub
(13)数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加功能是按照上述规定调整每位职工的工资，语句，使程序可以完成指定的功能。 Private Sub Command5_Click() Dim ws As DAO.Workspace Dim db As DAO.Database Dim rs As DAO.Recordset Dim gz As DAO.Field
100到200之间所有的素数，并统计输出素数 10%，其他人员增加29
5%。下列程序的 并显示所涨工资之总和。请在空白处填入适当的 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 【14】 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 【15】
rs.MoveNext Loop rs.Close db.Close
Set rs = Nothing Set db = Nothing
MsgBox \涨工资总计:\End Sub
2010.3月ACCESS笔试答案
一、选择题（70分） （1） （6） A (2) B (7) D (3) A (8) B (4) D (9) A (5) C C (10) A （11） D (12) C (13) C (14) C (15) A （16） D (17) C (18) D (19) B (20) D （21） A (22) C (23) D (24) D (25) B （26） C (27) D (28) B (29) B (30) A （31） A (32) D (33) A (34) B (35) B
二、填空题（30分）
（1）A,B,C,D,E,F,5,4,3,2,1 （2）15 （3）EDBGHFCA （4）程序
（5）课程 （6）Label1.Caption=”性别”
30