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

设有如下事件过程： Private Sub Command 1 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

admin2020-04-18  37
问题 设有如下事件过程：  
Private Sub Command 1 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://kaotiyun.com/show/0lTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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