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
请各位指导一下小弟啊，谢谢

你的Y又什么作用呢
y始终都等于0啊
或者你说哈你要实现个什么功能，看看我能不能帮你

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

y是全局变量
Text1.Text = Fun2(Fun1(x), y) 执行的时候，先执行Fun1(x), 则x=x+y=2+0=2,y=x+y=2+0=2,y就变成2了，不是0，Fun2(Fun1(x), y)就变成Fun2(4，2)，就是10了

Text2.Text = Fun1(x)执行时变成Fun1(2)，x=x+y=2+2=4,y=x+y=4+2=6,fun1=x+y=4+6=10
单击两次同理

[[it] 本帖最后由 wish_rain 于 2008-4-5 12:56 编辑 [/it]]

谢谢大虾，爱死你了

调用的function是什么，为什么这些写啊？？

y 默认的为0？

楼上的灌水噶

这里允许灌水。没办法啊！