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

admin2012-09-07  32

问题 窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如下图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Commandl的命令按钮,并有以下程序。
   
Private Sub Command 1_Click()
    Dim str As String,s As String,k As Integer
    s=Text1:str=“”
    For k=List 1.ListCount-1 To 0 Step-1
        If InStr(Listl.List(k),s)>0 Then
             str=str&List1.List(k)&“”
        EndIf
    Nextk
    If str“”Then
        Text2=“没有匹配项目”
    Else
        Text2=str
        EndIf
    End Sub
    程序运行时,在Text1中输入”京”,单击命令按钮,则在Text2中显示的内容是(    )。

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

答案C

解析 本题考查循环程序的分析以及列表框属性的应用。函数InStr(List1 List(k),s)的作用是在List1 List(k)中从头开始寻找s,找不到就返回0,否则返回s在List1.List(k)的位置。整个循环的功能是,从列表框中最后一个列表项开始寻找含有与Text1中字符串相同的子串,如果存在相同的子串,把List1List(k)全部连接到str中,并显示在Text2中。
转载请注明原文地址:https://kaotiyun.com/show/GChp777K
0

最新回复(0)