Option Explicit

Private Sub Form_click()
Dim i%, j%
j = 10
For i = 1 To j Step 2
i = i + 1
j = j - i
Next i
Print i; j
End Sub

请问i，j是怎么计算出来的！
感谢

[此贴子已经被作者于2006-6-24 13:54:18编辑过]

你单步下不就出来了？

这个和：
Option Explicit

Private Sub Form_click()
Dim i%, j%
  j = 10
  For i = 1 To 10 Step 2
      i = i + 1
      j = j - i
  Next i
  Print i; j
End Sub
效果等同