关于VB编程的列表框练习的问题。

功能如下1.单机列表框一中的列表项时，在文本框中将显示选项内容以及该选项位于列表框中的第几项
2.双击列表框一中的列表项时，在列表框二中添加该项。
3.单机添加，可以实现2的效果
4.双击列表框二中的列表项，可以将该项从列表框中删除
5.单机统计列表框一列表项总数，可以在文本框中显示列表框一中的列表总数
6.单机清除列表框二中的所有项，将删除列表框二中的所有项。
我想知道编这个的代码是什么
哪位大侠能够告诉我啊？？

答案：Private Sub Command1_Click() '添加按钮
    Dim i As Integer, j As Integer
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            For j = 0 To List2.ListCount - 1 '如果已经存在则不再添加该项
                If List2.List(j) = List1.List(i) Then Exit Sub
            Next
            List2.AddItem List1.List(i)
            Exit For
        End If
    Next
End Sub
 
Private Sub Command2_Click() '统计列表1
    Text1.Text = "列表1共 " & List1.ListCount & " 项"
End Sub
 
Private Sub Command3_Click() '清除列表2
    List2.Clear
End Sub
 
Private Sub List1_Click() '单击list1
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            Text1.Text = List1.List(i)
            Exit For
        End If
    Next
End Sub
 
Private Sub List1_DblClick() '列表1双击
    Command1_Click
End Sub
 
Private Sub List2_DblClick() '列表2双击
    Dim i As Integer
    For i = 0 To List2.ListCount - 1
        If List2.Selected(i) Then
            List2.RemoveItem i
            Exit For
        End If
    Next
End Sub

上一个：如何应用VB编程如何修改注册表编辑器?
下一个：利用VB编程计算100之内所有质数和。