（）用于设置在列表框中进行多个数据项的选择

A:MultiSelect B:List C:ListCount D:RowSource

执行list1.list（list1.listcount）=“80”会（）。

A:会产生错误信息 B:list1列表框最后一个表项被改为“80” C:list1列表框会增加一个“80”表项 D:指定list1列表框的表项个数为80个

窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能： 　　 Private Sub Command l Click（　） 　　Dim n％，k％ 　　n=Len(Text1．Text) 　　For k=0 To List1．ListCount-1 　　 If Left(List1．List(k)，n)=Text1．Text Then 　　 List 1．Removeltem k 　　 End If 　　 Next k 　　End Sub 　　在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1．ListCount-1改为( )。

A:For k=List1．ListCount-1 To 0 Step-1 B:For k=0 To List1．ListCount C:For k=1 To List1．ListCount-1 D:For k=1 To List1．ListCount

窗体如下图左图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能： Private Sub Command1_Click（　） Dim n%,k% n=Len(Text1.Text) For k=0 T0 List1.ListCount-1 If Left(List1.List(k),n)=Text1.Text Then List1.RemoveItem k End If Next k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如下图右图所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为( )。

A:For k=List1.ListCount-1 To 0 Step-1 B:For k=0 To List1.ListCount C:For k=1 To List1.ListCount-1 D:For k=1 To List1.ListCount

窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击"删除"按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能： Private Sub Command1_Click（　） Dim n%,k% n=Len(Text1.Text) For k=0 To List1.ListCount-1 If Left(List1.List(k),n)=Text1.Text Then List1.RemoveItem k End If Next k End Sub 在调试时发现，如输入"陈"，可以正确删除所有姓"陈"的项目，但输入"刘"，则只删除了"刘邦"、"刘备"2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为______。

A:For k=0 To List1.ListCount B:For k=1 To List1.ListCount C:For k=1 To List1.ListCount-1 D:For k=List1.ListCount-1 To 0 Step-1

窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程：
Private Sub Command1_Click( )
For i =0 To List1. ListCount - 1
If List1. Selected(i) = True Then
List2. Additem Text
End ff
Next
End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是( )。

A:将For循环的终值改为List1. ListCount B:将List1. Selected(i)=True改为List1. List(i). Selected=True C:将List2. AddItem Text改为List2. AddItem List1. List(i) D:将List2. AddItem Text改为List2. AddItem List1. ListIndex

窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能： Private Sub Command1_Click（　） Dim n%, k% n = Len(Text1. Text) For k = 0 To List1. ListCount - 1 If Left (List1. List (k), n) = Text1. Text Then List1. RemoveItem k End If Next k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1．Listcount-1改为( )。

A:For k = List1. ListCount - 1 To 0 Step - 1 B:For k = 0 To List1. ListCount C:For k = 1 To List1. ListCount - 1 D:For k = 1 To List1. ListCount

引用列表框(Listl)最后一个数据项应使用的表达式是( )。

A:Listl.List(List.．ListCount) B:Listl.List(Listl.ListCount-1) C:Listl.List(ListCount) D:Listl.List(ListCount-1)

窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程： Private Sub Command1_Click（　） For i=0 To List1.ListCount-1 If List1.Selected(i)=True Then List2.AddItem Text End If Next End Sub 上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是（）。

A:将For循环的终值改为List1.ListCount B:将List1.Selected(i)=True改为List1.List(i).Selected=True C:将List2.AddItem Text改为List2.AddItem List1.List(i) D:将List2.AddItem Text改为List2.AddItem List1.ListIndex

窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：   Private Sub Command1_Click（　） Dim n%，k% n=Len(Text1.Text) For k=0 To List1.ListCount-1 If Left(List1.List(k),n) =Text1.TextThen List1.Removeltem k End lf Next k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”两项，结果如图 2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为  

A:For k=List1.ListCount-1 To 0 Step-1 B:For k=0 To List1.ListCount C:For k=1 To List1.ListCount-1 D:For k=1 To List1.LstCount