问题
单项选择题
阅读下列FORTRAN77程序：
INTEGERB(4，4)，P
N＝4
CALLSUB(B，N)
WRITE(*，*)P(B，N)
END
SUBROUTINESUB(Q，N)
INTEGERM，N，K，Q(N，N)
D010K＝1，N
D010M＝1，N
10Q(M，K)＝8*(K-1)+M
END
INTEGER FUNCTI()N P(B，N)
INTEGERB(N，N)
P＝0
D0100K＝1，N
100P＝P+B(K，K)
END
运行上述程序后，输出的结果为（）。
A．55
B．56
C．57
D．58
答案
参考答案：D
解析：
子程序SUB给二维数组B赋值，函数P计算二维数组B的正对角线之和。
[点评] 该题考察Fortran的子程序和函数调用。
