在程序运行期间，增加和删除列表框（或组合框)的方法是Addltem和【 】。

口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮。即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图16-5所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。 Private Sub Command1_C1ick() If List1. List1adex＞=【 】Then List1. Removeltem【 】 Label1. Caption=【 】 Else MsgBox "请选择要删除的项目" End If End Sub

口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。 Pfivme Sub Command1_Click() If List1.List1ndex＞=【 】Then List1.Removehem【 】 Label1.Caption=【 】 Else MsgBox“请选择要删除的项目”

End If End Sub

口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图20-8所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。

Private Sub Command1_Click() If List1.ListIndex＞=0 Then List1．RemoveItem【 】 LabeCaption=【 】 Else MsgBox“请选择要删除的项目” End If End Sub

按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。 下面是实现上述功能的程序，请填空。 Private Sub Form_Load() List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD" End Sub Private Sub Command1_Click() Dim L1 As Integer L1=【 】 If L1 ＞=0 Then List1.RemoveItem【 】 Labell.Caption=【 】 Else MsgBox("请选择要删除的项目") End If End Sub

ist1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount ______ List2.Removeltem 0 Loop

ist1中，并将移入List1中的项目从List2中删除。 Do While List2.ListCount ______ ListRemoveItem 0 Loop

图标是WindowsXP的重要元素之一。下列关于图标的叙述中，错误的是()。

A.图标只能代表某个应用程序

B.图标既可以代表程序，又可以代表文档

C.图标可以表示被组合在一起的多个程序

D.图标可能代表仍然在运行但窗口被最小化的程序

答案：A

20下列关于快捷方式的叙述中，错误的是()

A)快捷方式是指向一个程序或文档的指针

B)快捷方式是该对象本身

C)快捷方式包含了指向对象的信息

D)快捷方式可以删除、复制和移动

表项。当双击列表框中的某个项目时，在标签kabel1中显示所选中的项目，如图所示。

请在【 】和【 】处填入适当内容，将程序补充完整。 Private Sub Form_load() List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河北" End Sub Private Sub【 】() Label1.Caption=【 】 End Sub

。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。

Private Sub Form_Load() List1.AddItem“北京” List1.AddItem“上海” List1.AddItem“河北” End Sub Private Sub List1_Dblclick() Label.Caption=【 】 End Sub

当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图16-1所示。请在【 】和【 】处填入适当的内容，将程序补充完整。(2002年9月) Private Sub Form_load() List1. AddItem"北京" List1. AddItem"上海" List1. AddItem"河北" End Sub Private Sub【 】 () Label1. Caption=【 】 End Sub