function byref的问题

Question

Private Sub Command1_Click()
Dim a As Integer
add (a)
Print a
End SubPublic Function add(x As Integer)
    x = x + 1
End Function我觉得结果应该为1，但运行结果是0，why
编译环境vb6

Answer 1

你的调用方法不对！正确方法有三种：
1、call add(a)2、add a3、i=add(a)若你采用add (a)这种方式，VB会认为你传递的不是一个变量，而是一个表达式：(a)
这个表达式运算结果，虽然与a值相同，但却是保存在一个临时变量中，这个临时变量的改变，当然不会影响a的值！

Answer 2

neuafei(阿飞) ：我试过你的办法，结果不对。