[求助]这个代码的结果是多少，为什么？
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
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
2007-04-21 09:41
2007-04-21 15:17
2007-04-21 15:31
2007-04-21 21:51
