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

谢谢你~