有如下程序。 Private Sub Command1_Click() Dim k As Integer, m As Integer Dim op As Integer k=4: m=1 op=PPC(k, m) : Print op op=PPC(k, m) : Print op End Sub Private Function PPC(a As Integer, b As Integer) Static m As Integer, i As Integer m=0: i=2 i=i + m + 1 m=i + a + b PPC=m End Function 程序运行后,输出的结果为