2013年9月计算机等考二级Access模拟试题及答案(2)

　　二、填空题

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

　　(1)软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特性， 其中最重要的是【1】。

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

　　(3)设有下列二叉树：

　　对此二叉树中序遍历的结果为【3】。

　　(4)Jackson结构化程序设计方法是英国的M.Jackson提出的，它是一种面向【4】的设计方法。

　　(5)数据结构包括数据的【5】结构和数据的存储结构。

　　(6)如果要将某表中的若干记录删除，应该创建　【6】　查询。

　　(7)将Access数据库数据发布到Internet网上，可以通过　【7】　。

　　(8)定义　【8】　有利于数据库中宏对象的管理。

　　(9)退出Access应用程序的VBA代码是　【9】　。

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

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

　　Private Sub s(ByVal p As Integer)

　　p = p * 2

　　End Sub

　　Private Sub Command1_Click()

　　Dim i As Integer

　　i = 3

　　Call s(i)

　　If i > 4 Then i = i ^ 2

　　MsgBox i

　　End Sub

　　窗体打开运行后，单击命令按钮，则消息框的输出结果为　【11】　。

　　(12)若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：

　　Private Function f(x As Long ) As Boolean

　　If x Mod 2 = 0 Then

　　f = True

　　Else

　　f = False

　　End If

　　End Function

　　Private Sub Command1_Click( )

　　Dim n As Long

　　n = Val(Me!text1)

　　p = IIf(f(n), "Even number", "Odd number")

　　Me!Label1.Caption = n & " is "& p

　　End Sub

　　窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为　【12】　。

　　(13)设有如下代码：

　　x = 1

　　Do

　　x = x + 2

　　Loop until　【13】

　　运行程序，要求循环执行3次后结束循环，在空白处填入适当语句。

　　(14)下列程序的功能是计算每名学生的总分(总分=数学+外语+专业)。请在程序空白处填入适当语句，使程序实现所需要的功能。

　　Private Sub Command1_Click()

　　Dim cn As New ADODB.Connection

　　Dim rs As New ADODB.Recordset

　　Dim zongfen As ADODB.Field

　　Dim shuxue As ADODB.Field

　　Dim waiyu As ADODB.Field

　　Dim zhuanye As ADODB.field

　　Dim strSQL As String

　　Set cn = CurrentProject.Connection

　　strSQL = "Select * from 成绩表"

　　rs.Open strSQL,cn,adOpenDynamic,adLockOptimistic,adCmdText

　　Set zongfen = rs.Fields("总分")

　　Set shuxue = rs.Fields("数学")

　　Set waiyu = rs.Fields("外语")

　　Set zhuanye = rs.Fields("专业")

　　Do While　【14】

　　zongfen = shuxue + waiyu +zhuanye

　　【15】

　　rs.MoveNext

　　Loop

　　rs.Close

　　cn.Close

　　Set rs = Nothing

　　Set cn = Nothing

　　End Sub