2. 计算机
  3. 设有如下事件过程： 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

设有如下事件过程： 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  65
问题 设有如下事件过程：
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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)