把代码写一下啊

来源：百度知道 编辑：UC知道 时间：2024/06/07 02:28:19
15) 。新建一个工程，左右两边各放置一个列表框listbox的控件list1和list2，在list1中竖排显示内容“第一题、第二题、第三题、第四题、第五题”这五项。在两个列表框中间竖排四个命令按钮，标题分别为“＜”、“＞”、“＜＜”、“＞＞”。实现程序功能：

3）点击“＜＜”将lixt1中所有的选项添加到list2中，并将list1中的项清空。
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(0)
List1.RemoveItem 0
Next
为什么是List1.List(0)----0啊？

Private Sub Command1_Click()
'>
If List1.Text <> "" Then
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
End Sub

Private Sub Command2_Click()
'<
If List2.Text <> "" Then
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
End If
End Sub

Private Sub Command3_Click()
'>>
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(0)
List1.RemoveItem 0
Next

End Sub

Private Sub Command4_Click()
'<<
For i = 0 To List2.ListCount - 1
List1.AddItem List2.List(0)
List2.RemoveItem 0
Next
End Sub

Private Sub Form_Load()
List1.AddItem "第一题"
List1.AddItem "第二题"
List1.AddItem "第三题"
List1.AddItem "第四题"
List1.AddItem "第五题"
List1.AddItem "第六题