必胜高考网 > 计算机类 > 计算机等级 > 资讯 >

2014年9月计算机二级Access考前预测试卷(2)

时间: 家辉2 资讯

  (31)在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:

  Public x As Integer

  Private Sub Command1_Click()

  x=10

  Call s1

  Call s2

  MsgBox x

  End Sub

  Private Sub s1()

  x=x+20

  End Sub

  Private Sub s2()

  Dim x As Integer

  x=x+20

  End Sub

  窗体打开运行后,单击命令按钮,则消息框的输出结果为

  A)10 B)30 C)40 D)50

  (32)下列过程的功能是:通过对象变量返回当前窗体的Recordset属性记录集引用,消息框中输出记录集的记录(即窗体记录源)个数。

  Sub GetRecNum()

  Dim rs As Object

  Set rs = Me.Recordset

  MsgBox ______

  End Sub

  程序空白处应填写的是

  A)Count

  B)rs.Count

  C)RecordCount

  D)rs.RecordCount

  (33)在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:

  Private Sub Command1_Click()

  Dim a(10,10)

  For m=2 To 4

  For n=4 To 5

  a(m,n)=m*n

  Next n

  Next m

  MsgBox a(2,5)+a(3,4)+a(4,5)

  End Sub

  窗体打开运行后,单击命令按钮,则消息框的输出结果是

  A)22 B)32 C)42 D)52

  (34)设有如下程序

  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循环来计算一个表达式的值,这个表达式是

  A)1+1/2+2/3+3/4+4/5

  B)1+1/2+1/3+1/4+1/5

  C)1/2+2/3+3/4+4/5

  D)1/2+1/3+1/4+1/5

  (35)在窗体中使用一个文本框(名为n)接受输入的值,有一个命令按钮run,事件代码如下:

  Private Sub run_Click( )

  result = ""

  For i= 1 To Me!n

  For j = 1 To Me!n

  result = result + "*"

  Next j

  result = result + Chr(13) + Chr(10)

  Next i

  MsgBox result

  End Sub

  打开窗体后,如果通过文本框输入的值为4,单击命令按钮后输出的图形是

  A)* * * *

  * * * *

  * * * *

  * * * *

  B) *

  * * *

  * * * * *

  * * * * * * *

  C) * * * *

  * * * * * *

  * * * * * * * *

  * * * * * * * * * *

  D) * * * *

  * * * *

  * * * *

  * * * *

  二、填空题

  请将每一个空的正确答案写在答题卡序号的横线上,答在试卷上不给分。

  (1)栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是【1】。

  (2)在最坏情况下,堆排序需要比较的次数为【2】。

  (3)已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是【3】。

  (4)从工程管理角度,软件设计一般分为两步完成,它们是【4】。

  (5)用二维表的形式来表示实体之间联系的数据模型叫做【5】。

  (6)在学生成绩表中,如果需要根据输入的学生姓名查找学生的成绩,需要使用的是 【6】 查询。

  (7)数据访问页有两种视图,它们是页视图和 【7】 视图。

  (8)如果希望按满足指定条件执行宏中的一个或多个操作,这类宏称为 【8】 。

  (9)某窗体中有一命令按钮,在窗体视图中单击此命令按钮打开一个报表,需要执行的宏操作是 【9】 。

  (10)执行下面的程序,消息框里显示的结果是 【10】 。

  Private Sub Form_Click()

  Dim Str As String,k As Integer

  Str="ab"

  For k=Len(Str) To 1 Step -1

  Str=Str & Chr(Asc(Mid(Str,k,1))+k)

  Next k

  MsgBox Str

  End Sub

  (11)在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为Text1),然后编写如下事件过程:

  Private Sub Command1_Click()

  Dim x As Integer, y As Integer, z As Integer

  x=5:y=7:z=0

  Me!Text1=""

  Call p1(x,y,z)

  Me!Text1=z

  End Sub

  Sub p1(a As Integer, b As Integer, c As Integer)

  c=a+b

  End Sub

  打开窗体运行后,单击命令按钮,文本框中显示的内容是 【11】 。

  (12)窗体中有两个命令按钮:"显示"(控件名为cmdDisplay)和"测试"(控件名为cmdTest)。以下事件过程的功能是:单击"测试"按钮时,窗体弹出一个消息框,如果单击消息框的"确定"按钮,隐藏窗体上的"显示"命令按钮;单击"取消"按钮关闭窗体。请按照功能要求,将程序补充完整。

  Private Sub cmdTest_Click()

  Answer = 【12】

  If Answer=vbOK Then

  cmdDisplay.Visible = 【13】

  Else

  Docmd.Close

  End If

  End Sub

  (13)下列子过程的功能是:将当前数据库文件中"学生表"的学生"年龄"都加1。请在程序空白的地方填写适当的语句,使程序实现所需的功能:

  Private Sub SetAgePlus1_Click()

  Dim db As DAO.Database

  Dim rs As DAO.Recordset

  Dim fd As DAO.Field

  Set db = CurrentDb()

  Set rs = db.OpenRecordset("学生表")

  Set fd = rs.Fields("年龄")

  Do While Not rs.EOF

  rs.Edit

  fd = 【14】

  rs.Update

  【15】

  Loop

  rs.Close

  db.Close

  Set rs = Nothing

  Set db = Nothing

  End Sub

55806