阅读下列程序 DIMENSION M（3，3） DATA M 1，2，3，4，5，6，7，8，9 WRITE（……

单项选择题阅读下列程序  LOGICAL L1，L2，L3，L4，L5  DATA L1，L2，L3 3*.TRUE.   L4=.NOT.L1.AND..NOT.L2.AND.L3  L5=.NOT.L1.OR..NOT.L2.OR.L3  WRITE（*，*）L4，L5  END  程序运行结果是（）

A. T T
B. T F
C. F F
D. F T

单项选择题阅读下列程序  FUN（c，d）=a*c+b d  DATA a，b 1.0，1.0   WRITE（*，’（F4.1）’） FUN（a，b）-FUN（b，a）  END  程序运行结果是（）

A. 0.0
B. 4.0
C. 2.O
D. 3.O

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

A. 9  4
B. 9  3
C. 12  4
D. 12  3（#^）

单项选择题阅读下列程序  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