若有如下程序：
Private Sub Command1_Click()
Dim i As Integer, k As Integer
k=2
For i = 1 To 3
Print H(k);
Next i
End Sub
Function H(j As Integer)
Static b
a=0
a=a+1
b=b+1
H=a*b+j
End Function
单击命令按钮，执行程序，输出结果是( )。

A) 2
3
4
B) 3
4
5
C) 5
6
7
D) 3
5
6

期货公司的交易保证金不足，期货交易所履行了通知义务，而期货公司未及时追加保证金，期货公司要求保留持仓并经书面协商一致的，对保留持仓期间造成的损失，由期货公司承担；穿仓造成的损失，也由期货公司承担。（）