2013年9月計(jì)算機(jī)二級Access無紙化預(yù)測選擇題十二

　　31.在窗體中添加一個(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é)果是( )。答案：C

　　A)22

　　B)32

　　C)42

　　D)52

　　32.下列程序的功能是返回當(dāng)前窗體的記錄集

　　Sub GetRecNum()

　　Dim rs As Object

　　Set rs =

　　MsgBox rs.RecordCount

　　End Sub

　　為保證程序輸出記錄集(窗體記錄源)的記錄數(shù)，空白處應(yīng)填入的語句是( )。答案：B

　　A)Recordset

　　B)Me.Recordset

　　C)RecordSource

　　D)Me.RecordSource

　　33.設(shè)有如下窗體單擊事件過程：

　　Private Sub Form_Click()

　　a = 1

　　For i = 1 To 3

　　Select Case i

　　Case 1, 3

　　a = a + 1

　　Case 2, 4

　　a = a + 2

　　End Select

　　Next i

　　MsgBox a

　　End Sub

　　打開窗體運(yùn)行后，單擊窗體，則消息框輸出結(jié)果是( )。答案：C

　　A)3

　　B)4

　　C)5

　　D)6

　　34.在窗體上有一個(gè)命令按鈕Command1，編寫事件代碼如下：

　　Private Sub Command1_Click()

　　Dim y As Integer

　　y = 0

　　Do

　　y = InputBox("y=")

　　If (y Mod 10)+ Int(y / 10)= 10 Then Debug.Print y;

　　Loop Until y = 0

　　End Sub

　　打開窗體運(yùn)行后，單擊命令按鈕，依次輸入10、37、50、55、64、20、28、19、-19、0，立即窗口上輸出的結(jié)果是( )。答案：D

　　A)37 55 64 28 19 19

　　B)10 50 20

　　C)10 50 20 0

　　D)37 55 64 28 19

編輯推薦：

考試吧考后首發(fā)2013年9月計(jì)算機(jī)等級考試試題及答案

2013年計(jì)算機(jī)等級考試備考精華資料匯總

全國計(jì)算機(jī)等級考試教材目錄（2013年版）

全國計(jì)算機(jī)等級考試考試大綱（2013年版）