设有如下事件过程: Private SUb Commandl Click()Dim a a=Array(12,3,8,5,10,3,5,9,2,4) For k=1 To 9 Print fun(a(k.1),a(k));””; Next k End Su

admin2020-01-02  21

问题 设有如下事件过程:
Private SUb Commandl Click()Dim a
a=Array(12,3,8,5,10,3,5,9,2,4)
For k=1 To 9
Print fun(a(k.1),a(k));””;
Next k
End Sub
Private Function fun(x,y)As Integer
   Do While x>=y
x=x-y
Loop
fun=x.
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。
转载请注明原文地址:https://jikaoti.com/ti/FOx0FFFM
0

最新回复(0)