若有如下程序：
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

按照法律规定，有权对商业银行的个人储蓄存款和单位存款查询、冻结、扣划的单位为()。

A.人民法院

B.住房公积金管理部门

C.国家安全机关

D.税务机关

E.有债务纠纷的金融机构