Dim y As Integer

Private Sub Command1_Click()
Dim x As Integer
 x = 2
 Text1.Text = Fun2(Fun1(x), y)
 Text2.Text = Fun1(x)
End Sub

Private Function Fun1(x As Integer) As Integer
  x = x + y
  y = x + y
  Fun1 = x + y
End Function

Private Function Fun2(x As Integer, y As Integer) As Integer
  Fun2 = 2 * x + y
End Function

为什么单击一次，两个文本框都是 10
为什么单击两次，两个文本框都是 58
请各位指导一下小弟啊，谢谢

它题目就是这样啊，给了这段代码出来，就问我单击一次和单击两次，文本框的内容是什么？答案就是10 10，58 58.我也想不明白怎么算，那个Y没有值的啊。。但是我把代码在VB上模拟了一次，确实又是那个答案，我晕死了。所以想请教一下怎么得出那个答案的。谢谢

谢谢大虾，爱死你了