![](https://cos-cdn.shuashuati.com/pipixue-wap/2020-1230-1107-56/ti_inject-812ce.png)
有如下的程序。 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 m=5: i=2 i=i + m + 1 m=i + a + b Fun=m / 2 End Function 单击命令按钮后,输出结果为