2013年9月計(jì)算機(jī)等考二級(jí)Access模擬試題及答案(2)

　　二、填空題

　　請(qǐng)將每一個(gè)空的正確答案寫在答題卡序號(hào)的橫線上，答在試卷上不給分。

　　(1)軟件需求規(guī)格說(shuō)明書應(yīng)具有完整性、無(wú)歧義性、正確性、可驗(yàn)證性、可修改性等特性， 其中最重要的是【1】。

　　(2)設(shè)某循環(huán)隊(duì)列的容量為50，如果頭指針front=45(指向隊(duì)頭元素的前一位置)，尾指針rear=10(指向隊(duì)尾元素)，則該循環(huán)隊(duì)列中共有【2】個(gè)元素。

　　(3)設(shè)有下列二叉樹(shù)：

　　對(duì)此二叉樹(shù)中序遍歷的結(jié)果為【3】。

　　(4)Jackson結(jié)構(gòu)化程序設(shè)計(jì)方法是英國(guó)的M.Jackson提出的，它是一種面向【4】的設(shè)計(jì)方法。

　　(5)數(shù)據(jù)結(jié)構(gòu)包括數(shù)據(jù)的【5】結(jié)構(gòu)和數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)。

　　(6)如果要將某表中的若干記錄刪除，應(yīng)該創(chuàng)建　【6】　查詢。

　　(7)將Access數(shù)據(jù)庫(kù)數(shù)據(jù)發(fā)布到Internet網(wǎng)上，可以通過(guò)　【7】　。

　　(8)定義　【8】　有利于數(shù)據(jù)庫(kù)中宏對(duì)象的管理。

　　(9)退出Access應(yīng)用程序的VBA代碼是　【9】　。

　　(10)某窗體中有一命令按鈕，在窗體視圖中單擊此命令按鈕打開(kāi)一個(gè)查詢，需要執(zhí)行的宏操作是　【10】　。

　　(11)在窗體中添加一個(gè)名稱為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

　　窗體打開(kāi)運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果為　【11】　。

　　(12)若窗體中已有一個(gè)名為Command1的命令按鈕、一個(gè)名為L(zhǎng)abel1的標(biāo)簽和一個(gè)名為Text1的文本框，且文本框的內(nèi)容為空，然后編寫如下事件代碼：

　　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

　　窗體打開(kāi)運(yùn)行后，在文本框中輸入21，單擊命令按鈕，則標(biāo)簽顯示內(nèi)容為　【12】　。

　　(13)設(shè)有如下代碼：

　　x = 1

　　Do

　　x = x + 2

　　Loop until　【13】

　　運(yùn)行程序，要求循環(huán)執(zhí)行3次后結(jié)束循環(huán)，在空白處填入適當(dāng)語(yǔ)句。

　　(14)下列程序的功能是計(jì)算每名學(xué)生的總分(總分=數(shù)學(xué)+外語(yǔ)+專業(yè))。請(qǐng)?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)語(yǔ)句，使程序?qū)崿F(xiàn)所需要的功能。

　　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 成績(jī)表"

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

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

　　Set shuxue = rs.Fields("數(shù)學(xué)")

　　Set waiyu = rs.Fields("外語(yǔ)")

　　Set zhuanye = rs.Fields("專業(yè)")

　　Do While　【14】

　　zongfen = shuxue + waiyu +zhuanye

　　【15】

　　rs.MoveNext

　　Loop

　　rs.Close

　　cn.Close

　　Set rs = Nothing

　　Set cn = Nothing

　　End Sub