窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；

还有两个文本框，名称分别为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 IfInStr(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中显示的内容是______。

A．京

B．北京 南京

C．南京 北京

D．没有匹配的项目

C解析：InStr([首字符位置]字符串1，字符串2[,n])用来在“字符串1”中查找“字符串2”，如果找到，则返回“字符串2”的第一个字符在“字符串广中的位置。ListCount属性表示组合框中项目的数量。ListCount-1表示组合框中最后一项的序号。程序中循环变量的初值是列表框中的最后一个项目，终值是列表框中的第一个项目，此循环的作用是从列表框的最后一个项目到第一个项目中，找出列表框项目中包含“京”的项目，并将内容显示在Text2中。