在窗体上建立如下图所示的界面。在列表框List1中已有若干人的简单信息，运行时Text1文本框输入一个姓或姓名，单击"查找"按钮，则在列表框中进行查找。若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表框，则只显示第一个匹配项；若未找到，则在Text2文本框中显示"查无此人"。请完成下列的程序代码。 Private Sub Command1_Click（) Dim k As Int

在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 设窗体上有一个列表框控件List1，含有若干列表项。下列能表示当前被选中的列（） 下列语句中，获得列表框List1中项目个数的语句是（）。 以下( ) 语句将删除列表框List1中的最后一项。 在一个列表框对象List1中添加一项内容，可通过List1的（）方法实现 清除list1列表框对象的内容的语句是list1.cls（） 下面表示列表框控件List1的最后一个项目 往窗体Form1上添加一个列表框控件List1，并编写如下代码： Private Sub Form_Load() For i=0 To 6 List1.AddItemiNext i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置List1的属性 _________。 在程序的空白行处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount______List2.RemoveItem（) Loop 在窗体上画一个名称为Label1的标签和一个名称为list1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签kabel1中显示所选中的项目，如图所示。请在 【14】 和 【15】 处填入适当内容，将程序补充完整。 Private Sub Form_load（) List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河 在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是（） 在窗体上有一个列表框，名称为List1，该列表框中有三个选项，分别为“123”、“456”和“789”，当前没有任何选项被选中，则执行List1．RemoveItem List1．ListIndex语句后，移去的是( )。 给程序的空白行选择适当的语句。程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。( ) Do While List2.List Count ______ List2.Removeltem0 Loop 在窗体上画一个名称为Labell的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如下图所示。请在______和______处填入适当的内容，将程序补充完整。 Private Sub Form_Load（) List1.AddItem "北京" List1.AddItem "上海" List1.AddItem 如果列表框List1中没有选定的项目，则执行语句“List1.RemoveItem List1. ListIndex”的结果是 在窗体上有一个列表框控件List1,含有若干列表项.以下能表示当前被选中的列表项内容的是: 窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Command1_ClickO Dim In As Integer In=______ List. Remove Ind End Sub 则在程序的空白行的语句是( )。 在窗体上有一个名称为Laell的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。 Private Sub Form_Load（)List1.AddItem“北京”List1.AddItem“上海”List1.AddItem“河北” End Sub Privat 在窗体上有一个名称为Labell的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如右图所示。请在空白处填入适当的内容，将程序补充完整。 Private Sub Form_Load（) List1.Addltem“北京” List1.Addltem“上海” List1.Addltem“河北” End Sub P 在程序的空白行处填写适当的语句，完成以下功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount ______List2. RemoveItem 0 Loop