首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为Filel的文件列表框,名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件
在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为Filel的文件列表框,名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件
admin
2016-06-23
84
问题
在名称为Form1的窗体上添加一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为Filel的文件列表框,名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件系统控件”,如图所示。请编写适当的程序,使得这三个文件系统控件可以同步变化,即当驱动器列表框中显示的内容发生变化时,目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时,将在Label2中显示选中的文件名。
注意:要求程序中不得使用变量,事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
[操作步骤] 步骤1:新建一个窗体,按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性,如图3.28所示。 [*] 程序中用到的控件及属性见表3.39和表3.40。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考代码 Private Sub Dir1_Change() File1.Path=Dir1.Path’使目录列表框Dir1与文件列表框File1同步 End Sub Private Sub Drive1 Change() Dir1.Path=Drive1.Drive’使驱动列表框Drive1与目录列表框Dir1同步 End Sub Private Sub File1 Click() Label2=File1.FileName显示File1中的文件名 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/sSLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于过程及过程参数的描述中,错误的是
模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准则是模块的
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是
下列可以启动VisualBasic的方法是
以下语句中哪句可以选择指定的表项或取消已选择的表项
VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括()。
表达式Abs(-5)+Len("ABCDE")的值是
表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是
下面对语句的功能说明中错误的是Open"Text.Da"ForOutputAs#FreeFile
下列运算符中,优先级别最高的是
随机试题
下列证据可以成为行政诉讼证据的是()
患者,女性,26岁。孕1产0,孕20周。主诉日常活动后感乏力,心悸,气急,经检查确诊为妊娠合并心脏病,心功能Ⅱ级。为防止心衰,该患者妊娠期重点监测时间应放在
A.依诺肝素B.新抗凝、华法林C.水蛭素D.依达肝素E.氨甲环酸属于直接凝血酶抑制剂的是()。
膀胱造瘘拔管不可过早,是防止()
某房地产估价报告致委托方函(略)封面及目录(略)估价师声明(略) ××房地
某中标的施工企业与房地产开发商签订施工合同时,开发商强迫要求施工企业必须承诺在施工过程中无论发生什么情况都不得提出索赔,而施工企业在投标时,开发商并没有明确表示会有这一要求。开发商的这一要求违反了订立合同的()。
给定资料1.20岁的浙江温岭蓝孔雀幼儿园老师Y只是“为了好玩”,她双手捏住班上男童的耳朵,把他拎了起来,男童双脚离地大约有20厘米,双耳支撑全身的重量使他的脸看起来都变了形,疼痛使他张大了嘴,哇哇大哭起来。Y没有理他,她叫正在班上实习的童老
作为无形资产的土地使用权是指()。
改革开放是前无古人的崭新事业,必须坚持正确的方法论,在不断的实践探索中推进。具体地说()
CrashedCarstoTextMessageforHelpThereisnogoodplacetohaveacarcrash--butsomeplacesareworsethanothers.I
最新回复
(
0
)