从A、B、C、D四个选项中，找出其划线部分与所给单词的划线部分读音相同的选项。

小题1:canal 

A．attack

B．valley

C．nation

D．damage小题2:mobile

A．local

B．motto

C．remove

D．honey小题3:calm  

A．half

B．already

C．capital

D．chalk小题4:ancient   

A．secure

B．fierce

C．incident

D．musician小题5:extra 

A．explore

B．exactly

C．exercise

D．explode

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