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

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

admin2019-06-11  39
问题 窗体上有1个名为List1的列表框，其中已经输入了若干个项目(如图所示)；还有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中显示的内容是(    )。
选项 A、京
B、北京南京
C、南京北京
D、没有匹配的项目
答案C
解析 本题考查循环程序的分析以及列表框属性的应用。函数：InStr(List1．List(k)，s)的作用是在List1．List(k)中从头开始寻找s，找不到就返回0，否则返回s在List1．List(k)中的位置。整个循环的功能是，从列表框中最后一个列表项开始寻找含有与Text1中字符串相同的子串，如果存在相同的子串，把List1．List(k)全部连接到str中，并显示在Text2中。
转载请注明原文地址:https://www.kaotiyun.com/show/rRUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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