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

[主观题]

假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl，如图20-10所示。当改变了驱动器

列表框中的驱动器时，希望在目录列表框中显示相应驱动器的目录结构，可在Drive1_Change事件中输入语句【】。

查看答案

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

您可能会需要：

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

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

更多“假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表…”相关的问题

第1题

在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。

为了使它们同步操作，必须触发Drive1_Change()事件和Dir1_Change()事件，在这两个事件中执行的语句分别是【】和【】。

点击查看答案

第2题

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

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

点击查看答案

第3题

在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令

按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。下面是实现上述功能的程序，请填空。 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

点击查看答案

第4题

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

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

在窗体上画一个名称为Label1的标签和一个名称为list1的列表框。程序运行后，在列表框中添加若干请在【】和【】处填入适当内容，将程序补充完整。 Private Sub Form_load() List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河北" End Sub Private Sub【】() Label1.Caption=【】 End Sub

点击查看答案

第5题

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

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

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

点击查看答案

第6题

在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click（) List1.

在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1：List1.RemoveItem2 List1.RemoveItem 3 End Sub Private Sub Form_Loab() List1.AddItem "ItemA ":List1.AddItem "Item B" List1.AddItem"Item C"：List1.AddItem "ItemD" List1.AddItem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是【】。

点击查看答案

第7题

如图16－10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的

如图16-10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Conmlandl_Click() Dim k As Integer, n As Integer, found As Boolean found=False n=Len(【】) k=0 While k＜List1. ListCount And Not found If Text1=Left $(List1. List(k), n)Then Text2=【】 found=True End If k=k+1 Wend If Not found Then Text2="查无此人" End If End Sub

如图16－10所示．在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对

点击查看答案

第8题

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

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

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

点击查看答案

第9题

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

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

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Labe11 Private Sub Command1_Click() If List1.ListIndex＞=0 Then List1．RemoveItem【】 LabeCaption=【】 Else MsgBox“请选择要删除的项目” End If End Sub

点击查看答案

湘ICP备20004669号-2 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）