请教VBA题

阴笑　发表于：2012-03-16 22:37:42 　

Private Sub s (By Val As Integer)

p=p*2

End Sub

Private Sub Command1_Click

Dim i As Ingeter

i=3

Call s(i)

If i>4Theni=i^2

MsgBox i

End Sub

输出结果为36，请帮忙详细解答一下为什么，谢谢！

纵云梯发表于：2012-03-16 23:51:09

阴笑兄我从新整理了你的代码为：

Private Sub Command1_Click()
Dim i As Integer
i = 3
Call s(i)
If i > 4 Then i = i ^ 2
MsgBox i
End Sub

Private Sub s(ByVal p As Integer)
p = p * 2
End Sub

MsgBox i最终的结果输出只能为3，而不可能像你所说的36。

因为i = 3不受Call s(i)影响而从新定值为。

总记录：1篇页次：1/1 9 1 :

Access交流中心