运行下列语句后,输出的结果是().OptionBase1Dimai=1a=Array(1,-2,9,0,-1,9)Dok=a(i)Form=10TokStep-2n=k+mNextmPrintn+mi=i+1LoopWhileAbs(m+n)＜＞27A．327-8B．3-827C．-8273D．-8327

Question

运行下列语句后,输出的结果是( ).Option Base 1 Dim a i=1 a=Array(1,-2,9,0,-1,9) Do k=a(i) For m=10 To k Step-2 n=k+m Next m Print n+m i=i+1 Loop While Abs(m+n)＜＞27
A．3 27-8 B．3-8 27 C．-8 27 3 D．-8 3 27

Answer 1

Option Base 1
Dim a
i = 1
a = Array(1, -2, 9, 0, -1, 9)
Do
k = a(i) 'k=a(1)=1 k=a(2)=-2 k=a(3)=9
For m = 10 To k Step -2 'm=10 to 1 step -2 10 to -2 step -2 10 to 9 step -2
n = k + m
Next m '最后n=3 最后n=-4 最后n=19
Print n + m '3+0=3 -4-4=8 19+8=27
i = i + 1
Loop While Abs(m + n) 27 退出循环
此程序段运行的输出是：
3
-8
27
选答案B