有如下的程序: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 PEnd SubPrivate 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/2End Function单击命令按,输出结果为