Question

VB题目，求详细过程,谢谢！！

新建一个工程，左右两边各放置一个列表框ListBox的控件List1和List2，在List1中竖排显示内容“第一题、第二题、第三题、第四题、第五题”这五项。在两个列表框中间竖排四个命令按钮，标题分别为“＜”、“＞”、“＜＜”、“＞＞”。实现程序功能：
　　　1）点击“＜”将List1中所选中的项添加到List2中，并将List1中的项删除。
　　　2）点击“＞”将List2中所选中的项添加到List1中，并将List2中的项删除。
　　　3）点击“＜＜”将Lixt1中所有的选项添加到List2中，并将List1中的项清空。
　　　4）点击“＞＞”将List2中所有的选项添加到List1中，并将List2中的项清空。
最后保存。

Answer 1

'将 list2 中选中的项漏毕渣目移动到 list1 中
Private Sub Command2_Click()
    moveSelItem List2, List1
End Sub

'将 list1 中选中的项目移动到 list2 中
Private Sub Command3_Click()
    moveSelItem List1, List2
End Sub

'将 source 中选中的项目移动到 target 中（支持多选返悄功能）。
Private Sub moveSelItem(source As ListBox, target As ListBox)
    Dim i As Integer
    i = 0
    While i < source.ListCount
        If source.Selected(i) Then
            target.AddItem source.List(i)
            source.RemoveItem (i)
        Else
            i = i + 1
        End If
    Wend
End Sub

'将 list2 中所有的项目移动到 list1 中
Private Sub Command4_Click()
    moveAllItem List2, List1
End Sub

'将 list1 中所有的项目移动到 list2 中
Private Sub Command5_Click()
    moveAllItem List1, List2
End Sub

'将 source 中所有的项目移动到 target 中。
Private 数慎Sub moveAllItem(source As ListBox, target As ListBox)
    Dim i As Integer
    i = 0
    For i = 0 To source.ListCount - 1
        target.AddItem source.List(i)
    Next
    source.Clear
End Sub