设有如下事件过程: PrivateSubCommand1_Click()Dima a=Array(12,3,8,5,10,3,5,9,2,4) Fork=1To9 Printfun(a(k-1),a(k));""; Nextk EndSub Private

admin2019-07-30  40

问题 设有如下事件过程:
PrivateSubCommand1_Click()Dima
a=Array(12,3,8,5,10,3,5,9,2,4)
Fork=1To9
Printfun(a(k-1),a(k));"";
Nextk
EndSub
PrivateFunctionfun(x,y)AsInteger
DoWhilex>=y
x=x-y
Loop
fun=x
EndFunction
程序运行时的输出结果是

选项 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://kaotiyun.com/show/64Up777K
0

最新回复(0)