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

admin2020-02-27  25

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

Private Sub Commandl.Click()
Dim strAs String,s As String,kAs Integer
S=Text1
str=…
For k=Listl.ListCount.1 To 0 Step.1
If InStr(List 1.List(k),s)>0 Then
str=str &Listl.List(k)&“  ”
End If
Next k
If str=Then
Text2=“没有匹配项目”
Else
Text2=str
End If
End Sub
程序运行时,在Textl中输入“京”,单击命令按钮,则在Text2中显示的内容是(    )。

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

答案C

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

最新回复(0)