下列程序段的执行结果为 ______。 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)

相似题目

• 下列程序的执行结果为________Option Base 0Private Sub Command1_Click()Dim aa = Array(a, b, c, d, e, f, g)Print a(1); a(3); a(5)End sub

  查看最佳答案

• 下列程序段的执行结果为_______。Dima(3,5)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=1To5a(i,j)=a(i-1,j-1)+(i-1)*5+jNextjNextiPrinta(3,4)（5.0分）

  查看最佳答案

• 下列程序段的执行结果为 ________ 。 Dim M(10), N(10) i= 4 For j = 1 To 7 M(j) = j N(i) = 2 * i + j Next j Print N(i); M(i)

  查看最佳答案

• 下列VBA程序段的执行结果为__________。I=1DoWhileI<=10SUM=SUM+II=I+1LoopDebug.PrintSUM（2.0分）

  查看最佳答案

• 下面程序段的运行结果为________。 Dim s As Integer, i As Integer i = 1: s = 1 Do i =i + s Loop Until s >20 Print i, s

  查看最佳答案

• 下列程序段的执行结果为________。DimM(10),N(10)i=4Forj=1To7M(j)=jN(i)=2*i+jNextjPrintN(i);M(i)（5.0分）

  查看最佳答案

• 下列程序段的执行结果为________。Dim M(10), N(10)i= 4For j = 1 To 7M(j) = jN(i) = 2 * i + jNext jPrint N(i); M(i)

  查看最佳答案

• 下列程序的执行结果是 _ ________ __ Dim a(5) As String Dim b As Integer Dim I As Integer For I = 0 To 5 a(I) = I + 1 Print a(I); Next I

  查看最佳答案

• 下列程序段的执行结果是 ________ 。 Dimension a(8) a(1)=1 a(2)=1 for i=3to 8 a(i)=a(i-1)+a(i-2) next

  查看最佳答案

• 下列程序段的执行结果为______。 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

  查看最佳答案

• 下列程序段的执行结果为 ______。 A=0：B=0 For I=-1 To-2 Step-1 For J=1 To 2 B=B+1 Next J A=A+1 Next I Print A；B

  A．2 4 B．-2 2 C．4 2 D．2 3

  查看最佳答案

• 下列程序段的执行结果为 ______。A=0:B=0For I = -1 To -2 Step -1For J = 1 To 2B=B+1Next JA=A+

  下列程序段的执行结果为 ______。A=0:B=0For I = -1 To -2 Step -1 For J = 1 To 2 B=B+1 Next J A=A+1Next IPrint A; B A．2 4 B．-2 C．4 D．2

  查看最佳答案

• 下列程序段的执行结果为______。x=5y=3If Not x ＞ 1 Theny=y+1Else x=x-1Printx；yA．5 3B．5 4C．3 4

  下列程序段的执行结果为______。 x=5 y=3 If Not x ＞ 1 Then y=y+1 Else x=x-1 Print x；y A．5 3 B．5 4 C．3 4 D．4 3

  查看最佳答案

• 下列程序段的执行结果为______。Dim M（10), N（10)I=3For T = 1 To 5M（T) = TN（I) = 2 * I + TNext

  下列程序段的执行结果为______。 Dim M(10), N(10) I=3 For T = 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（3，3)For M=1 To 3For N=1 To 3If N=M 0r N=3-M+1 Then A（M，

  下列程序段的执行结果为______。 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M 0r N=3-M+1 Then A(M，N)=1 Else A(M，N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M， N)； Next N Print Next M A．1 0 0 0 1 a 0 0 1 B．1 1 1 1 1 1 1 1 1 C．0 0 0 0 0 0 0 0 0 D．1 0 1 0 1 0 1 0 1

  查看最佳答案

• 下列程序段的执行结果为 ______。A=0：B=0For I=-1 To -2 Step -1 For J=1 To 2 B=B+1 Next J A=A+

  下列程序段的执行结果为 ______。 A=0：B=0 For I=-1 To -2 Step -1 For J=1 To 2 B=B+1 Next J A=A+1 Next I Print A；B A．2 4 B．-2 2 C．4 2 D．2 3

  查看最佳答案

• 下列程序段的执行结果为______ 。N=0J=1Do Until N ＞ 2 N=N+1 J=J+N* （N+ 1)LoopPrint N; JA． 0 1

  下列程序段的执行结果为______ 。 N=0 J=1 Do Until N ＞ 2 N=N+1 J=J+N* (N+ 1) Loop Print N; J A． 0 1 B．3 7 C．3 21 D．3 13

  查看最佳答案

• 下列程序段的执行结果为______ 。Dim A（4)N= 3A（1) =1For K=0 To N-1For L=1 To K+1 X=K+2 -L A（X

  下列程序段的执行结果为______ 。 Dim A(4) N= 3 A(1) =1 For K=0 To N-1 For L=1 To K+1 X=K+2 -L A(X)=A(X)+A(X-1) If K＜N-1 Then Exit For Print A(X)； Next L Next K A． 1 2 1 B．1 2 3 C．2 4 6 D．1 3 1

  查看最佳答案

• 下列程序段的执行结果为 ______。 X=5 Y=-20 If Not X＞0 Then X=Y-3 Else Y=X+3 Print X-Y；Y-X

  A．-3 3 B．5 -8 C．39875 D．25 -25

  查看最佳答案

• 下列程序段的执行结果为______。A=0:B=0For I=-1 To-2 Step-1For J=1 To 2B=B+1Next JA=A+1Next I

  下列程序段的执行结果为______。 A=0:B=0 For I=-1 To-2 Step-1 For J=1 To 2 B=B+1 Next J A=A+1 Next I Print A;B A．2 4 B．-2 2 C．4 2 D．2 3

  查看最佳答案

• 下列程序段的执行结果为______。X=2Y=1If X*Y＜1 Then Y=Y-1 Else Y=-1Print Y-X＞0A．TrueB．FalseC．

  下列程序段的执行结果为______。 X=2 Y=1 If X*Y＜1 Then Y=Y-1 Else Y=-1 Print Y-X＞0 A．True B．False C．-1 D．1

  查看最佳答案

• 下列程序段的执行结果为______。K=0For I=1 To 3A=I^I^KPrint A;Next IA．1 1 1B．1 4 9C．0 0 0D．1

  下列程序段的执行结果为______。 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

  查看最佳答案

• 下列程序段的执行结果为Private Sub Command1_Click（） Text1.Text=c End Sub程序运行后，如果从键盘上输入’16’，则在文本框显示的内容是______

  A．您要查询的是天气 B．您要查询的是邮编 C．您要查询的是电话号码 D．False

  查看最佳答案

• 单击命令按钮后，下列程序代码的执行结果是______ 。 Public Sub fun （Byval a （) As Integer) Static n As Integer Do a（n) = a （n) + a（n + 1) n = n + 1 Loop While n ＜ 3 End Sub Private Sub command1_ click（) Dim m As Integer, n

  查看最佳答案