2010年3月二级ACCESS试卷及参考答案(1) 下载本文

Private Sub Commandl_Click()

Dim x As Integer, y As Integer

x =12: y= 32 Call Proc(x,y) End Sub

Public Sub Proc{h As Integer, ByVal m As Integer} n= n Mod 10 m= m Mod 10

End Sub

打开窗体运行后,单击命令按钮,立即窗口上输出的结果是( A)2 32 C)2 2

Private Sub Commandl_Click( )

Dim dl As Date Dim d2 As Date dl = #12/25/2009# d2 = #1/5/2010#

MsgBox DateDiff(\

End Sub

打开窗体运行后,单击命令按钮,立即窗口上输出的结果是( A)1 B)2 C)10 D)11

(35)下列程序段的功能是实现“学生”表中“年龄”字段值加 1

Dim Str As String

Str=\Docmd. RunSQL Str

空白处应填入的程序代码是(

)。

)。

B)12 3 D)12 32

)。

(34)在窗体上有一个命令按钮 Commandl,编写事件代码如下:

B)Update 学生 Set 年龄=年龄+1 D)Edit 学生 Set 年龄=年龄+1

A)年龄=年龄+1 C)Set 年龄=年龄+1

二、填空题(每空 2 分,共 30 分)

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

则元素退队的顺序为 【1】 。 (2)设某循环队列的容量为 50,如果头指针front=-45(指向队头元素的前一位置),尾指针rear=l0

(指向队尾元素),则该循环队列中共有 【2】 个元素。 (3)设二叉树如下:

B F D A C

E G H 2010 年 3 月笔试真卷及答案详解 第 5 页(共 12 页)

对该二叉树进行后序遍历的结果为 【3】 。 (4)软件是 【4】 、数据和文档的集合。

(5)有一个学生选课的关系,其中学生的关系模式为:学生(学号,姓名,班级,年龄),

课程的关系模式为:课程(课号,课程名,学时),其中两个关系模式的键分别是学号和课号, 则关系模式选课可定义为:选课(学号, 【5】 ,成绩)。

(6)下图所示的窗体上有一个命令按钮(名称为Commandl)和一个选项组(名称为Framel),

选项组上显示“Framel”文本的标签控件名称为Labell,若将选项组上显示文本“Framel” 改为汉字“性别”,应使用的语句是 【6】 。

(7)在当前窗体上,若要实现将焦点移动到指定控件,应使用的宏操作命令是 【7】 。 (8)使用向导创建数据访问页时,在确定分组级别步骤中最多可设置 【8】 个分组字段 (9)在窗体文本框Textl中输入“456AbC”后,立即窗口上输出的结果是 【9】 。

Private Sub Text1_KeyPress{KeyAscii As Integer}

Select Case KeyAscii 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

Private Sub Commandl_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 K=k+p(i) = a(i *i) Next i

For i=1 To 3

2010 年 3 月笔试真卷及答案详解 第 6 页(共 12 页)

(10)在窗体上有一个命令按钮 Commandl,编写事件代码如下:

K= k+p(i)*2 Next i MsgBox k End Sub

打开窗体运行后,单击命令按钮,消息框中输出的结果是 【10】 。

(11)下列程序的功能是找出被 5、7 除,余数为 1 的最小的 5 个正整数。请在程序空白处填入

适当的语句,使程序可以完成指定的功能。

Private Sub Commandl_Click( ) Dim Ncount% ,n% Ncount =0

n=1 Do n=n+1 If

【11】 Then Debug. Print n Ncount = Ncount+1 End If

Loop Until Ncount End Sub

(12)以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数,并统计输出素数的个

数。请在程序空白处填入适当的语句,使程序可以完成指定的功能。

Private Sub Commandl_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

b = t+1 Debug.Print i End If Next i

Debug.Print \End Sub

2010 年 3 月笔试真卷及答案详解 第 7 页(共 12 页)

(13)数据库中有工资表,包括“姓名”、“工资”和“职称”等字段,还要对不同职称的职工

增加工资,规定教授职称增加 15%,副教授职称增加 10%,其他人员增加 5%,下列程 序的功能是按照上述规定调整每位职工的工资,并显示所涨工资的总和,请在空白处填 入适当的语句,使程序可以完成指定的功能。

Private Sub Command5_Click( )

Dim ws As DAO. Workspace Dim db As DAO. Database Dim db 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

【14】

gz=gz+gz*rate 【15】 rs.MoveNext Loop rs. Close db.Close Set rs = Nothing Set db = Nothing

MsgBox \涨工资总计:\End Sub

2010 年 3 月笔试真卷及答案详解 第 8 页(共 12 页)