语句listl.removeitem 1 将删除list1.listindex等于()的项目.

A.0

B.2

C.3

D.1

A.A

B.B

C.C

D.D

A、0

B、2

C、3

D、1

窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Com．mand1)，则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能：

Private Sub Commandl_Click()

Dim n％．k％

n=Len(Textl．Text)

For k=0 To Listl．ListCount-1

If Left(Listl．List(k)，n)=Text1．Text Then

Listl．Removeitem k

End If

Next k

End Sub

在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k：0 To Listl．ListCount-1改为

A．For k=Listl．ListCount-1 To 0 Step-1

B．For k=0 To Listl．ListCoulit

C．For k=1 To List1．ListCount-1

D．For k=1 To List1．ListCount

窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Com．mand1)，则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能：

Private Sub Commandl_Click()

Dim n％．k％

n=Len(Textl．Text)

For k=0 To Listl．ListCount-1

If Left(Listl．List(k)，n)=Text1．Text Then

Listl．Removeitem k

End If

Next k

End Sub

在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k：0 To Listl．ListCount-1改为

A．For k=Listl．ListCount-1 To 0 Step-1

B．For k=0 To Listl．ListCoulit

C．For k=1 To List1．ListCount-1

D．For k=1 To List1．ListCount

单击Command1按钮时，将会把所有选中的选项全部删除。下列程序缺少的一句是______。Private Sub Command1_ Click () for i = List1. ListCount- 1 To 0 Step- 1 if ______ = True then List1. RemoveItem i End if Next iEnd Sub

A．List1.Select(i)

B．List1.Sort(i)

C．List1.List(i)

D．Ltst1.Select(List1.Listindex)

A.List1.ListIndex(2) = "Basic"

B.List1.List(1) = "Basic"

C.List1.List(2) = "Basic"

D.List1.ListIndex(1) = "Basic"

口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图20-8所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。

Private Sub Command1_Click() If List1.ListIndex＞=0 Then List1．RemoveItem【 】 LabeCaption=【 】 Else MsgBox“请选择要删除的项目” End If End Sub

List1中，并将移入List1中的项目从List2中删除 Do While List2.ListCount _____________________ List2.RemoveItem 0 Loop