【正确答案】 [操作步骤]
   步骤1：打开本题工程文件, 设置列表框的MultiSelect属性为2。
   步骤2：分析并编写程序代码。
   程序提供代码
   Private Sub List1_DblClick()
   ' Call MoveItem(?)
   End Sub
   Private Sub Command1_Click()
   Call MoveAll
   End Sub
   Public Sub MoveItem(L1 As ListBox, L2 As ListBox)
   ' L2.AddItem ?
   ' L1.RemoveItem ?
   End Sub
   Public Sub MoveAll()
   '    For i = 0 To    ?
   List2.AddItem List1.List(i)
   Next
   End Sub
   程序结束
   参考答案
   第1个?处填入：List1, List2
   第2个?处填入：L1.Text
   第3个?处填入：L1.ListIndex
   第4个?处填入：List1.ListCount - 1
   步骤3：调试并运行程序，关闭程序后按题目要求存盘。
   

【答案解析】[考点] 本题考点有：列表框的MultiSelect和ListCount属性、Call语句以及列表框的RemoveItem和AddItem方法。
在List1_DblClick事件过程中，通过Call语句调用MoveItem()函数，使该项目被添加到List2中，同时在List1中清除该项目。在Command1_Click事件过程中，通过Call语句调用MoveAll()函数，使List1中所有的项目显示在List2中(List2中已有项目不变)，List1中的内容不变。
   MultiSelect属性设置该列表框是否能选择多项。可能的取值如下。
   0(默认值)：表示不允许多重选择，用户一次只能选择一个。
   1：表示简单多重选定，用户用鼠标单击或按＜Space＞键来选取多重列表项，但一次只能增减一个项目。
   2：表示高级多重选定，用户可利用＜Ctrl＞键与鼠标的配合来进行重复选取，或利用与＜Shift＞键的配合进行连续选取。