Question

这道access题目怎么破？

Answer 1

答案 D) 20 40

Public Function f(x As Integer) As Integer  '参数x为传址
Dim y As Integer
x = 20   '函数运行时参数被赋值为20（传址方式送回原地址）,原先的值对函数返回值无影响因为本行代码已将其被覆盖掉了
y = 2    '此处y乃内部变量对于外部不可见
f = x * y   '2乘20=40，函数返回40
End Function

Private Sub Command1_Click()
Dim y As Integer
Static x As Integer
x = 10
y = 5
y = f(x)     '过程内部变量y被赋值为函数f()的返回值40，而x的值因运行函数f()被赋值为20，所以答案是D）20 40
Debug.Print x; y
End Sub