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中显示的内容是______。