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

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

admin2015-11-25  57
问题 窗体上有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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)