有如下的程序。
Private Sub Commandl_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
单击命令按钮后,输出结果为
A.2 2
B.4 4
C.5 5
D.6