下列程序的执行结果为________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
下列程序段的执行结果为 ________ 。 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分)
下列VBA程序段的执行结果为_______________。X1=1X2=1N=0Do While N<5X1=X1+X2X2=X1+X2N=N+1LoopDebug.Print X1;X2
下面程序段的运行结果为________。 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 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
执行下面程序段的输出结果为______。int x=13,y=5;printf('%d',x%=(y/=2));
下列程序段的执行结果为______。 K=0 For I=1 To 3 A=I^I^K Print A; Next I
下列程序段的执行结果为______。x=5y=-20If Not X>0 Then X=Y-3 Else Y=X+3Print X-Y;Y-XA.-3 3B.
下列程序段的执行结果为 ______。A=0:B=0For I = -1 To -2 Step -1For J = 1 To 2B=B+1Next JA=A+
下列程序段的执行结果为 ______。 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)
下列程序段的执行结果为______。x=5y=3If Not x > 1 Theny=y+1Else x=x-1Printx;yA.5 3B.5 4C.3 4
下列程序段的执行结果为______。Dim M(10), N(10)I=3For T = 1 To 5M(T) = TN(I) = 2 * I + TNext
下列程序段的执行结果为______。Dim A(3,3)For M=1 To 3For N=1 To 3If N=M 0r N=3-M+1 Then A(M,
下列程序段的执行结果为 ______。A=0:B=0For I=-1 To -2 Step -1 For J=1 To 2 B=B+1 Next J A=A+
下列程序段的执行结果为______ 。N=0J=1Do Until N > 2 N=N+1 J=J+N* (N+ 1)LoopPrint N; JA. 0 1
下列程序段的执行结果为______ 。Dim A(4)N= 3A(1) =1For K=0 To N-1For L=1 To K+1 X=K+2 -L A(X
下列程序段的执行结果为 ______。 X=5 Y=-20 If Not X>0 Then X=Y-3 Else Y=X+3 Print X-Y;Y-X
下列程序段的执行结果为______。A=0:B=0For I=-1 To-2 Step-1For J=1 To 2B=B+1Next JA=A+1Next I
下列程序段的执行结果为______。X=2Y=1If X*Y<1 Then Y=Y-1 Else Y=-1Print Y-X>0A.TrueB.FalseC.
下列程序段的执行结果为______。K=0For I=1 To 3A=I^I^KPrint A;Next IA.1 1 1B.1 4 9C.0 0 0D.1
下列程序段的执行结果为Private Sub Command1_Click() Text1.Text=c End Sub程序运行后,如果从键盘上输入’16’,则在文本框显示的内容是______
单击命令按钮后,下列程序代码的执行结果是______ 。 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