2013年計算機(jī)二級ACCESS筆試預(yù)測試題及答案（4）

　　二、填空題

　　請將每一個空的正確答案寫在答題卡序號的橫線上，答在試卷上不給分。

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

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

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

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

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

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

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

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

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

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

　　(10)某窗體中有一命令按鈕，在窗體視圖中單擊此命令按鈕打開一個查詢，需要執(zhí)行的宏操作是　【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

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

　　(12)若窗體中已有一個名為Command1的命令按鈕、一個名為Label1的標(biāo)簽和一個名為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

　　窗體打開運(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)語句。

　　(14)下列程序的功能是計算每名學(xué)生的總分(總分=數(shù)學(xué)+外語+專業(yè))。請在程序空白處填入適當(dāng)語句，使程序?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 成績表"

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

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

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

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

　　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