閱讀下列程序 
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 
程序運(yùn)行的結(jié)果是（）

閱讀下列程序 
INTEGER F
F（X，Y）=X+Y 
A=-2.5 
B=2.1 
B=B+F（A，B） 
WRITE（*，’（F3.1）’）B 
END 
程序運(yùn)行的結(jié)果是（）

閱讀下列程序 
READ（*，*）K 
WRITE（*，100）K 
100 FORMAT（I5） 
END 
程序運(yùn)行時(shí)輸入初始值12345，那么顯示結(jié)果是（）

閱讀下列程序 
LOGICAL L
READ（*，*）A，B 
L=A.GT.B 
IF（L）THEN 
X=B+2*A 
ELSE 
X=B 
END 
IF 
WRITE（*，*）X 
END 
使用鍵盤為上述程序輸入兩個(gè)初值4和3，其輸出的X值是（）

閱讀下列程序 
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 
程序的功能是（）