单项选择题

阅读下列程序:
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+i
End Function
程序运行后,单击命令按钮输出结果是( )。

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