窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Com.mand1),则可删除列表框Listl中所有该姓氏的项目。若编写以下实现此功能: Private Sub Commandl_Click() Dim n%.k% n=Len(Textl.Text) For k=0 To Listl.ListCount-1 If Left(Listl.List(k),n)=Text1.Text Then Listl.Removeitem k End If Next k End Sub 在调试时发现,如输入“”,可以正确删除所有姓“”的项目,但输入“”,则只删除了“邦”、“备”2项,结果如图2所示。这说明程序不能适应所有情况,需要修改。正确的修改方案是把For k:0 To Listl.ListCount-1改为