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