A) X1Y B) X_Y C) XY1 D) 1XY 13.下面变量类型说明符中，表示实型的是 。
A) REAL B) INTEGER C) LOGICAL D) CHARACTER 14.在FORTRAN90中，注释语句的标志是__________。 A) & B) : C) ! D) # 15.下面表达式的值为整型的是 。
A) 5.0/2 B) INT(5.0/2) C) SQRT(5.0/2) D) EXP(5.0/2) 16.设有说明语句：LOGICAL::A，则下面赋值语句中正确的是 。 A) A=TRUE B) A=.T. C) A=2>3 D) A=.F. 17.执行下面程序段： INTEGER::A,B,C
READ '(2I2,2X,I2)',A,B,C PRINT '(1X,3I3)',A,B,C END
若输入123456789↙，屏幕输出结果是 。
A) □12□34□78 B) □12□34□56 C) □□12□34□78 D) □□12□34□56
18.设有说明语句：INTEGER::X=3，则下面IF语句中不正确的是 。 A) IF(X>0) PRINT *,X B) IF(X<0) PRINT *,X C) IF(X=0) PRINT *,X D) IF(X>=0) PRINT *,X
19.设有说明语句：INTEGER::K，则循环语句DO K=2.5,5.5,1.5的执行次数是 。 A) 4 B) 3 C) 2 D) 1
20.设有说明语句：INTEGER,DIMENSION(10)::A，则存储数组A需要分配 个字节。 A) 10 B) 20 C) 30 D) 40
21.FORTRAN90中二维数组在内存中的存储方式是 存储的。 A) 随机 B) 按行 C) 按列 D) 由程序指定 22.执行下面程序段：
CHARACTER(LEN=4)::STRING=\ PRINT '(1X,A6)',STRING END
屏幕输出结果是 。
A) AABBCC B) □□AABB C) BBCCDD D) □□CCDD 23.设有说明语句：CHARACTER(LEN=8)::A=\ 则A(3:)的值是 。
A) ABC B) CD1234 C) 234 D) ABCD1234
24.设有说明语句：INTEGER,DIMENSION(2,2)::A，则下面语句中正确的是 。 A) A=(/1,2,3,4/) B) DATA A/1,2,3,4/ C) A=/1,2,3,4/ D) A=((/1,2,3,4/)(/2,2/)) 25.下面关于循环结构的描述中，正确的是 。
A) 有循环变量的DO循环结构中，循环变量在循环体中可以被改值 B) 有循环变量的DO循环结构中，循环次数可以在循环体内改变 C) 有循环变量的DO循环结构中，循环变量在循环体中只能被引用 D) 循环的嵌套中，内层循环和外层循环可以相互交叉 26.下面关于动态数组的说明中，正确的是 。
A) INTEGER,ALLOCATABLE,DIMENSION(:)::Y B) INTEGER,DIMENSION(:)::Y
C) INTEGER,ALLOCATE,DIMENSION(:)::Y D) INTEGER,DIMENSION(10)::Y
27.下面关于子程序的首行定义中，不正确的是 。 A) FUNCTION TEST(X) RESULT(TRES) B) SUBROUTINE ABCD C) SUBROUTINE ABC(Y)
D) FUNCTION TESTT RESULT(XYZ)
28.下面格式编辑符中表示字符格式的是 。 A) A B) I6 C) F6.1 D) L3
29.在格式输出语句中，格式串中的第一个编辑符1X的作用是 。 A) 空一格 B) 空一行 C) 纵向走纸控制 D) 没有作用 30.下面关于子程序的描述中，不正确的是 。 A) 内部子程序一定是用CONTAINS语句引导的 B) 在内部子程序中不能再包含一个内部子程序 C) 在内部子程序中可以再包含一个内部子程序 D) 子程序可以递归调用
31.下面关于指针的描述中，不正确的是 。 A) 指针变量是所指目标变量的别名
B) 指针变量的类型必须与所指目标变量的类型一致 C) 指针变量的值就是所指目标变量的值
D) 指针变量的类型可以与所指目标变量的类型不一致 32.下面关于指针变量的说明中，正确的是 。
A) INTEGER::P1 B) INTEGER,POINTER::P1
C) INTEGER,TARGET::P1 D) INTEGER,DIMENSION(:)::P1 33.下面关于模块的描述中，不正确的是 。
A) 定义模块可以不要模块名 B) 模块的定义必须以MODULE开始 C) END MODULE是模块的结束语句 D) 模块的类型说明部分不能有执行语句 34.下面关于派生类型的定义中，不正确的是 。 A) TYPE STUD
B) CHARACTER(LEN=10)::NAME C) INTEGER::AGE=18 D) END TYPE
35.在接口块的定义中，用于超载赋值号的类属说明是__________
A) = B) OPERATOR(=) C) .=. D) ASSIGNMENT(=) 36.在语句OPEN(UNIT=10,FILE=\中，10的含义是 。 A) 表示有10个数据 B) 表示有10个文件 C) 表示记录长度是10 D) 表示设备通道号是10 37.函数MOD(3,5)的值是 。
A) 5 B) 3 C) 0 D) 1
38.在语句OPEN(20,FILE=\中，缺省了参数ACCESS，则说明TETE.DAT是 。
A) 顺序文件 B) 直接文件 C) 内部文件 D) 外部文件
39.执行下面程序段： INTEGER::N,S=0 DO N=3,10,3 S=S+N END DO PRINT *,N END
屏幕输出结果是 。
A) 9 B) 10 C) 11 D) 12 40.执行下面程序段： INTEGER::K DO K=1,10
IF(K>5) EXIT END DO PRINT *,K END
屏幕输出结果是 。
A) 11 B) 10 C) 6 D) 5 二、填空题
1. 与代数式X?3相对应的FORTRAN90表达式是 。
2. FORTRAN90中，函数INDEX(\的值是 。 3. 执行下面程序段：
INTEGER,DIMENSION(10)::A INTEGER::I A(1)=0 DO I=2,10
A(I)=A(I-1)+1 END DO
PRINT '(1X,5I2)',A(1:10:3) END
屏幕输出结果是 。
4. FORTRAN90中，表示“假”的逻辑常量是 。 5. 执行下面程序段： TYPE AB
INTEGER::X,Y END TYPE TYPE (AB)::P P=AB(10,20) PRINT *,P%Y END
屏幕输出结果是 。
6. 下面程序的功能是：判断正整数N是否是奇数。若是则输出“YES”，否则输出“NO”。
请在程序中的下划线处填上合适的内容。 PROGRAM TK1 IMPLICIT NONE INTEGER::N READ *,N
IF( ) THEN PRINT *,\ ELSE
PRINT *,\
END PROGRAM TK1
7. 下面程序的功能是：输出S=1－2＋3??－10的值。请在程序中的下划线处填上合适的内容。
PROGRAM TK2 IMPLICIT NONE INTEGER::N,S,F S= F= DO N=1,10,1 S=S+F*N END DO PRINT *,S
END PROGRAM TK2 三、阅读程序题
1. 写出下列程序的运行结果 。 PROGRAM EX1 IMPLICIT NONE INTEGER::X=3,Y=5 IF(X>=3) THEN X=10;Y=15
ELSE IF(X==3.AND.Y==5) THEN X=20;Y=25 ELSE
X=0;Y=0 END IF
PRINT '(1X,\END PROGRAM EX1
2. 写出下列程序的运行结果 。 PROGRAM EX2 IMPLICIT NONE
CHARACTER(LEN=5)::P=\INTEGER::I
DO I=1,5 PRINT *,P P(I:I)='□' END DO
END PROGRAM EX2
3. 写出下列程序的运行结果 。 PROGRAM EX3 IMPLICIT NONE
INTEGER,DIMENSION(7)::S INTEGER::I,J,TEMP DATA S/4,7,0,9,1,12,11/ DO I=7,2,-1
DO J=7,8-I+1,-1
IF(S(J) TEMP=S(J); S(J)=S(J-1); S(J-1)=TEMP ENDIF ENDDO ENDDO PRINT '(1X,10I3)',(S(I),I=1,7) END PROGRAM EX3 4. 写出下列程序的运行结果 。 MODULE AM INTEGER::A=5,B=20 END MODULE AM PROGRAM EX4 USE AM IMPLICIT NONE INTEGER::C C=A*B PRINT '(1X,\END PROGRAM EX4 5. 写出下列程序的运行结果 。 PROGRAM EX5 IMPLICIT NONE INTEGER::A,B,C A=12;B=18 DO C=MOD(A,B) IF(C==0) EXIT A=B;B=C END DO PRINT *,B END PROGRAM EX5 四、程序设计题