窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：Private sub Commandl_Click()For k：Listl．ListCount_l To 0 step-1Tf Listl．Selected(k)ThenList 2．AddItern Listl．List(k)Listl．Removehem kEnd IfNext kEnd Sub程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是A．在List2

设窗体上有_个名为Listl的列表框，并编写下面的事件过程：

Private Sub Listl_Click()

Dim ch As String

ch=Listl．List(Listl．Listlndex)

Listl，RemoveItem Listl．ListIndex

Listl．Addltem ch

End Sub

程序运行时，单击一个列表项，则产生的结果是

A．该列表项被移到列表的最前面

B．该列表项被删除

C．该列表项被移到列表的最后面

D．该列表项被删除后又在原位置插入

在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labell中显示所选中的项目，如图所示。请在______处填入适当的内容，将程序补充完整。

Private Sub Form. load()

Listl.AddItem “北京”

List1.AddItem “上海”

List1.AddItem “河北”

End Sub

Private Sub ______()

Labell.Caption=______

End Sub

(32）设窗体上有一个名为List 1的列表框，并编写下面的事件过程：

Private Sub Listl_C1ick()

Dim ch As String

Ch=Listl．List(List l .ListIndex)

Listl.RemoveItem Listl.ListIndex

Listl.AddItem ch

End Sub

程序运行时，单击一个列表项，则产生的结果是

A）该列表项被移到列表的最前面

B）该列表项被删除

C）该列表项被移到列表的最后面

D）该列表项被删除后又在原位置插入

（ 31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （ 见图 ） ， 并有下面的程

序：

Private Sub Comand1_Click （）

For k=List1.ListCount-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 个列表项，然后单击 Commandl 命令按钮，则产生的结果是

A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项

B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项

C ）同时产生 A ）和 B ）的结果

D ）把 List1 中最后 1 个列表项删除并插入到 List2 中

窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序： Private Sub Command1_Click（ ） For k=List1．ListCout-1 To 0 Step-1 If List1．Selected(k)Then List2．Addltem List1．List(k) List1．Removeltem k End If Next k End Sub程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。

A.在List2中插入了“外语”、“物理”两项

B.在List1中删除了“外语”、“物理”两项

C.同时产生A和B的结果

D.把List1巾最后1个列表项删除并插入到List2中