单项选择题

有如下的程序：
Private Sub Command1_Click()
Dim k As Integer，m As Integer
Dim P As Integer
　　k=4：m=1
　　P=Fun(k,m)：Print P；
　　P=Fun(k,m)：Print P
End Sub
Private Function Fun(a As Integer，b As Integer)
Static m As Integer，i As Integer
in=5：i=2
i=i+m+1
m=i+a+b
Fun=m\2
End Function
单击命令按钮后，输出结果为