窗体卜有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中插入了“外语”、“物理”两项B．在Listl中删除了“外语”、“物理”两项C．同时产生A)和B)的结果D．把Listl中最后1个列表项删除并插入到List2中
窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：
Private sub Commandl_Click()
For k：Listl．ListCount_l To 0 step-1
Tf Listl．Selected(k)Then
List 2．AddItern Listl．List(k)
Listl．Removehem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是
A．在List2中插入了“外语”、“物理”两项
B．在Listl中删除了“外语”、“物理”两项
C．同时产生A)和B)的结果
D．把Listl中最后1个列表项删除并插入到List2中
相关考题：
在窗体上画一个名称为Listl酌列表框，一个名称为Labell的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：______。A． Private Sub Listl_Click() Labell.Caption=Listl.ListIndex End SubB．Private Sub Listl_Click() Labell.Name=Listl.ListIndex End SubC．Private Sub Listl_click() Labell.Name=Listl.Text End SubD．Private Sub Listl_Click() Labell.Caption=Listl.Text End Sub
在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。A．Private Sub Listl_Click() Labell.Capfion=Listl.Listlndex End SubB．PrivateSubLial click() Labell.Name=Listl.Listlndex End SubC．PrivateSubListl click() Labell.Name=Listl.Text End SubD．Private Sub Listl_Click() Labell.Caption=Listl.Text End Sub
设窗体上有一个列表框控件Listl，含有若干列表项。以下能表示当前被选中的列表项内容的是A．Listl．ListB．Listl．ListlndexC．Listl．TextD．Listl：Index
往窗体Form1上添加一个列表框控件List1，并编写如下代码： Private Sub Form_Load() For i=0T06 Listl.AddItem i Next i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置Listl的属性______。A．Lial.ListB．Listl.ListlndexC．Listl.MultiSelectD．Listl.Text
设窗体上有_个名为Listl的列表框，并编写下面的事件过程：Private Sub Listl_Click()Dim ch As Stringch=Listl．List(Listl．Listlndex)Listl，RemoveItem Listl．ListIndexListl．Addltem chEnd Sub程序运行时，单击一个列表项，则产生的结果是A．该列表项被移到列表的最前面B．该列表项被删除C．该列表项被移到列表的最后面D．该列表项被删除后又在原位置插入
（ 31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （ 见图 ） ， 并有下面的程序：Private Sub Comand1_Click （）For k=List1.ListCount-1 To 0 Step -1If List1.Selected （ k ） ThenList2.AddItem List1.List （ k ）List1.RemoveItem kEnd IfNext kEnd Sub程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项C ）同时产生 A ）和 B ）的结果D ）把 List1 中最后 1 个列表项删除并插入到 List2 中
在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labell中显示所选中的项目，如图所示。请在______处填入适当的内容，将程序补充完整。Private Sub Form. load()Listl.AddItem “北京”List1.AddItem “上海”List1.AddItem “河北”End SubPrivate Sub ______()Labell.Caption=______End Sub
窗体上有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中
(32）设窗体上有一个名为List 1的列表框，并编写下面的事件过程：Private Sub Listl_C1ick()Dim ch As StringCh=Listl．List(List l .ListIndex)Listl.RemoveItem Listl.ListIndexListl.AddItem chEnd Sub程序运行时，单击一个列表项，则产生的结果是A）该列表项被移到列表的最前面B）该列表项被删除C）该列表项被移到列表的最后面D）该列表项被删除后又在原位置插入