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

问题：

窗体上有1个名称为List1的列表框,其中已经输入了若干个项目(如图所示)；还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序

Private Sub Command1_Click()Dim sl r As String,S As String,k As IntegerS=Text1lstr=" "For k=List1.List Count-1 To 0 Step-1If InStr (List1.List(k),s)>0 Thenstr=str&List1.List(k)＆" "End IfNext kIf str=" "ThenText2="没有匹配的项目"ElseText2=strEnd IfEnd Sub程序运行时,在Text1中输入"京",单击命令按钮,则在Text2中显示的内容是【 】

A．京

B．北京南京

C．南京北京

D．没有匹配的项目