2010年3月计算机等级考试二级Access试试题(文字版)

　　(31)在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：

　　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

　　打开窗体运行后，单击命令按钮，文本框中显示的结果是

　　A)1

　　B)7

　　C)17

　　D)400

　　(32)在窗体上有一个命令按钮Commandl，编写事件代码如下：

　　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

　　打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是

　　A)37 55 64 28 19 19

　　B)10 50 20

　　C)10 50 20 0

　　D)37 55 64 28 19

　　(33)在窗体上有一个命令按钮Commandl，编写事件代码如下：

　　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

　　打开窗体运行后，单击命令按钮，立即窗口上输出的结果是

　　A)2 32

　　B)12 3

　　C)2 2

　　D)12 32

　　34)在窗体上有一个命令按钮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

　　打开窗体运行后，单击命令按钮，消息框中输出的结果是

　　A)1

　　B)2

　　C)10

　　D)11

　　(35)下列程序段的功能是实现“学生”表中“年龄”字段值加1

　　Dim Str As String

　　Str=" "

　　Docmd.RunSQL Str

　　空白处应填入的程序代码是

　　A)年龄=年龄+1

　　B)Update学生 Set 年龄=年龄+1

　　C)Set 年龄=年龄+1

　　D)Edit 学生 年龄=年龄+l