有如下程序。
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
程序运行后,输出的结果为
A.4 6
B.6 6
C.8 8
D.10 12