有程序：DO10I=1，5，3DO10J=I，310K=I+JWRITE（*，*）KEND此程序的运行结果是：（）
有程序：INTEGERPP=0DO10I=0，10，3DO10J=5，100，20DO10K=-10，-5，-110P=P+1WRITE（*，*）PEND此程序的运行结果是：（）
有程序：INTEGERM（3，4）DATAM／4*-1，4*-2，4*-3／S=0DO10I=1．310S=S+M（I，I+1）DO20I=4，2，-120S=S-M（I-1，I）WRITE（*，*）SEND上面程序的运行结果为：（）
当输入1.5，2.5，3.5，4.0下列程序执行后的输出结果为()。 DIMENSIONA(2，2) READ(*，*)A SUM=0 DO10I=1，2 DO20J=I，2 K=A(I，J)*I*J 10A(1，2)=K WRITE(*，*)A(2，1) END
有程序：DIMENSIONA（2，2）READ（*，*）ASUM=0DO10I=1，2D010J=1，210A（I，J）=A（I，J）+I+JWRITE（*，*）A（1，2）END当输入1、2、3、4时，此程序执行后的输出结果为：（）
有程序：INTEGERM（5，5）L=0DO40J=1，5DO40K=1，5M（J，K）=K40CONTINUEDO10I=1，5N=1IF（MOD（I，2）．EQ．0）N=2DO10J=N，5，2L=L+M（I，J）10CONTINUEWRITE（*，20）L20FORMAT（2X，‘L=’，I3）END此程序运行的结果为：（）
有程序：DIMENSIONA（2，2）INTEGERA，YY=0DO20I=1，2D020J=1，2A（I，J）=I*I+J*JY=Y+A（I，J）20CONTINUEWRITE（*，*）YEND此程序运行的结果为：（）
下列程序执行后的输出结果为()。 K=0 DO10I=1，6，2 DO10J=I，6，3 IF(I.EQ.J)THEN K=K+J ELSE K=K+1 ENDIF 10CONTINUE WRITE(*，*)K END
有程序：K=1DO10I=1，2DO10J=1，210K=K*I／JWRITE（*，*）KEND此程序执行后的输出结果为（）
有程序：K=0DO10I=1，6，2DO10J=1，6，3IF（K．LT．I*J）K=I*J10CONTINUEWRITE（*，*）KEND此程序执行后的输出结果为：（）
有程序：INTEGERM（3，3）DATAM／1，2，3，4，5，6，7，8，9／DO10I=1．3DO10J=1，3K=M（I，J）M（I，J）=M（J，I）M（J，I）=K10CONTINUEWRITE（*，100）（（M（I，J），J=1，3），I=1，3）100FORMAT（1x，3I2）END此程序执行后的结果为：（）
有程序：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此程序执行后的结果为：（）
有程序：INTEGERA（3）DATAA／3*1／N=2DO10I=1．NDO10J=1，N10A（I）=A（J）+1WRITE（*，*）A（N）END此程序的运行结果为：（）
执行以下程序段后k的值是( )。int i,j,k=0;for(i=1,j=10;i<=j;i++,j--) k=k+i+j;
下面程序的运行结果是 。main(){int a[10]={1,2,2,3,4,3,4,5,1,5};int n=0,i,j,c,k;for(i=0;i<10-n;i++){c=a[i];for(j=i+1;j<10-n;j++)if(a[j]==c){for(k=j;k<10-n;k++)a[k]=a[k+1];n++;}}for(i=0;i<10-n;i++)printf(\%3d\,a[i]);}
下面程序的运行结果是( )。# include< stdio. h>int main( ){ int a[10]= {1，2，2，3，4.3，4.5，1，5}；int n=0，i，j，c，k；for(i=0；i<10–n；i++){ c=a[i]；for(j=i+1；j<10–n；j++)if(a[j]= =c){ for(k=j；k<10–n；k++)a[k]=a[k+1]；n++；}}for(i=0；i
下面程序段的运行结果是（)。DO 1 I=1,10,21K=K+1PRINT *,KEND（A) 10（B) 8（C) 6（D) 5
下述程序段的运行结果是： for（int i=1;i＜=3;i++) for（int j="1;j&lt;=2;j++)" k="1;k&lt;=3;k++)" if （i="=" && k) printf “%d ”,100*k+10*j+i);＞ A、111 222
以下程序是用选择法对10个整数按升序排序。 【1】 main（) { int i,j,k,t,a[N]; for（i=0;i＜=n-1;i
阅读下列FORTRAN程序：DIMENSION M（6）READ（*，*）MDO 10 J=1，6DO 10 K=J，6JF（M（K）.LT.M（J））THENN=M（K）M（K）=M（J）M（J）=NEND IF10 CONTINUEWRITE（*，100）（M（I），I=1，6）A．1 2 3 7 9 10
求s=1+1×2+1×2×3+…+1×2×3×…×10， 并将结果存到变量s中。请在_________处填上适当的内容，完善程序。 Private Sub Form_Click（) Dim i, j As Integer Dim k As Long s = 0 For i = 1 To 10 k = ____________ For j = 1 To i k = k*j Next j s = s+k Next i Print “s=”;s End Sub
下面程序的功能是产生10个小于100（不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR（) Randomize Dim a（10) For j=1 To 10a（i)=Int（[14] )If [15] Then k=k+1Print a（j) Next J Print Print k/10 End Suh
阅读 FORTRAN程序： READ（*,"） I,J,KDO 10N=1,2]=I+J+KJ=I+K+JK=I+J+K10 CONTINUEWRTTE（*.20） I,J,K20 FORMAT（2X,315）END键盘输入1, 0, 0则程序运行后的输出结果是（）
阅读下列FORTRAN程序：MQIUH=N （5） +N （10）WRITE（*,’（2X, 15）’）MQIUHENDFUNCTION N （K）N=0DO 10 J=1,kN=N+J10 CONTINUERETURNEND程序运行后的结果是（）
