窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2, 1个名称为 Command1的命令按钮，并有以下程序Private Sub Command1_Click（）Dim str As String, s As String, k As Integers=Text1Str=””For k=List1.ListCount-1 to 0 Step-1If InStr（List.List（k）,s）>0 thenstr=str&List.Li
题目
窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有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（List.List（k）,s）>0 then
str=str&List.List（k）&” ”
End If
Next k
If str=””Then
Text2=”没有匹配的项目”
Else
Text2=str
End If
End Sub
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。
A．京
B．北京 南京
C．南京
D．没有匹配的项目
相似考题
更多“窗体上有1个名称为List的列表框,其中已经输入了若干个项目(如图所示):还有2个文本框,名称 ”相关问题
-
第1题：
在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是
A．Private Sub List1_Click( ) Label1.Caption=List1.List1ndex End Sub
B．Private Sub List1_Click( ) Label1.Name=List1.List1ndex End Sub
C．Private Sub List1_Click( ) Label1.Name=List1.Text End Sub
D．PrivateSubList1_Click( ) Label1.Caption=List1.Text End Sub
正确答案：D
解析：题中要求在Label中显示内容，则使用的是其Caption属性，而列表框的List1ndex属性指的是程序运行时被选定的选项的序号，而Text属性是被选定的选项的文本内容。 -
第2题：
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。A. 京
B. 北京南京
C. 南京北京
D. 没有匹配的项目
正确答案：C
C) 【解析】本题考查循环程序的分析以及列表框属性的应用。首先Instr(List1．List(k)，s)语句的作用是在List1．List(k)中从头开始寻找S，找不到则返回0，否则返回S在List1．List(k)中的位置。整个循环体的功能是，从列表框中最后一个列表项开始寻找含有与Text1中输入的字符串相同的子串，如果存在相同的子串，则把．List1．List(k)全部连接到str中。
-
第3题：
窗体上有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=Listl．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
C。【解析】InStr函数格式是：InStr([首字符位置，]字符串1，字符串2[，n])，即在“字符串1”中查找“字符串2”若找到，则返回“字符串2”的第一个字符在“字符串1”中的位置。而“字符串1”的第一个字符的位置为1，即指定一字符串在另一个字符串中最先出现的位置。题中利用For循环将S即Text1中文本在列表框中各项进行查找，若S在某列表项中则将该项放入Str中，并在Text2中显示该列表项，若Str为空则在Text2中显示“没有匹配的项目”。 -
第4题：
在窗体上绘制一个名称为List1的列表框，一个名称为Labe11的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是
A．PriVate Sub List1_Click() Labell.CaptiOn=List.ListIndex End Sub
B．PriVate Sub List1_Click() Labell.Name=listl.ListIndex End Sub
C．Private Sub List1_Click() Labell.Name=Listl.Text End Sub
D．Private Sub List1_Click() Labell.Caption=List1.Text End Sub
正确答案：D
解析：本题考查列表框的属性。列表框属性是历年考试重点，考生应多做相关练习。本题要注意区分ListIndex与Text属性。 ListIndex指被选中项的下标，而Text表示被选中项的内容。List1.Listlndex表示被选中的项本身，而 List1.Text表示被选中项的内容，故本题正确答案是A。同时本题还涉及Name与Caption的区别，考生也要注意区分。 -
第5题：
（ 30 ） 窗体上有 1 个名称为 List 的列表框 ， 其中已经输入了若干个项目 （ 如图所示 ） ： 还有 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 （ List.List （ k ） ,s ） >0 then
str=str&List.List （ k ） & ” ”
End If
Next k
If str= ”” Then
Text2= ” 没有匹配的项目 ”
Else
Text2=str
End If
End Sub
程序运行时，在 Text1 中输入 “ 京 ” ，单击命令按钮，则在 Text2 中显示的内容是（ ）
A ） 京
B ） 北京 南京
C ） 南京
D ） 没有匹配的项目
正确答案：C