阅读下列FORTRAN77程序：
INTEGERA(4,4)
DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/
WRITE(*,100)F(A93)
100 FORMAT(1X,F4.1)
END
FUNCTION F(B,N)
INTEGERB(N,N)F=0．0
D0 10K=1,N
10 F=F+B(K,K)
END
上述程序运行后，输出结果为( )。
INTEGERA(4,4)
DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/
WRITE(*,100)F(A93)
100 FORMAT(1X,F4.1)
END
FUNCTION F(B,N)
INTEGERB(N,N)F=0．0
D0 10K=1,N
10 F=F+B(K,K)
END
上述程序运行后，输出结果为( )。
正确答案：
D
答案解析：
B的值为
当K=1时，F=0+B(1，1)=1，依此类推
当K=1时，F=0+B(1，1)=1，依此类推
