预约成功
题目1：下列程序执行后的输出结果为( )。
CHARACTER*6 C
C=’1234567890’
CALL SS(C)
END
SUEROUTINE SS(C)
CHARACTER C*2
WRITE(*，*) C
END
A. 123456
B. B. 12
C. 56
D. 1234567890
正确答案：B
解 析：输出C字符段长度为2,只能存放’1234567890’中的前两位即:12
题目2：下列程序执行后的输出结果为( )。
K=0
DO 10 I=1，6，2
DO 10 J=I，6，3
IF(I.EQ.J) THEN
K=K+J
ELSE
K=K+1
ENDIF
10 CONTINUE
WRITE(*，*) K
END
A. 18
B. 11
C. 15
D. 10
正确答案：B
解 析：I的最大值只能为5,相对应的J值为1,2,3,4,故K=K+J=1+2+3+4=10,最终输出K=K+K=10+1=11
