阅读程序：

Option Base 1

Dim arr()As Integer

Private Sub Form_Click()

Dim i As Integer,j As Integer

ReDim arr(3,2)

For i=1 To 3

For j=1 To 2

arr(i,j)=i*2+j

Next j

Next i

ReDim Preserve arr(3,4)

For j=3 To 4

arr(3,j)=j+9

Next j

Print arr(3,2)+arr(3,4)

End Sub

程序运行后，单击窗体，输入结果为（）。

A．21

B．13

C．8

D．25

广发公司预计的年度赊销收入为3000万元，信用条件是(3/10，2/20， n/45)，其变动成本率为40%，资金成本率为10%，收账费用为120万元，坏账损失率为2.5%。预计占赊销额60%的客户会利用3%的现金折扣，占赊销额 18%的客户利用2%的现金折扣。一年按360天计算。
要求：
(1)计算平均收账期；
(2)计算应收账款平均余额和维持赊销业务所需的资金；
(3)计算应收账款机会成本；
(4)计算信用成本；
(5)计算信用成本前收益；
(6)计算信用成本后收益。