设有如下事件过程: Private Sub Command l_Click()Dim a a=Anrray(12,3,8,5,10,3,5,9,2,4) For k=1 To 9 Pr

admin2013-10-16  23

问题 设有如下事件过程:
    Private Sub Command l_Click()Dim a
         a=Anrray(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://kaotiyun.com/show/VGQp777K
0

最新回复(0)