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

[单选题]窗体如下左图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的

[单选题]窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Com．mand1)，则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能：Private Sub Commandl_Click()D．im n％．k％n=Len(Textl．Text)F．or k=0 To Listl．ListCount-1If Left(Listl．List(k)，n)=Text1．Text ThenListl．Removeitem kE．nd IfNext kE．n

[主观题]窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load（）F．or i=1 To 100If i Mod 7 =0 Then________

[主观题]如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。Private Sub Command1_Click（）D．im k As Integer, n As Integer, found As Booleanfound = Falsen = L

[单选题]在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是A．List1．Removeltem List1．TextB．List1．Removeltem List1．CIearC．List1．Removeltem List1．ListCountD．List1．Removeltem List1．Listlndex

[单选题]在窗体上绘制一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中的项目的名称。下列能正确实现上述操作的程序是 。A．Private Sub List1_Click()Labell.Caption=List.ListIndex End SubB．Private Sub List1_Click()Labell.Name=List1.ListIndex End SubC．Private Sub List1_Click()La

[单选题]在窗体上画一个名称为List1的列表框，一个名称为Labell的标签，在列表框中显示若干项内容。当单击列表框中的某项内容时，该项内容能在标签中显示出来。下列能够正确实现上述功能的程序是A．Private Sub List1_Click() Labell．Caption=List1．ListIndex End SubB．Private Sub List1_Click() Labell．Name=List1．ListIndex End SubC．PrivateSubListl click() Lab

[试题]在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。Private Sub Form_Load（）List1.AddItem "北京"List1.AddItem "上海"List1.AddItem "河北"E．nd SubPrivate Sub List1 (9) （）Labe1.Caption= (10)E．nd S

[单选题]在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是（ ）。A．Private Sub List1_Click（）Label1.Caption = List1.ListIndexE．nd SubB．Private Sub List1_Click（）Label1.Name=List1.ListIndexE．nd SubC．Private Sub List1_Click（

[单选题]在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是______。A．Private Sub List1_Click() Label1.Caption=List1.ListIndex List1.RemoveItem List1.Text End SubB．Private Sub List1_Click() Label1.Name=List1.Li