单项选择题

阅读下列程序: PrivateSubCommand1_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