List1.RemoveItem ListCount
List1.Removehem Listl.ListCount
List1.RemoveItem ListCount-1
List1.RemoveItem Listl.ListCount-1
第1题:
列表框控件List1的最后一个表项为List1.List(List1.Listcount)。()
第2题:
在窗体上有一个列表框,名称为List1,该列表框中有三个选项,分别为“123”、“456”和“789”,当前没有任何选项被选中,则执行List1.RemoveItem List1.ListIndex语句后,移去的是( )。
A.123
B.456
C.789
D.出错
第3题:
设组合框Combol中有3个列表项,为了删除其最后一项,应使用的语句是______。
A.Combol.RemoveItem Combo1. ListCount
B.Combol.RemoveItem 3
C.Combol.RemoveItem Combol. ListCount-1
D.Combol.RemoveItem Combol. Text
第4题:
下列语句中,获得列表框Listl中项目个数的语句是
A.x=List1.ListCount
B.x=ListCount
C.x=List1.ListIndex
D.x=ListIndex
第5题:
设在窗体中有一个名称为Listl的列表框,其中有若干个项目(如图)。要求选中某一项后单击Commandl按钮,就删除选中的项,则正确的事件过程是。
A.Private SubCommandl_Click List1.Clear End Sub B.Private Sub Commandl_Click List1.Clear Listl.ListIndex End Sub C.Private Sub Commandl_Click List1.RemoveItem List1.ListIndex End Sub D.PrivateSubCommandl_Click List1.RemoveItem End Sub
第6题:
窗体上有list1、list2两个列表框,程序运行时,在两个列表框中分别选中1个项目,如图a所示,单击名称为Command1的“交换”按钮,则把选中的项目互换,互换后的位置不限。如图b所示。下面的程序可实现这一功能,请填空。

Private Sub Command1_Click()
If list1.text=””or list2.text””then
Msgbox”请选择交换的物品!”
Else
List1.additem list2.text
List2.removeitem【11】
【12】
List1.removeitem list1.listindex
End If
End Sub
第7题:
第8题:
如果列表框List1中没有被选定的项目,则执行List1.RemoveItem List1.ListIndex语句的结果是()。
第9题:
以下()语句将删除列表框List1中的最后一项。
第10题:
第11题:
移去第一项
移去最后一项
移去最后加入列表框中的一项
以上答案都不对
第12题:
List1中有ListCount-1个列表项
当List1.Selected(i)=True,表明第i项被选中
设置某些属性,可以使列表框显示多列数据
List1.Text的值是最后一次被选中的列表项文本
第13题:
设窗体上有一个名为List1的列表框,并编写下面的事件过程: Private Sub List1_Click( ) Dim ch As String ch=List1.List(List1.Listlndex) List1.RemoveItem List1.Listlndex List1.Addltem ch End Sub 程序运行时,单击一个列表项,则产生的结果是( )。
A.该列表项被移到列表的最前面
B.该列表项被删除
C.该列表项被移到列表的最后面
D.该列表项被删除后又在原位置插入
第14题:
设窗体上有_个名为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.该列表项被删除后又在原位置插入
第15题:
下列语句中,获得列表框List1中项目个数的语句是
A.x=List1.ListCount
B.x=ListCount
C.x=List1.Listlndex
D.x=ListIndex
第16题:
( 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 中
第17题:
执行list1.list(list1.listcount)=“80”会()。
A.会产生错误信息
B.list1列表框最后一个表项被改为“80”
C.list1列表框会增加一个“80”表项
D.指定list1列表框的表项个数为80个
第18题:
(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)该列表项被删除后又在原位置插入
第19题:
以下()语句将删除列表框List1中的最后一项。
第20题:
执行list1.list(list1.listcount)=“80”会()。
第21题:
Items.Insert
Items.End
Items.Add
Items.New
第22题:
会产生错误信息
list1列表框最后一个表项被改为“80”
list1列表框会增加一个“80”表项
指定list1列表框的表项个数为80个
第23题:
该列表项被移到列表的最前面
该列表项被删除
该列表项被移动到列表的最后面
该列表项被删除后又在原位置插入