如下图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Commandl_CliCk（) Dimk As Intege

在一个列表框对象List1中添加一项内容，可通过List1的（）方法实现 清除list1列表框对象的内容的语句是list1.cls（） 如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框)中输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Command1_Click（) Dim k As Integ 下面表示列表框控件List1的最后一个项目 在窗体上画一个列表框，名称为List1，然后编写如下事件过程：运行程序，在列表框中显示的数据项是（） 设窗体上有一个列表框控件List1，含有若干列表项。下列能表示当前被选中的列（） 如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查 找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查 找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显 示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。Private Sub Command1_Click（)Dim k As Integ 如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。Private Sub Command1_Click（) Dim k As Integer 在程序的空白行处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount______List2.RemoveItem（) Loop 如图16-10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Conmlandl_Click（)Dim k As I 给程序的空白行选择适当的语句。程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。( ) Do While List2.List Count ______ List2.Removeltem0 Loop 在窗体上画一个名称为Label1的标签和一个名称为list1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签kabel1中显示所选中的项目，如图所示。请在 【14】 和 【15】 处填入适当内容，将程序补充完整。 Private Sub Form_load（) List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河 如果列表框List1中没有选定的项目，则执行语句“List1.RemoveItem List1. ListIndex”的结果是 在窗体上画一个名称为Labell的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如下图所示。请在______和______处填入适当的内容，将程序补充完整。 Private Sub Form_Load（) List1.AddItem "北京" List1.AddItem "上海" List1.AddItem 在窗体上建立如下图所示的界面。在列表框List1中已有若干人的简单信息，运行时Text1文本框输入一个姓或姓名，单击"查找"按钮，则在列表框中进行查找。若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表框，则只显示第一个匹配项；若未找到，则在Text2文本框中显示"查无此人"。请完成下列的程序代码。 Private Sub Command1_Click（) Dim k As Int 在程序的空白行处填写适当的语句，完成以下功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount ______List2. RemoveItem 0 Loop 在程序的空白行处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount _______ List 2.RemoveItem 0 Loop 在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是（） 引用列表框(List1)最后一个数据项应使用 在窗体上有一个名称为Labell的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如右图所示。请在空白处填入适当的内容，将程序补充完整。 Private Sub Form_Load（) List1.Addltem“北京” List1.Addltem“上海” List1.Addltem“河北” End Sub P