题目内容
（请给出正确答案）
下列程序段的执行结果为______。 K=0 For J = 1 To 2 For I = 1 To 3 K=I+1 Next I For I = 1 To 7 K=K+1 Next I Next J Print K
A． 10
B．6
C．11
D．16
如果结果不匹配，请 联系老师 获取答案
更多“下列程序段的执行结果为______。K=0 For J = …”相关的问题
下列程序段的执行结果为()。 a=6 For k=1 To 0 a=a+k Next k Print k;a
A． -1 6
B．1 16
C．1 6
D．11 21
A.-3
B.-1
C.1
D.1.16228
下列程序段的执行结果为()。 X=2.4：Z=3：K=5 Print"A(";X+Z*K;")"
A．A(17)
B．A(17.4)
C．A(18)
D．A(2.4+3*5)
下列程序段的执行结果为 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
下列程序段的执行结果为______。 K=0 For I=1 To 3 A=I^I^K Print A; Next I
A．1 1 1
B．1 4 9
C．0 0 0
D．1 2 3
下列程序段的执行结果为_________。 K=0 For I=1 To 3 A=I^I^K Print A； Next I
A．1 1 1
B．1 4 9
C．0 0 0
D．1 2 3
下列程序段的执行结果为 ______。 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
有下列程序段，单击命令按钮执行程序后，输出结果为()。 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
