阅读下列程序。privAtE suBCommAnD1_CliCk() Dim iAs intEgEr，kAs intEgEr k=2 For i=1 to 3 print Fun(k)； nExt EnD suBFunCtion Fun(jAs 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