Dim a As Integer, b as integer, c as integer
Private Sub Command1_Click()
a = 2: b = 3: c = 4
Call sub1(1, b, c)
z = a + b + c
Print z
Print a, b, c
End Sub
Sub sub1(a, x, ByVal y)
a = a + 2: b = b + 2: c = c + 2
x = a + b: y = b + c
End Sub
上机运行后，最后的结果是16，a,b,c值分别为2,8,6
我的理解是：题目中a,b,c都定义成了窗体级变量，所以a=1+2=3,b=x=3+5=8,c=4+2=6
我想问问，为什么a的值不是3
既然结果中a=2，那么为什么c也是按值传递的，c=4才对呀？
求大家能帮我想想，解决我心中的困惑，明天就要考试了，万分感谢！

sub1里第2个形参是x
调用的时候实参是b

所以sub1运行完x是多少b就是多少。。。

a虽然是按地址传递，但是调用的时候第一个参数是是1，非变量。
过程中的a貌似是不影响外面的a（因为a作为了形参的变量名）

c＝c+2 c不是sub1的形参……那他就是按最初的窗体级变量对待，4+2＝6
最后c就是6。。。。按值传递的是y，c把值给了y，但是y不像x一样x=b
y和c没有关系。

Dim a As Integer, b As Integer, c As Integer, d As Integer
Private Sub Command1_Click()
a = 2: b = 3: c = 4
Call sub1(1, b, c)
z = a + b + c
Print z
Print a, b, c
End Sub
Sub sub1(d, x, ByVal y)
a = d + 2: b = b + 2: c = c + 2
x = a + b: y = b + c
End Sub
比较一下他们的不同,这个就跟你的预期一样 输出为3,8,6

哦，我明白了，形参只能当做局部变量，所以a,x,y都是局部变量，谢谢大家帮我解决。为什么书上都没有提到过。郁闷！

[此贴子已经被作者于2007-5-19 14:56:41编辑过]