10.假定有如下Sub过程：

　　   Sub sfun ( x As Single, y As Single)

　　   t = x

　　   x = t/y

　　   y = t Mod y

　　   End Sub

　　在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：

　　   Private Sub Command1_Click()

　　   Dim a as single

　　   Dim b as single

　　   a = 5

　　   b = 4

　　   sfun a,b

　　   MsgBox a & chr(10)+chr(13)& b

　　   End Sub

　　则单击按钮后的输出结果是(      )。答案：B

　　A）1和1

　　B）1.25和1

　　C）1.25和4

　　D）5和4

　　11.在窗体中有一个文本框Text1，编写事件代码如下：

　　   Private Sub Form_Click()

　　   X=val(Inputbox("输入x的值"))

　　   Y=1

　　   If X<>0 Then Y = 2

　　   Text1.Value = Y

　　   End Sub

　　打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是(      )。答案：B

　　A）1

　　B）2

　　C）3

　　D）4

　　12.VBA“定时”操作中，需要设置窗体的“计时器间隔(TimerInterval)”属性值。其计量单位是(      )。答案：B

　　A）微秒

　　B）毫秒

　　C）秒

　　D）分钟

　　13.下列过程的功能是：通过对象变量返回当前窗体的Recordset属性记录集引用，消息框中输出记录集的记录(即窗体记录源)个数。

　　   Sub GetRecNum()

　　   Dim rs As Object

　　   Set rs = Me.Recordset

　　   MsgBox        

　　   End Sub

　　程序空白处应填写的是(      )。答案：D

　　A）Count

　　B）rs.Count

　　C）RecordCount

　　D）rs.RecordCount

　　14.InputBox函数的返回值类型是(      )。答案：D

　　A）数值

　　B）字符串

　　C）变体

　　D）数值或字符串(视输入的数据而定)

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

　　   Private Sub Form_Click()

　　   a = 1

　　   For i= 1 To 6

　　   Select Case i

　　   Case 1,3,5

　　   a= a+1

　　   Case 2,4,6

　　   a = a+2

　　   End Select

　　   Next i

　　   MsgBox a

　　   End Sub

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

　　A）8

　　B）6

　　C）10

　　D）9