有程序：CHARACTER*6SS=‘ABCDEF’CALLSS（S）END...

单项选择题有程序：CHARACTER*6SS=‘ABCDEF’CALLSS（S）ENDSUBROUTINESS（S1）CHARACTERS1*3WRITE（*，*）S1END此程序执行后的输出结果为：（）

A.ABC
B.BCD
C.CDE
D.DEF

1.单项选择题有程序：DIMENSIONx（3，3）READ（*，*）xCALLSSl（x（1，2））ENDSUBROUTINESSl（x）DIMENSIONx（3）WRITE（*，*）x（2）END当输入1、2、3、4、5、6、7、8、9时，此程序执行后的输出结果为：（）

A.3
B.4
C.5
D.6

2.单项选择题下列程序执行时，需输入数据的记录个数必须为：DIMENSIONA（4，4）READ（*，*）A………………END（）

A.1个
B.4个
C.16个
D.不超过16个

3.单项选择题有程序：DIMENSION（4，4）READ（*，*）AWRITE（*，10）A10FORMAT（1x，6E9．2）END此程序执行后的输出结果的记录数为：（）

A.2
B.3
C.4
D.16

4.单项选择题有程序：F1（x）=2．0／（1．0+x）F2（Y）=F1（Y）*Y+1．0A=F1（1．0+F2（1．0）WRITE（*，10）A10FORMAT（1x，E8．2）END此程序执行后的输出结果为：（）

A.3.00
B.3.0
C.3.00E+00
D.30E+01

5.单项选择题有程序：READ（*，*）xY=0．0IF=（xGT．0．0）THENY=1．0ELSEIF（x．GE．150）THENY=2．0ELSEY=3．0ENDIFWRITE（*，*）YEND当输入150时，此程序执行后的输出结果为：（）

A.0.0
B.1.0
C.2.0
D.3.0

6.单项选择题有程序：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时，此程序执行后的输出结果为：（）

A.6
B.5
C.7
D.4

7.单项选择题有程序：K=0DO10I=1，6，2DO10J=1，6，3IF（K．LT．I*J）K=I*J10CONTINUEWRITE（*，*）KEND此程序执行后的输出结果为：（）

A.18
B.30
C.25
D.36

8.单项选择题有程序：K=1DO10I=1，2DO10J=1，210K=K*I／JWRITE（*，*）KEND此程序执行后的输出结果为（）

A.1
B.0
C.0.5
D.2

9.单项选择题有程序：K=0DO10I=1，2DO10J=1，210K=K+I／JWRITE（*，*）KEND此程序的执行结果K值为（）

A.0
B.2
C.2.5
D.1

10.单项选择题对任意输入的x，READ（*，*）xK=SIN（x）WRITE（*，*）KEND此程序执行后K的值为：（）

A.在区间［-1，1］中的一个值
B.一定等于0
C.在区间（-1，1）中的一个值
D.K=0或K=-1