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