首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为。Form1的窗体上添加一个名称为Frame1、标题为“框架”的框架,在框架内添加两个名称分别为Option1、Option2的单选按钮,其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中,框架为不可用。
(1)在名称为。Form1的窗体上添加一个名称为Frame1、标题为“框架”的框架,在框架内添加两个名称分别为Option1、Option2的单选按钮,其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中,框架为不可用。
admin
2015-10-23
32
问题
(1)在名称为。Form1的窗体上添加一个名称为Frame1、标题为“框架”的框架,在框架内添加两个名称分别为Option1、Option2的单选按钮,其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中,框架为不可用。运行程序后的窗体如图所示。
注意:存盘时必须存放在考牛文件夹下,工程义件名保存为sjt1.vbp,窗体文什名保存为可sjt1.frm。
(2)在名称为Form1的窗体上添加一个名称为Drivel的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件系统控什”,如图所示。请编写适当的程序,使得这二三个文件系统控什可以同步变化,即当驱动器列表框中显示的内容发生变化时,目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时,将在Labe12中显示选中的文件名。
注意:要求程序中不得使用变量,事件过程中只能写一条语句。
存盘时必须存放在考生文什央下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
步骤1:建立界面,添加相应的控件并设置控件的属性。程序中用到的控件及属性见表3.38。 [*] 步骤2:调试并运行程序,关闭程序后按题目要求存盘。 (2) 步骤1:新建一个窗体,按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性,如图3.28所示。 [*] 程序中用到的控件及属性见表3.39和表3.40。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 Private Sub Dirl_hange() Filel.Path=Dirl.Path’使目录列表框Dir1与文件列表框File1同步 End Sub Private Sub Drivel_Change() Dir1.Path=Drivel.Drive’使驱动列表框Drive 1与目录列表框Dir1同步 End Sub Private Sub Filel Click() Label2=File1.FileName.显示File1中的文件名 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)通过框架的Name、Caption和Enabled属性设置框架的名称、标签以及是否可用。通过单选按钮的Name、Caption和Viue属性设置单选按钮的名称、标签以及是否被选中。
(2)在实际应用中,驱动器列表框、目录列表框和文件列表框通常需要同步操作,这可以通过Path属性的改变引发Change事件来实现。
例如:
PriVate sub Dirl_Change()
File1.Path=Dirl.Path
End Sub
该事件过程使窗体上的目录列表框Dir1和文件列表框Filel产生同步。因为目录列表框的Path属性的改变将产生Change事件,所以在DM_Change事件过程中,把Dir1.Pmh赋给File1.Pmh即可产生同步效果。
类似地,增加下面的事件过程可使三种列表框同步操作。
例如:
PriVate Sub Drive1.Change()
Dirl.Path=Drive1.Drive
End Sub
该过程使驱动器列表框与目录列表框同步,前面的过程使目录列表框与文件列表框同步,从而使三种列表框同步。
转载请注明原文地址:https://kaotiyun.com/show/dWLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
单击命令按钮时,下列程序的执行结果为()。PrivateSubCommandl_Click()DimxAsInteger,yAsIntegerx=50:y=78CallPPP(x,y)Printx
在窗体(Name属性为Forml)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程:PrivateSubCommandl_Click()a=Text1
执行下面程序,第一行输出结果是【】,第二行输出结果是【】。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPriva
随机文件以[11]为单位读写,二进制文件以[12]为单位读写。
程序运行后,利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容,将程序补充完整。PtivateSubForm_load()Dima(1T05)AsInteger,n=5a(1)=20:a(2)=25:a(3)=10:
下面有关注释语句的格式,错误的是()。
下列程序运行时输出的结果是()。OptionBase1PrivateSubForm_Click()Dimx(10)ForI=1to10x(i)=10-I+1NextI
给文件改名的VB语句正确的是()。
能够将文本框控件隐藏起来的属性是【】。
为了使列表框中的项目分为多列显示,需要设置的属性为()。
随机试题
就这个方法本身而言,它值得一试。
下列关于吸附法的叙述,说法错误的是()。
风险识别工作不包括()。
甲企业(增值税一般纳税人)为某市一家酒厂,生产各种酒类产品。2014年2月,甲企业发生下列经营业务:(1)向乙企业销售白酒80吨,取得不含税销售收入400万元,另单独收取包装费37万元。向个人零售白酒5吨,取得销售额11.7万元。(2)
教师的“楷模"“榜样”“引路人”的角色,都充分说明了教师的劳动具有()
近年来,国家财政把支持解决“三农”问题放在财政工作的首要位置,从()城乡发展的战略高度出发,不断加大投入力度,目前已经初步()财政支持“三农”资金稳定增长机制。
2015年全年全国粮食总产量62143万吨,增长2.4%。谷物产量57225万吨,比上年增长2.7%。棉花产量560.5万吨,比上年下降9.3%。全年猪牛羊禽肉产量8454万吨,比上年下降1.0%,其中猪肉产量5487万吨,下降3.3%,而上年同期为增长3
火:热情:态度
农业示范基地
若f(x)=在x=0处连续,则a=______.
最新回复
(
0
)