【单选题】窗体如图 1 所示。要求程序运行时,在文本框 Text1 中输入一个姓氏,单击"删除"按钮 ( 名称为 Command1) ,则可删除列表框 List1 中所有该姓氏的项目。若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n% , k% n = Len(Text1.Text) For k = 0 ToListl.ListCount - 1 If Le...
【单选题】窗体如图 (a) 所示。要求程序运行时,在文本框 Text1 中输入一个姓氏,单击“删除”按钮,可删除列表框 List1 中所有该姓氏的项目。程序如下: Private Sub Commandl_Click() Dim n% , k% n = Len(Text1.Text) For k = 0 To List1.ListCount - 1 If Left(List1.List(k) , n) = ...