【正确答案】 C

【答案解析】[解析] For k=List1.ListCount-1 To 0 Step-1/*循环倒序遍历List1中的所有内容*/If List1.Selected(k)Then/*如果被选中，那么*/List2.Addltem List1.List(k)/*List2中增加选中的条目*/List1.RemoveItem k/*把选中条目移除*/End If/*结束条件If */Next k/*查看List1中下一条目*/所以正确的答案为C) 。