单项选择题

窗体上有一个名称为List1的列表框，其中已经输入了若干个项目(如图2所示)：还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序：


Private Sub Command1_Click()
Dim str As String, s As String, k As Integer
s=Text1
Str=""
For k=List1.ListCount-1 to 0 Step -1
If InStr(List.List(k), s)＞0 then
str=str&List.List(k)&""
End If
Next k
If str="" Then
Text2="没有匹配的项目"
Else
Text2=str
End If
End Sub
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是

点击查看答案&解析