单项选择题

窗体上有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
  程序运行时,在Text1中输入"京",单击命令按钮,则在Text2中显示的内容是( )。

A.京
B.北京南京
C.南京北京
D.没有匹配的项目