下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(A)As Integer k=-1 For i=1 To a x(i)

admin2010-03-30  20

问题 下列程序运行时输出的结果是(    )。  Option Base 1  Const a=10  Private Sub Form_Click()  Dim x(A)As Integer    k=-1    For i=1 To a       x(i)=i*k       k=(-1)*k    Next i       For i=1 To 10       Print x(i)    Next i  End Sub

选项 A、1 3 5 7 9 10
B、-1-3-5-7-9
C、-1 2-3 4-5 6-7 8-9 10
D、1-2 3-4 5-6 7-8 9-10

答案4

解析 本题中两个For循环的作用分别为:为x数组元素赋值,在窗体上依次输出x数组元素的值。 其中,为x数组元素赋值时,有“x(i)=i*k”和“k=(-1)*k”两条语句。k的值每次都取自己的相反数,这样,x数组元素的符号每次都在变化,第1个元素是-1,第2个元素是2,第3个元素是-3,依次类推;最后输出x元素的值为-1 2-3 4-5 6-7 8-9 10。
转载请注明原文地址:https://jikaoti.com/ti/qbg0FFFM
0

最新回复(0)