(1)在名称为Forml的窗体上添加一个名称为Framel、标题为“框架”的框架，在框架内添加两个名称分别为Optionl、Option2的单选按钮，其标题分别为“第一项”、“第二项”。要求通过设置控件的属性将“第二项”初始值设置为被选中，框架为不可用。运行程序后的窗体如图57—l所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjl．vbp，窗体文件名保存为sjl．frm。 (2)在名称为Forml的窗体上添加一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，名称为Labell、标题为“文件名”的标签和名称为Label2、BorderStyle为1的标签。将窗体的标题设置为“文件系统控件”，如图57—2所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时．目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将在Label2中显示选中的文件名。
【正确答案】正确答案：(1)根据题意，新建“标准EXE”工程，在窗体上添加一个框架控件，两个单选按钮控件，其中框架控件名称为Framel，Caption属性为“框架”，Enabled属性为False，单选按钮1的名称为Optionl，Caption属性为“第一项”，单选按钮2的名称为O．otion2，Caption属性为“第二项”，Value属性为True。单击
按钮运行程序，并按要求保存。 (2)本题主要考查标签的Name、Caption属性，窗体的Caption属性，驱动列表框的Name和Path属性，目录列表框的Name和Path属性以及文件列表框的Name、Path和FileName属性。根据题意，新建“标准EXE”工程，窗体Caption属性为“文件系统控件”，在窗体上添加驱动列表框名称为Drivel，目录列表框名称为Dirl，文件列表框名称为Filel，标签1名称为Labell、Caption属性为“文件名”，标签2名称为Label2、Caption属性为空、BorderStyle属性为1。双击进入代码窗口，编写如下代码： Private Sub Dirl_Change() Filel．Path=Dirl．Path End Sub Private Sub Drivel_Change() Dirl．Path=Drivel．Drive End Sub Private Sub Filel Click() Label2=Filel．FileName End Sub 单击
按钮运行程序，并按要求保存。 (2)本题主要考查标签的Name、Caption属性，窗体的Caption属性，驱动列表框的Name和Path属性，目录列表框的Name和Path属性以及文件列表框的Name、Path和FileName属性。根据题意，新建“标准EXE”工程，窗体Caption属性为“文件系统控件”，在窗体上添加驱动列表框名称为Drivel，目录列表框名称为Dirl，文件列表框名称为Filel，标签1名称为Labell、Caption属性为“文件名”，标签2名称为Label2、Caption属性为空、BorderStyle属性为1。双击进入代码窗口，编写如下代码： Private Sub Dirl_Change() Filel．Path=Dirl．Path End Sub Private Sub Drivel_Change() Dirl．Path=Drivel．Drive End Sub Private Sub Filel Click() Label2=Filel．FileName End Sub 单击【答案解析】