26.两个日期变量 D1=#2003-5-28 20:8:36# ，D2=#2004-2-29 10:40:11#。下列函数表达式中可以返回-9，即间隔9月的是(      )。答案：B

　　A）DateAdd("m",-9,D1)

　　B）DateDiff("m",D2,D1)

　　C）DateDiff("m",D1,D2)

　　D）DateSerial(2004,2,29)

　　27.由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行(      )。答案：A

　　A）0次

　　B）1次

　　C）4次

　　D）5次

　　28.On Error Goto 0语句的含义是(      )。答案：B

　　A）忽略错误并执行下一条语句

　　B）取消错误处理

　　C）遇到错误执行定义的错误

　　D）退出系统

　　29.在窗体中有一个命令按钮Command1，编写事件代码如下：

　　   Private Sub Command1_Click()

　　   Dim s As Integer

　　   s = P(1)+P(2)+P(3)+P(4)

　　   debug.Print s

　　   End Sub

　　   Public Function P(N As Integer)

　　   Dim Sum As Integer

　　   Sum = 0

　　   For i = 1 To N

　　   Sum = Sum + i

　　   Next i

　　   P = Sum

　　   End Function

　　   打开窗体运行后，单击命令按钮，输出结果是(      )。答案：B

　　A）15

　　B）20

　　C）25

　　D）35

　　30.表达式“B=INT(A+0.5)”的功能是(      )。答案：B

　　A）将变量A保留小数点后1位

　　B）将变量A四舍五入取整

　　C）将变量A保留小数点后5位

　　D）舍去变量A的小数部分