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