窗体上有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.没有匹配的项目
参考答案:C
解析:对于列表框中的每个项目是通过列表框的Listlndex即索引值来引用的,不同的选项具有不同的索引值,索引值从0开始,最后一项的索引值是总项目数-1;在该题中,For循环是从列表项的最后一项开始倒查文本框1中的内容是否包含在列表框的某个项中,如果有则把该项的内容存到字符串变量str中,最后把所有符合条件的项目都存到变量str中,并赋值给文本框Text2,如果没有匹配的项目,则在文本框中显示"没有匹配的项目"。根据题意本题输入的是"京",则第一个包含"京"的应该是"南京",第二个是"北京"。