输出的结果怎么这样啊？？高人指点。

[QQ472152323]

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = 8
b = 12
Print fun(a, b); a; b


End Sub

Private Function fun(ByVal a As Integer, b As Integer) As Integer
a = a Mod 5
b = b \ 5
fun = a
End Function
我认为是3，3，2
但是输出的是3，8，2
怎么回事？？
高人指点。

[贝隆]

楼主基础没有打好，难道你不知道函数fun中a是传值，也就是传a的一个副本？你做了运算，但不是对a做运算，是对其副本做运算
要想达到你的目的，参考如下代码：

Option Explicit

Private Sub Command1_Click()
  Dim a As Integer
  Dim b As Integer
  a = 8
  b = 12
  Print fun(a, b); a; b
End Sub

Private Function fun(ByRef a As Integer, b As Integer) As Integer
  a = a Mod 5
  b = b \ 5
  fun = a
End Function

[贝隆]

Byval
按值
一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。



ByRef
按地址
一种将参数地址而不是将值传递给过程的方式，这就使过程访问到实际的变量。结果，过程可改变变量的真正值。除非另作说明，否则按地址传递参数。

[QQ472152323]

a 是按值传递，b是按址传吗？？？？

[贝隆]

变量，默认都是Byval 的

[伊人]

过程中的参数在接收数据时要看其变量前有无关键字ByVal，如果有则是按值传递，即只接收不传回；如果没有或有ByRef，则是按地址传送，也就是说过程中最终的变量值要传回调用处。