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