16.运行下列程序，输入数据8、9、3、0后，窗体中显示的结果是(      )。

　　   Private Sub Form_click()

　　   Dim sum As Integer,m As Integer

　　   sum=0

　　   Do

　　   m=InputBox("输入m")

　　   sum=sum+m

　　   Loop Until m=0

　　   MsgBox sum

　　End Sub答案：C

　　A）0

　　B）17

　　C）20

　　D）21

　　17.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：

　　   Private Sub Command1_Click()

　　   s="ABBACDDCBA"

　　   For I=6 To 2 Step －2

　　   x=Mid(s,I,I)

　　   y=Left(s,I)

　　   z=Right(s,I)

　　   z=x & y & z

　　   Next I

　　   MsgBox z

　　   End Sub

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

　　A）AABAAB

　　B）ABBABA

　　C）BABBA

　　D）BBABBA

　　18.下面编写了一个打开指定窗体的子过程OpenForms。代码如下：

　　   Sub OpenForms(strFormName As String)

　　   If strFormName=" " then

　　   MsgBox"打开窗体名称不能为空！",VbCritical,"警告"

　　   Exit Sub

　　   End If

　　   DoCmd.OpenForm strFormName

　　   End Sub

　　如果此时需要调用该子过程打开名为“学生管理”的窗体，只需在主调过程合适的位置增添语句：

　　OpenForms("学生管理")

　　空白处应该填写的关键字是(      )。答案：C

　　A）Open

　　B）OpenForm

　　C）Call

　　D）Function

　　19.运行下列程序，结果是(      )。

　　   Private Sub Command32_Click()

　　   f0 = 1: f1 = 1: k = 1

　　   Do While k <= 5

　　   f = f0 + f1

　　   f0 = f1

　　   f1 = f

　　   k = k + 1

　　   Loop

　　   MsgBox "f = " & f

　　   End Sub答案：D

　　A）f = 5

　　B）f = 7

　　C）f = 8

　　D）f = 13

　　20.在窗体中有一个命令按钮run35，对应的事件代码如下：

　　   Private Sub run35_Enter(      )

　　   Dim num As Integer

　　   Dim a As Integer

　　   Dim b As Integer

　　   Dim i As Integer

　　   For i= 1 To 10

　　   num = InputBox("请输入数据:", "输入",1)

　　   If num Mod 2=0 Then

　　   a = a + 1

　　   Else

　　   b = b + 1

　　   End If

　　   Next i

　　   MsgBox("运行结果：a=" & Str(A)&",b=" & Str(B))

　　   End Sub

　　   运行以上事件所完成的功能是(      )。答案：D

　　A）对输入的10个数据求累加和

　　B）对输入的10个数据求各自的余数，然后再进行累加

　　C）对输入的10个数据分别统计有几个是整数，有几个是非整数

　　D）对输入的10个数据分别统计有几个是奇数，有几个是偶数