阅读下列程序 
N=0 
DO 10 K=1，3 
N =N+1 
M=K*N 
10 CONTINUE 
WRITE（*，’（1X，2I3）’）M，K 
END 
程序运行结果是（）

阅读下列程序  CHARACTER A*4，B*5，C*4  DATA A，B，C ’BIG’，’MIDDLE’，’SMALL’   WRITE（*，20）A，B，C  20 FORMAT（1X，A2，A3，A4）  END  程序运行结果是（）

A. BIGMIDDLE
B. *********
C. BIGMIDSMA
D. BIMIDSMAL

点击查看答案

阅读下列程序  A=3.5  CALL SUBA（A，A，A）  WRITE（*，’（F4.1）’）A  END  SUBROUTINE SUBA（X，Y，Z）  Y=Y-2.0  Z=Z+X  END  程序运行的结果是（）

A. 7.0
B. 5.0
C. 3.5
D. 1.5

点击查看答案