单项选择题

有如下的程序：
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
单击命令按钮后，输出结果为

点击查看答案&解析