计量标准的使用必须具备哪些条件？

窗体上有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=List1.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中显示的内容是( )。