一条vb题,请高手帮忙???????????
窗体上有Text1,Text2及一个Command1控件,

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
Print x, y
Fun2 = 2 * x + y
End Function
当单击1次和单击2次,Text1和Text2的结果????

[解决办法]
1次 10 10
2次 58 58