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
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/29 05:54:34
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.