（35 ）窗体如图 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