您所在位置：主题：请大家 看看 这两段程序 并解释下 为什么？
聪明一袋烟
[专家分：330] 发布于 2010-11-16 13:28:00
Option Base 1
Private Sub Form_click()
Dim a
a = Array(10, 20, 30)
For j = j To a(j + 1)
k = 1
k = k * j
Next
Print k, j
End Sub
**********************第一段**********************
Option Base 1
Private Sub Form_click()
Dim a
a = Array(10, 20, 30)
For j = a(j + 1) To j Step -1
k = 1
k = k * j
Next
Print k, j
End Sub
**********************第二段**********************
大家自己下算下 结果 然后再运行下 看看结果 并告诉我 为什么？
Private Sub Form_click()
Dim a
a = Array(10, 20, 30)
For j = j To a(j + 1)
k = 1
k = k * j
Next
Print k, j
End Sub
**********************第一段**********************
Option Base 1
Private Sub Form_click()
Dim a
a = Array(10, 20, 30)
For j = a(j + 1) To j Step -1
k = 1
k = k * j
Next
Print k, j
End Sub
**********************第二段**********************
大家自己下算下 结果 然后再运行下 看看结果 并告诉我 为什么？
