问题
单项选择题
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：
Private sub Command1_Click()
For k=List1.ListCoum-1 To 0 step-1
If List1.Selected(k) Then
List2.AddItem List1.List(k)
List1.RemoveItem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（）
A．在List2中插入了“外语”、“物理”两项
B．在List1中删除了“外语”、“物理”两项
C．同时产生A)和B)的结果
D．把List1中最后1个列表项删除并插入到List2中
答案
参考答案：C
解析：
For k=List1.ListCount-1 To 0 Step-1/*循环倒序遍历List1中的所有内容*/
If List1.selected(k)Then /*如果被选中，那么*/
List2.Addhem List1 List1.List(k) /*List2中增加选中的条目*/
List1.Removehemk /*把选中条目移除*/
End If /*结束条件If*/
Next k /*查看List1中下一条目*/所以正确的答案为C)。