题目内容
（请给出正确答案）
下列程序段的执行结果为 Dim t(10) For k=2 To 10 t(k) =11 - k Next k X=6 Print t(2+t(x))
A．2
B．3
C．4
D．5
如果结果不匹配，请 联系老师 获取答案
更多“下列程序段的执行结果为 Dim t（10) For k=2 …”相关的问题
下列程序段的执行结果为()。 Dim m(10),n(10) I=3 For I=1 to 5 M(t)=t N(I)=2*I+t Next t Print n(I);m(I)
A．3 11
B．3 15
C．11 3
D．15 3
下列程序段的执行结果为_________。 Dim A(10)，B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Print"A(5)="；A(5)
A．A(5)=5
B．A(5)=10
C．A(5)=20
D．A(5)=40
下列程序段的执行结果为 Dim A(10， 10) For I=2 To 4 For J=4 To 5 A(I，J)=I*J Next J Next I Print A(2， 5)+ A(3， 4) + A(4， 5)
A．22
B．42
C．32
D．52
A.A(5)=5
B.A(5)=10
C.A(5)=20
D.A(5)=40
A.A(5)=5
B.A(5)=10
C.A(5)=20
D.A(5)=40
A.A(5)=5
B.A(5)=10
C.A(5)=20
D.A(5)=40
有下列程序段，单击命令按钮执行程序后，输出结果为()。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)＞0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub
A．148
B．40
C．-40
D．3.7
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim K As Integer For i=1 To 3 m(i,i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print x
A．3
B．4
C．5
D．6
下列程序段的执行结果为【 】。
Dim A (10,10)
For i = 2 To 4
For j =4 To 5
A(i,j) =i*j
Next
Next
Print A (2,5) +A(3,4) +A(4,5)
