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

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

谢谢你~