阅读下列程序：
Private Sub Command1_Click()
Dim i As Integer，k As Integer
　　k=2
　　For i=1 To 3
　　　　Print Fun(k)；
　　Next
End Sub
Function Fun(j As Integer)
Static b
　　a=0
　　a=a+1
　　b=b+1
　　Fun=a*b+j
End Function
程序运行后，单击命令按钮输出结果是

A) 234
B) 345
C) 567
D) 356