首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上添加一个名称为Framee1、标题为“框架”的框架,在框架内添加两个名称分别为Pption1、Option2的单选按钮,其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设为被选中,框架为不可用。运
(1)在名称为Form1的窗体上添加一个名称为Framee1、标题为“框架”的框架,在框架内添加两个名称分别为Pption1、Option2的单选按钮,其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设为被选中,框架为不可用。运
admin
2018-06-29
22
问题
(1)在名称为Form1的窗体上添加一个名称为Framee1、标题为“框架”的框架,在框架内添加两个名称分别为Pption1、Option2的单选按钮,其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设为被选中,框架为不可用。运行程序后的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保俘为sjt1.vbp,窗体文件夹保存为sjt1.frm。
(2)在名称为Form1的窗体上添加一个名称为Drvecl的躯动器列表框,一个名称为Dir1的目录列表框,一个名称为Filel的文件列表框,名称为Label1、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件系统控件”,如图所示。请编写适当的程序,使得这三个史件系统控件可以同步变化,即当驱动器列表框中显示的内容发生变化时,目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时.将在Lahel2中显示选中的文件名。
注意:要求程序中不得使用变量,事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
(1)步骤l:建立界面,添加相应的控件并设置控件的属性。程序中用到的控件及属性见表3.38。 [*] 步骤2:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:新建一个窗体,按照题目要求建立驱动器列表框、目录列表框和文件列表框控件并设置其属性,如图3.28所示。 [*] 程序中用到的控件及属性见表3.39和表3.40。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考答案 Private Sub Dirl Change() Filel.Path=Dirl.Path’使目录列表框Dirl与文件列表框Filel同步 End Sub Private Sub Drivel Change() Dirl.Path=Drivel.Drive’使驱动列表框Drive 1与目录列表框Dirl同步 End Sub Private Sub Filel C1ick() Label2=Filel.FileName’显示Filel中的文件名 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)通过框架的:Name、Caption和Enabled属性设置框架的名称、标签以及是否可用。通过单选按钮的Name、Caption和Value属性设置单选按钮的名称、标签以及是否被选中。
(2)在实际应用中,驱动器列表框、目录列表框和文件列表框通常需要同步操作,这可以通过Path属性的改变引发Change事件来实现。
例如:
Private Sub Dirl_Change()
Filel.Path=Diri.Path
End Sub
该事件过程使窗体上的目录列表框Dirl和文件列表框Filel产生同步。因为目录列表框的Path属性的改变将产生Change事件,所以在Dirl_Change事件过程中,把Dirl.Path赋给Filel.Path即可产生同步效果。
类似地,增加下面的事件过程可使三种列表框同步操作。
例如:
Private Sub Drivel_Change()
Dir1.Path=Drivei.Drive
End Sub
该过程使驱动器列表框与目录列表框同步,前面的过程使目录列表框与文件列表框同步,从而使三种列表框同步。
转载请注明原文地址:https://jikaoti.com/ti/Nsy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
VisualBasic集成环境由若干窗口组成,其中不能隐藏(关闭)的窗口是()。
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:FunctionFun(X)y=0IfX
以下打开VisualBasic菜单编辑器的操作中,错误的是()。
以下过程的功能是从数组中寻找最大值:PrivateSubFindMax(a()AsInteger,ByRefMaxAsInteger)DimsAsInteger.fAsInteger
设工程文件中包名称分别为Forml、Form2的两个窗体,且Forml的菜单属性设置如下:窗体FormI中的程序如下:DimFlagAsBooleanPrivateSubForm_Load()Fl
窗体上有一个名称为Labell的标签、一个名称为Timerl的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:DimnAsIntegerPrivateSubTimerl_Timer()
考生文件夹下的工程文件sjt5.vbp中有1个初始文本为空的文本框Textl,2个标题分别是“读数据”和“计算”的命令按钮;请添加1个标题为“各行最小数的平均值为”的标签Label2,再添加1个初始文本为空的文本框Text2,如图所示。程序功能如下:
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()Dimarrayl(10,10)AsInteger
在名称为Framel的框架中,有两个名称分别为opl、op2的单选按钮,标题分别为“单程”、“往返”,如图所示。
随机试题
巨噬细胞产生的主要细胞因子是
己知z=xy2e-x2y,求
A.低血糖B.胃肠道反应C.水肿D.心律失常胰岛素治疗糖尿病的不良反应主要是
下列关于CT薄层扫描的叙述,正确的是
脑出血以内囊出血最常见,其特征性的临床表现为
对犯罪分子只能判一种主刑;对同一犯罪行为只能在主刑之后判处一个或两个以上的附加刑。()
“劣币驱逐良币”规律发生在()。
①在利益的驱使下,行业内滋生了“流量至上”甚至“流量造假”等现象,亟待规范和引导。②互联网和社交媒体的升级迭代、文化娱乐产业的蓬勃发展,成为“粉丝经济”兴起的深厚土壤。③理性对待粉丝热情、引导粉丝合理消费,同时将明星效应转化为提升商业品牌知名度的契机,
给定资料 1.截至2013年11月13日,已有21个省(区、市)正式公布了2014年高考加分的相关政策和信息。与往年相比,2014年高考加分项目整体缩减,加分分值也相应降低。而其中广东加分改革政策力度较大,加分项目将由23项减为6项,缩减74%;同时大
出席学术讨论会的有三个足球爱好者,四个亚洲人,两个日本人,五个商人。以上叙述涉及了所有晚会参加者,其中日本人不经商。那么,参加晚会的人数是:
最新回复
(
0
)