Question

一道VB题目，求解答。请详细，多谢多谢！

在窗体上画一个命令按钮（Command1），并编写如下代码：
Function Fun1(ByVal a As Integer, b As Integer)
Dim t As Integer
t = a - b
b = t + a
Fun1 = t + b
End Function

Private Sub Command1_Click()
Dim x As Integer
x = 10
Print Fun1(Fun1(x, (Fun1(x, x - 1))), x - 1)
End Sub
单击命令按钮，输出结果是。

Answer 1

0 

执行时截图如下：

Answer 2

a是按值传递，b是按地址传递~
Fun1(x, x - 1）=Fun1（10,9）=（10-9）+（10-9+10）=12
Fun1(x, (Fun1(x, x - 1))=Fun1（10,12）=（10-12）+（10-12+10）=6
Fun1(Fun1(x, (Fun1(x, x - 1))), x - 1)=Fun1（6,9）=（6-9）+（6-9+6）=0

Answer 3

总共调用3层Fun1
最里面1层:Fun1(x,x-1) = x-(x-1)+x+x-(x-1) = 12
中间:Fun1(x,12) = x-12+x+x-12 = 3x-24 = 6
最外面:Fun1(6,x-1) = 6-(x-1) + 6 + 6-(x-1) = 0

所以最后结果是0

Answer 4

输出结果为0，可以直接在VB里运行代码,也可以自己算

Answer 5

0

a是byval传值的，b不是。