窗体如图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改为（　　）。

A.Fork=List1.ListCount-1To0Step-1

B.Fork=0ToList1.ListCount

C.Fork=1ToList1.ListCount-1

D.Fork=1ToList1.ListCount