Private Sub remove(La As ListBox,Lb As ListBox)For i = 0 To La.ListCount - 1Lb.AddItem La.List(i)NextLa.ClearEnd Sub0 To La.ListCount - 1

Private Sub remove(La As ListBox,Lb As ListBox)For i = 0 To La.ListCount - 1Lb.AddItem La.List(i)NextLa.ClearEnd Sub0 To La.ListCount - 1
Private Sub remove(La As ListBox,Lb As ListBox)
For i = 0 To La.ListCount - 1
Lb.AddItem La.List(i)
Next
La.Clear
End Sub
0 To La.ListCount - 1

Private Sub remove(La As ListBox,Lb As ListBox)For i = 0 To La.ListCount - 1Lb.AddItem La.List(i)NextLa.ClearEnd Sub0 To La.ListCount - 1
For i = 0 To La.ListCount - 1 这是一个for循环,循环La.ListCount次,最后一次i=La.ListCount - 1.