首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同
在窗体上画一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同
admin
2010-03-30
70
问题
在窗体上画一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化,并且在标签Labell中显示当前文件夹中文件的数量。如图所示。
能够正确实现上述功能的程序是
选项
A、PriVate Sub Dir1_Change() Filel.Path=Dir1.Path End Sub Private Sub Dirvel_Change() Dir1.Path=Drivel.Drive Labell.Caption=Filel.ListCount End Sub
B、Private Sub Dir1_Change() Filel.Path=Dir1.Path End Sub Private Sub Drivel_Change() Dirl.Path=Drivel.Drive Labell.Caption=Filel.List End Sub
C、Private Sub Dir1_Change() Filel.Path=Dir1.Path Labell.Caption=File1.ListCount End Sub Private Sub Drivel_Change() Dir1.Path=Drivel.Drive Labell.Caption=Fil1.ListCount End Sub
D、Private Sub Dir1_Change() File1.Path=Dir1.Path Labell.Caption=Filel.List End Sub Private Sub Drivel_Change() Dir1.Path=Drivel.Drive Labell.Caption=Filel.List End Sub
答案
4
解析
List属性用来列出表项的内容,可以加下标用“()”括起来配合使用。根据题意,应选择文件列表框的ListCount属性,该属性用于返回文件的数量值。故B、D项错误。A项缺少“Label1.Caption=Filel.ListCount”这一语句,从而使得在仅触动Dirl的Change事件时,Labell没有反应。
转载请注明原文地址:https://kaotiyun.com/show/3Y1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
由两个栈共享一个存储空间的好处是()。
Java程序可以分为Application和Applet两大类,能在WWW浏览器上运行的是【】。
Java程序与数据库的连接机制是()。
类testl定义如下:publicclasstest1{publicfloatamethod(floata,floatb){}}
Java语言的循环语句包括for语句、do-while语句和【】语句。
用来导入己定义好的类或包的语句是()。
随机试题
试述肠梗阻的腹部体征。
据《素问.异法方宜论》,中央之域人们的饮食特点是
对于输尿管结石引起梗阻而致的肾功能明显受损,应采取的措施是
环丙沙星的化学名为
根据《标准施工招标文件》(2007版)通用合同条款,承包人可能同时获得工期和费用补偿、但不能获得利润补偿的索赔事件有()。【2016年真题】
在会计核算过程中,会计处理方法前后各期()。
我国社会主义经济制度的基础是()。
窗体上有一个Textl文本框,并编写了下面事件过程:PrivateSubTextlKeyPress(KeyAsciiAsInteger)KeyAscii=KeyAscii+3EndSub程序运行时,在文本框中输入字符“A”,则在文本框中
Atwhattimeoftheyeardoesthisinterviewtakeplace?
A、Itisinterestingandcomfortable.B、Helikestoliveinabigcity.C、Itneedsmoremoneytolivehere.D、Itisdifficultto
最新回复
(
0
)