sub 过程调用！为什么输出后是 32,42 ？

easonzgf 发布于 2014-12-05 20:55， 336 次点击

Private Sub Command1_Click()

    Dim x As Integer, y As Integer
    x = 32: y = 42
    Call PCS(x, y)
    Print x; y
    End Sub
Public Sub PCS(ByVal n As Integer, ByVal m As Integer)
    n = n Mod 10 + 1
    m = m Mod 10 + 1

End Sub

2 回复

xzlxzlxzl2014-12-05 21:10

ByVal 是传值，你在子程序里怎么弄都不影响调用他的过程里的变量，应使用byref(默认的都是这种),传送变量地址，这时的操作就影响了参数的值。

easonzgf2014-12-05 21:41

回复 2 楼 xzlxzlxzl

谢谢你~