单项选择题

运行下列语句后，输出的结果是( )。
Option Base 1
Dim a
i=1
a=Array(l, -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
<上一题 目录 下一题>
热门 试题

单项选择题
下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整( )。 Private Type Ang K As Integer Sinx As Single Cosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click()Dim Y As SingleDim i As IntegerDim Ksc As Ang Open____________ Y=3.14159 180 For i=1 To 90 Ksc.K=i Ksc.Sinx=sin(i*Y) Ksc.Cosx=Cos(i*Y) ____________ Next i Close #2End Sub
A．"..\Data1.txt"For Random As #1 Len=10 Put#1, i, Ksc
B．"..\Data1.txt"For Random As #1 Len=10 Put#1, Y, Ksc
C．"..\Data1.txt"For Random As #1 Put#1, i, Ksc
D．"..\Data1.txt"For Random As #1 Put#1, Y, Ksc
单项选择题
阅读下列程序： Private Sub Command1_Click() Dim i As Integer, k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function单击命令按钮，执行程序，输出结果是( )。
A．2 3 4
B．3 4 5
C．5 6 7
D．3 5 6
相关试题