单选题 窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为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 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中显示的内答是( )。
【正确答案】 C
【答案解析】解析:本题考查循环程序的分析以及列表框属性的应用。首先Instr(List1.List(k),s)语句的作用是在List1.List(k)中从头开始寻找s,找不到则返回0,否则返回s在List1.List(k)中的位置。整个循环体的功能是,从列表框中最后一个列表项开始寻找含有与Text1中输入的字符串相同的子串,如果存在相同的子串,则把List1.List(k)全部连接到str中。