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

用户选择的列表框List1中的内容，可以表示为( ) 引用列表框List1被选中项数据应使用( )。 在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1 Click事件过程中能正确实现上述功能的语句是（)。 假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl，如图20-10所示。当改变了驱动器列表框中的驱动器时，希望在目录列表框中显示相应驱动器的目录结构，可在Drive1_Change事件中输入语句 【7】 。 在窗体上有一个名称为Laell的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。 Private Sub Form_Load（)List1.AddItem“北京”List1.AddItem“上海”List1.AddItem“河北” End Sub Privat 以下( ) 语句将删除列表框List1中的最后一项。 下列语句中，获得列表框List1中项目个数的语句是（）。 在一个列表框对象List1中添加一项内容，可通过List1的（）方法实现 如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框)中输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Command1_Click（) Dim k As Integ 清除list1列表框对象的内容的语句是list1.cls（） 如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。Private Sub Command1_Click（) Dim k As Integer 下面表示列表框控件List1的最后一个项目 设窗体上有一个列表框控件List1，含有若干列表项。下列能表示当前被选中的列（） 在程序的空白行处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount______List2.RemoveItem（) Loop 如下图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Commandl_CliCk（) Dimk As Intege 给程序的空白行选择适当的语句。程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。( ) Do While List2.List Count ______ List2.Removeltem0 Loop 在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项如图所示。请在空白处填入适当的内容，将程序补充完整。 Private Sub Form _Load（) List1．AddItem"北京" List1．Addltem"上海" List1．AddItem"河北" End Sub Pri 如果列表框List1中没有选定的项目，则执行语句“List1.RemoveItem List1. ListIndex”的结果是 在程序的空白行处填写适当的语句，完成以下功能：依次自动将列表框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