Option Explicit
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Call show(i)
Next i

End Sub
Private Sub show(ByRef x As Integer)
x = x + 1
Print "x="; x
End Sub

End Sub

x=2
x=4
x=6
x=8
x=10
还有应该用showme
不能用show

能告诉我为什么吗？

show方法是VB关键字..系统用过了，你要改个名字。

你的参数传递方式是ByRef

按你的过程相当于

for i=1 to 10 step 2
print i+1
next

还有一点不明白？

扔到VB6，F8单步调试……

你用的是byRef

所以你把i传进去的时候,x就是i了，那么当你传第一次，x=2，那么i也＝2了，然后返回循环，i自动加1，

所以你循环的就是1 3 5 7 9而已……

谢谢,我会了.