（10）在程序的空白行处填写适当的语句，完成下列功能：依次自动将列表List2中所有列表项目移入列表框List1中的项目从List2中的项目从List2中删除。 Do While List2.ListCount List2.RemoveItem0 Loop
题目
（10）在程序的空白行处填写适当的语句，完成下列功能：依次自动将列表List2中所有列表项目移入列表框List1中的项目从List2中的项目从List2中删除。 Do While List2.ListCount List2.RemoveItem0 Loop
相似考题
更多“(10)在程序的空白行处填写适当的语句,完成下列功能:依次自动将列表List2中所有列表项目移入列表 ”相关问题
-
第1题：
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：
Private Sub Command1_Click()
Dim In As Integer
In=______
List.Remove Ind
End Sub
则在程序的空白行的语句是( )。
A．List1.Index
B．List1.ListIndex
C．List1.Text
D．List1.ListCount
正确答案：B
解析：Index属性返回或设置唯一的标识控件数组中一个控件的编号；ListIndex属性返回或设置控件中当前选择项目的索引；ListCount属性返回列表控件中项目的个数；Text属性返回列表框中选择的项目，是string类型，这里需要一个数值类型，所以使用ListIndex。 -
第2题：
在窗体上画一个名称为Labell的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如下图所示。请在______和______处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub List ______()
LabeCaption = ______
End Sub
正确答案：DblClick Listl.Text
DblClick , Listl.Text -
第3题：
给程序的空白行选择适当的语句。程序段的功能是：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。( ) Do While List2.List Count ______ List2.Removeltem0 Loop
A．List1.AddltemList2.List(0)
B．List1.Addltem List2.Text
C．List2.AddltemList1.List(0)
D．List2.AddltemList1.Text
正确答案：A
-
第4题：
在窗体上画一个名称为Lablel的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labell中显示所选中的项目，如图所示。请在______处填入适当的内容，将程序补充完整。
Private Sub Form. load()
Listl.AddItem “北京”
List1.AddItem “上海”
List1.AddItem “河北”
End Sub
Private Sub ______()
Labell.Caption=______
End Sub
正确答案：List1 DblClick或 Form1.Listl DblCiick或Me.List1 DblClick Listl.Text 或 Listl 或 Forml.Listl.Text 或 Me.Listl.Text或Forml.Listl或Me.Listl
List1 DblClick或 Form1.Listl DblCiick或Me.List1 DblClick , Listl.Text 或 Listl 或 Forml.Listl.Text 或 Me.Listl.Text或Forml.Listl或Me.Listl 解析：由于本程序要响应列表框的双击事件，故第一处应填：Listl_DblClick。指明List1所属的窗体也可以，上面的答案是等价的。列表框的Text属性返回被选中的列表框的内容，根据题意，第二处应该填：List1.Text。同时由于Text属性是列表框的属性值，可以省略不写，故上述答案是等价的。 -
第5题：
窗体上有一个命令按钮Commalld1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下： Private Sub Command1_Click() Dim In As Integer In=______ List.Removc Ind End Sub 则在程序的空白行的语句是( )。
A．List1.Index
B．List1.ListIndex
C．List1.Text
D．List1.ListCount
正确答案：B
解析：Index属性返回或设置惟一的标识控件数组中一个控件的编号；ListIndex属性返回或设置控件中当前选择项目的索引；ListCount属性返回列表控件中项目的个数；Text属性返回列表框中选择的项目，是string类型，这里需要一个数值类型，所以使用ListIndex。