有程序:DIMENSIONA(2 2)INTEGERA YY=0DO20I=1 2D020J=1 2A(I J)=II+JJY=Y+A(I J)20CONTINUEWRITE(* *)YEND此程序运行的结果为:()

有程序：DIMENSIONA（2，2）INTEGERA，YY=0DO20I=1，2D020J=1，2A（I，J）=I*I+J*JY=Y+A（I，J）20CONTINUEWRITE（*，*）YEND此程序运行的结果为：（）

A、16

B、20

C、27

D、30

您可能感兴趣的试题

阅读下列FORTRAN77程序：DIMENSIONA（3，3)D0100K＝1，3D0100J＝1，3100A（K，J)＝K＋JS＝P（A，2，8)WRITE（*，*)

答案解析
阅读下列FORTRAN77程序：INTEGERA（3，2)READ（*，100)A100FORMAT（2I3)WRITE*，*)AEND运行后要使A（1，2)

答案解析
微分方程yy’’-2(y’)2=0的通解是（）

答案解析
微分方程yy’’-2(y’)2=0的通解是（）

答案解析
微分方程yy-y2=0的通解为( )。A.B.C.D.

答案解析
有程序:DIMENSIONA(4 3)DATAA/3*-1.0 3*-2.0 3*-3.0 3*-4.0/S=0.0DO10K=1 4D=ABS(A(K 1))DO20J=2 3IF(ABS(A(K J)).GT.D)D=ABS(A(K J))20CONTINUES=S+D10CONTINUEWRITE(* *)SEND此程序执行后的结果为:()

答案解析
设有如下程序:Option Base 0Private Sub Form_Click( )Dim aDim i As Integera=Array(1 2 3 4 5

答案解析

有程序:DIMENSIONA(2 2)INTEGERA YY=0DO20I=1 2D020J=1 2A(I J)=I*I+J*JY=Y+A(I J)20CONTINUEWRITE(* *)YEND此程序运行的结果为:()