VBA题

12 Mod 10=2

32 Mod 10=2

所以本来 MsgBox x*y 可以理解成 MsgBox 2*2 结果应该是 4。

但由于你的 Public Sub p(n As Integer,ByVal m As Integer)中的 m 用 ByVal 来定义，结果 n 通过n=n Mod 10被从新定值为n=12 Mod 10=2，

但用ByVal来定义m，代表m只是一个影像值，即单独在Public Sub p中有用，即m=32 Mod 10=2，但这个m=2不会被Public Sub p以外的函数所引用。

外部的m是多少就是多少不会改变。

所以

Private Sub Command1_Click

Dim x AsInteger,y As Integer

x=12:y=32

Call p(x,y)

MsgBox x*y

End Sub

中x=12，但这个x被后来的Call p(x,y)从新定值为2（n=12 Mod 10=2），但y不会被Call p(x,y)所改变，即还是32。

所以最后的 MsgBox x*y 可解释为 MsgBox 2*32=64。