单选题设有如下事件过程： Private Sub Command1_Click()Dim a Private Function fun(x，y)As Integer a=Array(12，3，8，5，10，3，5，9，2，4) Do While x>=y For k=1 To 9 x=x-Y Print fun(a(k-1)，a(k))；""； Loop Next k fun=x End Sub End Function 程序运行时的输出结果是

A、 4 0 1 0 3 0 0 4 0
B、 0 3 3 5 1 3 5 1 2
C、 9 -5 3 -5 7 -2 -4 7 -2
D、 9 3 3 5 7 3 5 7 2

【正确答案】 B

【答案解析】解析：本题中函数fun的作用是当第一个形参比第二个形参大或着相等的时候让它减去第二个形参，直到比第二个形参小为止；在按钮的单击事件中循环调用9次函数，每次都用数组的前一个元素和后一个元素作为函数的实参，所以应输出的是12-3-3．3-3、3、8-5、5、10-3、3、5、9-2、2。