Private Sub Command1_Click()
　　Dim x As Integer, y As Integer
　　x = 12: y = 32
　　Call Proc(x, y)
　　Debug.Print x; y
　　End Sub
    Public Sub Proc(n As Integer, ByVal m As Integer)
　　n = n Mod 10
　　m = m Mod 10
　　End Sub
　　打開窗體運(yùn)行后，單擊命令按鈕，立即窗口上輸出的結(jié)果是
　　A)2 32
　　B)12 3
　　C)2 2
　　D)12 32
　　34)在窗體上有一個(gè)命令按鈕Commandl，編寫事件代碼如下：
　　Private Sub Commandl_Click()
　　Dim d1 As Date
　　Dim d2 As Date
　　dl = #12/25/2009#
　　d2 = #1/5/2010#
　　MsgBox DateDiff(” ww”, d1, d2)
　　End Sub
　　打開窗體運(yùn)行后，單擊命令按鈕，消息框中輸出的結(jié)果是
　　A)1
　　B)2
　　C)10
　　D)11
　　(35)下列程序段的功能是實(shí)現(xiàn)“學(xué)生”表中“年齡”字段值加1
　　Dim Str As String
　　Str=" "
　　Docmd.RunSQL Str
　　空白處應(yīng)填入的程序代碼是
　　A)年齡=年齡+1
　　B)Update學(xué)生 Set 年齡=年齡+1
　　C)Set 年齡=年齡+1
　　D)Edit 學(xué)生 年齡=年齡+l
    2010年計(jì)算機(jī)二級考試Access筆試試題參考答案

    一、選擇題

    1-10  ADBAC BADAA   11-20  DCCCA CACDDB  21-30  ACDDB  CDBBA  31-35  ADABB