(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