窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序: Private Sub Commandl Click() Dim str

admin2015-11-25  35

问题 窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序:
Private Sub Commandl 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(Listl.List(k),s)>0 Then
str=s

选项 A、北京
B、北京  南京
C、南京  北京
D、没有匹配的项目

答案C

解析 本题考查循环程序的分析以及列表框属性的应用。首先Instr(Listl.List),s)语句的作用是在Listl_List(k)中从头开始寻找s,找不到则返回0,否则返回s在Listl.List(k1中的位置。整个循环体的功能是,从列表框中最后一个列表项开始寻找含有与Textl中输入的字符串相同的子串,如果存在相同的子串,则把Listl.List(k)全部连接到str中。
转载请注明原文地址:https://kaotiyun.com/show/EjLp777K
0

最新回复(0)