第38—40 题为套题：2009 年1 月1 日，C 寿险公司从二级市场支付价款102 万元（含已到付息期但尚未领取的利息2 万元）购得某公司发行的债券，另发生交易费用2 万元。该债券面值100 万元，剩余期限为2 年，票面利率为4%，每半年付息一次，C 寿险公司将其划分为交易性金融资产。2009 年1 月5 日，收到该债券2008 年下半年利息2 万元。2009 年6 月30 日，该债券的公允价值为110 万元（不含利息）。

2009 年1 月5 日，C 寿险公司收到该公司2008 年下半年利息时，应贷记（ ）。

A．应收利息

B．投资收益

C．资本公积

D．公允价值变动损益

在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum= (9)
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p=1
For i=1 To t
p=p*i
Next i
(10)
End Function
以上程序的功能是：计算11 +2! +3!+…+n!，其中n从键盘输入，请填空。