![[单项选择题] 窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：Private sub Command1_Click()For k=List1.ListCo](http://www.mshxw.com/aiimages/31/249961.png "[单项选择题] 窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：Private sub Command1_Click()For k=List1.ListCo")
[单项选择题] 窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：![[单项选择题] 窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：Private sub Command1_Click()For k=List1.ListCo](/uploadfile/member/20180926/1537963150.jpg "[单项选择题] 窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：Private sub Command1_Click()For k=List1.ListCo")
Private sub Command1_Click()For k=List1.ListCoum-1 To 0 step-1If List1.Selected(k) ThenList2.AddItem List1.List(k)List1.RemoveItem kEnd IfNext kEnd Sub程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（）
A．在List2中插入了“外语”、“物理”两项
B．在List1中删除了“外语”、“物理”两项
C．同时产生A)和B)的结果
D．把List1中最后1个列表项删除并插入到List2中
参考答案：
CIf List1.selected(k)Then List2.Addhem List1 List1.List(k) List1.Removehemk End If Next k 所以正确的答案为C)。问题解析:
For k=List1.ListCount-1 To 0 Step-1
