执行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 = 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
与List1．Text属性值相同的是（ ）。
A:List1．ListCount B:List1．List(ListCount-1) C:List1．ListIndex D:List1．List(List．ListIndex)
与List1．Text属性值相同的是（ ）。
A:List1．ListCount B:List1．List(ListCount-1) C:List1．ListIndex D:List1．List(List．ListIndex)
与List1．Text属性值相同的是（ ）。
A:List1．ListCount B:List1．List(ListCount-1) C:List1．ListIndex D:List1．List(List．ListIndex)
单项选择
