有如下的程序: Private Sub Command1_Click() Dim k As Integer,m AB 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 6
有如下的程序:
Private Sub Command1_Click()
Dim k As Integer,m AB 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 6