窗體上有一個名為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中。