首页 > 计算机应用技术> VB程序设计

题目内容（请给出正确答案）

[单选题]

设窗体上有一个列表框控件List1，且其中含有若干列表项，则以下能表示当前被选中的列表项内容的是（）。

A.List1.List

B.List1.ListIndex

C.List1.Index

D.List1.Text

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“设窗体上有一个列表框控件List1，且其中含有若干列表项，则…”相关的问题

第1题

在窗体上有一个名称为Laell的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项

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

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

点击查看答案

第2题

设List1为列表框控件，List1.Clear中的Clear是（)。

A.方法

B.对象

C.属性

D.事件

点击查看答案

第3题

列表框控件List1的最后一个表项为List1.List（List1.Listcount)。（)

列表框控件List1的最后一个表项为List1.List(List1.Listcount)。()

点击查看答案

第4题

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗

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

点击查看答案

第5题

窗体上有两个控件：一个是驱动器列表框Drive1，另一个是目录列表框Dir1，现在要使目录列表框跟随驱

动器列表框的变化而变化，则需在Drive1_Change事件过程中填入语句【】。

点击查看答案

第6题

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Labe11，通过属性窗

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

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

点击查看答案

第7题

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Commandl和Label1，通过属性窗

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

End If End Sub

点击查看答案

第8题

在窗体上画一个名称为Label1的标签和一个名称为list1的列表框。程序运行后，在列表框中添加若干列

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

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