Question

设有如下通用过程:Public function f(x as integer) Dim y as integer X=20 Y=2 F=x*y End function

设有如下通用过程:Public function f(x as integer) Dim y as integer X=20 Y=2 F=x*y End function

Answer 1

private sub command 1_click()
static x as inteter
x=10
y=5
y=f(X)
msgbox("x="&x&",y=“&y)
end sub

结果为x=20 y=40

为什么？？我也不知道。。

Answer 2

'f()中的x是传地址的
'所以本过程中的x=10,在y=f(x)后，x在f()里被改变成x=20并带回。
'y=f(x)即f(x)的返回值，f()返回值是f()中的x*y即20*2=40,因为f()中f=x*y