阅读下列FORTRAN77程序：INTEGERB(4，4)，PN＝4CALLSUB(B，N)WRITE(*，*)P(B，N)ENDSUBROUTINESUB(Q，N)INTEGERM，N，K，Q(N，N)D010K＝1，ND010M＝1，N10Q(M，K)＝8*(K-1)+MENDINTEGER FUNCTI()N P(B，N)INTEGERB(N，N)P＝0D0100K＝1，N100P＝P+B(K，K)END运行上述程序后，输出的结果为（）。 A: 55 B: 56 C: 57 D: 58

公告：维护QQ群：833371870，欢迎加入！
公告：维护QQ群：833371870，欢迎加入！
公告：维护QQ群：833371870，欢迎加入！

2022-06-19 问题

阅读下列FORTRAN77程序：INTEGERB(4，4)，PN＝4CALLSUB(B，N)WRITE(，)P(B，N)ENDSUBROUTINESUB(Q，N)INTEGERM，N，K，Q(N，N)D010K＝1，ND010M＝1，N10Q(M，K)＝8*(K-1)+MENDINTEGER FUNCTI()N P(B，N)INTEGERB(N，N)P＝0D0100K＝1，N100P＝P+B(K，K)END运行上述程序后，输出的结果为（）。 A: 55 B: 56 C: 57 D: 58