2014年9月計(jì)算機(jī)二級(jí)Access考前預(yù)測(cè)試卷(2)
(31)在窗體中添加一個(gè)名稱為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
窗體打開運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果為
A)10 B)30 C)40 D)50
(32)下列過程的功能是：通過對(duì)象變量返回當(dāng)前窗體的Recordset屬性記錄集引用，消息框中輸出記錄集的記錄(即窗體記錄源)個(gè)數(shù)。
Sub GetRecNum()
Dim rs As Object
Set rs = Me.Recordset
MsgBox ______
End Sub
程序空白處應(yīng)填寫的是
A)Count
B)rs.Count
C)RecordCount
D)rs.RecordCount
(33)在窗體中添加一個(gè)名稱為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
窗體打開運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果是
A)22 B)32 C)42 D)52
(34)設(shè)有如下程序
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循環(huán)來(lái)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是
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)在窗體中使用一個(gè)文本框(名為n)接受輸入的值，有一個(gè)命令按鈕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) * * * *
* * * *
* * * *
* * * *
二、填空題
請(qǐng)將每一個(gè)空的正確答案寫在答題卡序號(hào)的橫線上，答在試卷上不給分。
(1)棧底至棧頂依次存放元素A、B、C、D，在第五個(gè)元素E入棧前，棧中元素可以出棧，則出棧序列可能是【1】。
(2)在最壞情況下，堆排序需要比較的次數(shù)為【2】。
(3)已知二叉樹后序遍歷序列是dabec，中序遍歷序列是debac，它的前序遍歷序列是【3】。
(4)從工程管理角度，軟件設(shè)計(jì)一般分為兩步完成，它們是【4】。
(5)用二維表的形式來(lái)表示實(shí)體之間聯(lián)系的數(shù)據(jù)模型叫做【5】。
(6)在學(xué)生成績(jī)表中，如果需要根據(jù)輸入的學(xué)生姓名查找學(xué)生的成績(jī)，需要使用的是 【6】 查詢。
(7)數(shù)據(jù)訪問頁(yè)有兩種視圖，它們是頁(yè)視圖和 【7】 視圖。
(8)如果希望按滿足指定條件執(zhí)行宏中的一個(gè)或多個(gè)操作，這類宏稱為 【8】 。
(9)某窗體中有一命令按鈕，在窗體視圖中單擊此命令按鈕打開一個(gè)報(bào)表，需要執(zhí)行的宏操作是 【9】 。
(10)執(zhí)行下面的程序，消息框里顯示的結(jié)果是 【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)在窗體中添加一個(gè)命令按鈕(名為Command1)和一個(gè)文本框(名為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
打開窗體運(yùn)行后，單擊命令按鈕，文本框中顯示的內(nèi)容是 【11】 。
(12)窗體中有兩個(gè)命令按鈕："顯示"(控件名為cmdDisplay)和"測(cè)試"(控件名為cmdTest)。以下事件過程的功能是：?jiǎn)螕?quot;測(cè)試"按鈕時(shí)，窗體彈出一個(gè)消息框，如果單擊消息框的"確定"按鈕，隱藏窗體上的"顯示"命令按鈕;單擊"取消"按鈕關(guān)閉窗體。請(qǐng)按照功能要求，將程序補(bǔ)充完整。
Private Sub cmdTest_Click()
Answer = 【12】
If Answer=vbOK Then
cmdDisplay.Visible = 【13】
Else
Docmd.Close
End If
End Sub
(13)下列子過程的功能是：將當(dāng)前數(shù)據(jù)庫(kù)文件中"學(xué)生表"的學(xué)生"年齡"都加1。請(qǐng)?jiān)诔绦蚩瞻椎牡胤教顚戇m當(dāng)?shù)恼Z(yǔ)句，使程序?qū)崿F(xiàn)所需的功能：
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("學(xué)生表")
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