PrivateSubgod(x%,y%,z%)x=3*z+1y=2*zz=x+yEndSubPrivateSubCommand1Click()Dimx%,y%,z%x=1:y=2:z=3Callgod(x,x,z)Printx,x,zEndSub612

Question

Private Sub god(x%,y%,z%)
x = 3 * z + 1
y = 2 * z
z = x + y
End Sub
Private Sub Command1_Click()
Dim x%,y%,z%
x = 1:y = 2:z = 3
Call god(x,x,z)
Print x,x,z
End Sub
6 12

Answer 1

你再考眼力吗?
Call god(x,x,z) 传递进去的是x ,x,z 的地址（实际上编译后是这样传的,和C不一样）,那就要注意了,在god子程序里面,x 不变,y是x,z
god函数内部初始状态时 x=1,y其实就是x ,z=3
x = 3 * z + 1
y = 2 * z
z = x + y
那么,
x=3*3+1=10
x=y=2*3=6
z=x+y=2*x=12
So ,最后print打印出来的是 Print x,x,z ==》》 6 6 12