阅读下列程序 
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 
程序运行的结果是（）

单项选择题阅读下列程序  INTEGER F F（X，Y）=X+Y  A=-2.5  B=2.1  B=B+F（A，B）  WRITE（*，’（F3.1）’）B  END  程序运行的结果是（）

A. 1
B. 7
C. 2.1
D. 1.7

单项选择题阅读下列程序  READ（*，*）K  WRITE（*，100）K  100 FORMAT（I5）  END  程序运行时输入初始值12345，那么显示结果是（）

A. 2345
B. 12345
C. ****
D. *****

单项选择题阅读下列程序  LOGICAL L READ（*，*）A，B  L=A.GT.B  IF（L）THEN  X=B+2*A  ELSE  X=B  END  IF  WRITE（*，*）X  END  使用键盘为上述程序输入两个初值4和3，其输出的X值是（）

A. 4.0
B. 3.0
C. 11.0
D. 10.0

单项选择题阅读下列程序  CHARACTER*10 W DO K=1，10    READ *，W    IF （W（1：2）.EQ.’AB’.OR.W（1：2）.EQ.’ab’）WRITE（*，*）’’，W  ENDDO  END  程序的功能是（）

A. 首字符是A或B的字符串被输出显示
B. 第一、二个字符是AB或ab的字符串被输出显示
C. 首字符是a或b的字符串将被输出显示
D. 第一、二个字符是Aa或Bb的字符串将被输出显示

单项选择题阅读下列程序  F=1.0  DO 20，J=3，7，2  DO 20，K=J-1，J  20 F =F*K  WRITE（*，’（13，F8.1）’）J，F  END  程序运行结果是（）

A. 3 6.0
B. 5 120.0
C. 9 5040.0
D. 9362880.0