高分求解一道计算机VB题。急。。。一定要详细解答过程 越详细越好

Question

Option Explicit
Dim A As Integer
Private Sub Command1-Click()
Dim B As Integer,CAs Integer
A=1:B=2:C=3
Print Fun(A,B,B)+Fun((A),B,C)
Print A, B, C
End Sub
Private Function Fun(X As Integer,ByVal Y As Integer,Z As Integer) As Integer
Static Stat As Integer
Stat=Stat+Z
Y=Y+Stat
X=X+3
Z=X+Y
A=A+X+Y
Fun=X+Y+Z+A
End Function
答案是 132
40 8 28
求详细解答.越详细越好

Answer 1

A是在通用声明段声明的，相当于静态变量
在调用函数FUN过程中X，Z变量是传地址，Y是传值，而且Fun函数中Stat是静态变量，下面是计算过程：
1.Fun（A，B, B）
stat=0+2=2(静态变量)
Y=2+2=4（B不变）
x=1+3=4(A此时变成了4)
z=4+4=8(B此时变成了8)
a=4+4+4=12
fun(A,B,B)=12+4+8+12=36（X为A,Y为Y即4，Z为B）
2.fun(A,B,C)
stat=2+3=5
Y=8+5=13
X=12+3=15(A变成15)
Z=15+13=28（C变成28）
A=15+15+13=43（A变成43）
FUN(A,B,C)=43+13+28+43=127(X为A,Y为Y即13，Z为C)
3.A=43,B=8,C=28
所以FUN(A,B,B)+FUN(A,B,C)=36+127=163
关键是搞清静态变量，希望对你有所帮助！