2013年7月1日，甲企业按面值发行3年期、到期一次还本付息、年利率6%（不计复利）、面值总额为2500万元的债券。2014年12月31日"应付债券"科目的账面余额为（）万元。

A.2575

B.2800

C.2500

D.2725

下列程序的执行结果是( )。

Function P(N As Integer)

For i=1 To N

Sum=Sum+i

Next i

P=Sum

End Function

Private Sub Command1_Click()

S=P(1)+P(2)+P(3)+P(4)

Print S;

End Sub

A．15

B．16

C．20

D．25