2013年9月计算机二级Access无纸化预测选择题十二

　　31.在窗体中添加一个名称为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

　　窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。答案：C

　　A)22

　　B)32

　　C)42

　　D)52

　　32.下列程序的功能是返回当前窗体的记录集

　　Sub GetRecNum()

　　Dim rs As Object

　　Set rs =

　　MsgBox rs.RecordCount

　　End Sub

　　为保证程序输出记录集(窗体记录源)的记录数，空白处应填入的语句是( )。答案：B

　　A)Recordset

　　B)Me.Recordset

　　C)RecordSource

　　D)Me.RecordSource

　　33.设有如下窗体单击事件过程：

　　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

　　打开窗体运行后，单击窗体，则消息框输出结果是( )。答案：C

　　A)3

　　B)4

　　C)5

　　D)6

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

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

　　A)37 55 64 28 19 19

　　B)10 50 20

　　C)10 50 20 0

　　D)37 55 64 28 19

编辑推荐：

考试吧考后首发2013年9月计算机等级考试试题及答案

2013年计算机等级考试备考精华资料汇总

全国计算机等级考试教材目录（2013年版）

全国计算机等级考试考试大纲（2013年版）