2010年3月計(jì)算機(jī)等級(jí)考試二級(jí)Access試試題(文字版)

　　(31)在窗體上有一個(gè)命令按鈕Commandl和一個(gè)文本框Textl，編寫(xiě)事件代碼如下：

　　Private Sub Command1_Click()

　　Dim i,j,x

　　For i = 1 To 20 step 2

　　x = 0

　　For j = To 20 step 3

　　x = x + 1

　　Next j

　　Next i

　　Textl.Value=Str(x)

　　End Sub

　　打開(kāi)窗體運(yùn)行后，單擊命令按鈕，文本框中顯示的結(jié)果是

　　A)1

　　B)7

　　C)17

　　D)400

　　(32)在窗體上有一個(gè)命令按鈕Commandl，編寫(xiě)事件代碼如下：

　　Private Sub Commandl_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

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

　　A)37 55 64 28 19 19

　　B)10 50 20

　　C)10 50 20 0

　　D)37 55 64 28 19

　　(33)在窗體上有一個(gè)命令按鈕Commandl，編寫(xiě)事件代碼如下：

　　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

　　打開(kāi)窗體運(yùn)行后，單擊命令按鈕，立即窗口上輸出的結(jié)果是

　　A)2 32

　　B)12 3

　　C)2 2

　　D)12 32

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

　　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

　　打開(kāi)窗體運(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