单选题 窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有 　　2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。 　　Private Sub Command1_Click() 　　 Dim str As String，S As String．k As Integer 　　 s=Text1 　　 str ="" 　　 For k=Listl．ListCount-1 To 0 Step-1 　　 If InStr(List1．List(k)，s)>0 Then 　　 str=str ＆ List1．List(k)＆"" 　　 End If 　　 Next k 　　 If str=""Then 　　 Text2="没有匹配的项目" 　　 Else 　　 Text2=str 　　 End If 　　End Sub