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 中显示的内容是（）
A ） 京
B ） 北京 南京
C ） 南京
D ） 没有匹配的项目