哪位大侠能帮我 解答一下？

[勇者试炼]

编写程序 要求，程序运行初期，在左边的列表框内生成10个由大到小排列的 10 到 100 之间的随机整数，相应的动态菜单，我就不画了， 如果选择转移菜单下的"右移“命令，左边的列表框里的1个数移到右边的列表框中，单击”转移“菜单的”左移“ 那么右边的列表框里的 10个数字移到左边的列表框， 左边的列表框的名称为 lstleft， 右边的列表框的名称为 lstright
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Lstleft.AddItem Int((90 * Rnd) + 10)
Next i
End Sub

Private Sub mnumoveleft_Click()
Dim i As Integer, last As Integer
last = Lstright.ListCount - 1
For i = 0 To last ----------------|
Lstleft.AddItem Lstright.List(0) |——这个循环语句算出来的是什么？
Lstright.RemoveItem 0 ---------------| 为什么这样算？？？？
Next i
mnumoveright.Enabled = True
mnumoveleft.Enabled = False

End Sub

Private Sub mnumoveright_Click()
Dim i As Integer, last As Integer
last = Lstleft.ListCount - 1
For i = 0 To last --------------------|
Lstright.AddItem Lstleft.List(last - i) |—这个循环语句算出来的是什么呢？
Lstleft.RemoveItem last - i ------------| 为什么这样算？？
Next i
mnumoveright.Enabled = False
mnumoveleft.Enabled = True
End Sub

Private Sub mnufileexit_Click()
Unload Me
End Sub

[lovetsfuer]

For i = 0 To last ----------------|
Lstleft.AddItem Lstright.List(0) 算的是右列有多少行，从0开始，总个数是Lstleft.ListCount -1
Lstright.RemoveItem 0

For i = 0 To last --------------------|
Lstright.AddItem Lstleft.List(last - i) |—左边，左边行数应该是上面算过last-i
Lstleft.RemoveItem last - i ------------|

我的理解

[勇者试炼]

楼上的，你说的我还不太明白啊，

For i = 0 To last ----------------|
Lstleft.AddItem Lstright.List(0) |——这个循环语句算出来的是什么？
Lstright.RemoveItem 0
这个循环没用到 last 啊，怎么解？？

如果是算右列有多少行，为什么是，Lstleft.AddItem Lstright.List(0)？

[勇者试炼]

顶，哪位大哥帮帮我？？

[勇者试炼]

For i = 0 To last --------------------|
Lstright.AddItem Lstleft.List(last - i) |—这个循环语句算出来的是什么呢？
Lstleft.RemoveItem last - i ------------| 为什么这样算？？

[砸死牛顿的苹果]

自己按F8单步调试下不就知道了～

[lovetsfuer]

把右列的东西移到左列，移动的个数，循环是算要往左列移动多少。