VB中的fun问题

Question

option explicitprivate sub command1_click() dim a as integer, b sa integer, c as integer a=5: b=10: c=15 print fun(a,b,c)+fun(a,b,c)end subprivate function fun(x as integer, y as integer, z as integer ) as integer z=x x=x+y y=y+z fun=x+yend function 程序运行后abc值变为什么呀，其中的fun(a,b,c)+fun(a,b,c)如何计算呢，最好详细点啊

Answer 1

运行后a,b,c的值变成了 30 30 15 最后输出的是90 计算 fun(a,b,c)可以看下面:第一次private function fun(x as integer, y as integer, z as integer ) as integer '传进来后 x=a=5 y=b=10 z=c=15 z=x '此时z变成 5 x=x+y '此时x变成5+10=15 y=y+z '此时y变成 10+5=15 fun=x+y '返回x+y即 30 (此时a,b,c变为15 15 5,这里很重要!!!)end function 第二次依此类推private function fun(x as integer, y as integer, z as integer ) as integer '传进来后 x=a=15 y=b=15 z=c=5 z=x '此时z变成 15 x=x+y '此时x变成15+15=30 y=y+z '此时y变成 15+15=30 fun=x+y '返回x+y即 60 (此时a,b,c变为30 30 15!!!)end function 所以返回二次函数调用的结果为 30+60 即 输出 90 传址的时候默认是会修改传进去的参数的,即a 传给 x,而程序中x改变,a也会跟着改变..所以一般不采用在函数中改变参数值的做法,可以在fun里写上 i=x :j=y: k=z 再用i,j,k来进行你需要的计算,这样就不会出现非预期的问题了.像你这样使用函数明显会出问题的,你们老师应该强调这一点吧.如果不想参数跟着修改的话,可以用()把参数括起来,比如 print fun((a),(b),(c)) 这样的方式 ,那么在函数fun中如何修改x,y,z的值,a,b,c都不会跟着变的!!

Answer 2

输出60，类型参数默认都是值传参，也就是不影响原来参数的值，所以第一次fun(x, y, z) = fun(a, b, c) = fun(5, 10, 15)：x = 5，y = 10，z = 15z = x，这里z变为x的值5，但是c的值没改变还是15x = x + y = 5 + 10 = 15，a的值没变化y = y + z = 10 + 5 = 15，b的值没变化返回x + y = 15 + 15 = 30 也就是第一次掉用fun()函数后结果是30，第二次调用fun()还是传入参数a，b，c，因为执行函数对a，b，c没有影响，所以还是传入5，10，15，结果还是30，30+30=60，最后打印出60。

Answer 3

fun(a,b,c) + fun(a,b,c)z=5 + z=15x=5+10=15 x=15+15=30y=10+5=15 y=15+15=30fun=15+15=30 fun=30+30=60a=15,b=15,c=5 a=30,b=30,c=15结论为30+60=90,a=30,b=30,c=15