Question

一道VB填空题，求高手帮忙、、、、

执行下面的程序，单击命令按钮Command1后，窗体上显示的第一行内容是____，第二行是_______,第三行是____.
Private Sub Command1_Click()
Dim A As Integer,K As Integer
A=1
K=Fun(Fun(A,A),A)
Print "K=";K
End Sub
Private Function Fun（X As Integer,Y As Integer) As Integer
Static K As Integer
K=K+X+Y
X=X+Y
Y=Y+k
Fun=X+Y
Print Fun;X;Y
End Function

Answer 1

第一行：8 4 4
第二行：30 12 18
第三行：K=30
注意：Fun(A,A)传值给xy时，始终都有 x =y， 即x或y一个值变化，另一个也随着变话，例如x=2，那么就有y=x=2。我想这就是你想知道的关键问题。
题中：k=0+1+1=2,x=1+1=2,（则隐含了一条信息：y=x=2）,所以y=y+k=2+2=4,而不是y=1+2=3，（此时，隐含x=y=4）于是fun=4+4=8，所以第一行打印：8 4 4
后面同理，不明白，可追问。

Answer 2

直接把程序运行一下就OK!
第一行：8 4 4
第二行：30 12 18
第三行：K=30

追问

能不能详细说下过程？？谢了、、

Answer 3

自己运行程序，用单步执行方式，慢慢看。