请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在名称为Form1的窗体上放置一个名称为Drivel的驱动列表框控件、一个名称为Dirl的目录列表框控件和一个名称为Filel的文件列表框控件。程序运行时,可以对系统中

admin2009-03-26  32

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上放置一个名称为Drivel的驱动列表框控件、一个名称为Dirl的目录列表框控件和一个名称为Filel的文件列表框控件。程序运行时,可以对系统中的文件进行浏览,如图10—1所示。
    注意:程序中不得使用任何变量;保存时必须存放在考生文件夹下,窗体文件名为sjl.frm,工程文件名为sjl.Vbp。
(2)在名称为Forml的窗体上放置一个名为Labell的标签控件和一个名为Timerl的计时器控件,程序运行后,文本框中显示的是当前的时间,而且每一秒文本框中所显示的时间都会随时间的变化而改变,并且显示的字体为四号宋体字,如图10—2所示。

注意:程序中不得使用任何变量;保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。

选项

答案 (1)文件系统控件有3种:驱动器列表框(DriveListBox)、目录列表框(DirListBox)和文件列表框(FileListBox)。3个文件系统控件必须协调工作才能构成一个文件管理系统,当用户在驱动器列表框中选择一个新的列表框或当目录列表框的Path属性改变触发Change事件,将三者实现同步的代码为:Filel.Path=Dirl.Path,Dirl.Path=Drivel.Drive。 根据题意,新建“标准EXE”工程,将一个分区列表框控件、一个目录列表框控件和一个文件列表框控件添加到窗体中,分区列表框的名称为Drivel,目录列表框的名称为Dirl,文件列表框的名称为Filel。双击Drivel,进入代码窗口,编写如下代码: Private Sub Dirl_Change() ’将Filel和Dirl相连 Filel.Path=Dirl End Sub Private Sub Drivel_Change() Dirl.Path=Drivel.Drive ’将Drivel和Dirl相连 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)计时器控件是以一定的时间间隔激发计时器事件而执行相应的代码,其Interval属性决定时间间隔的长短,以毫秒为单位。所以要实现每一秒文本框的时间改变只要将该属性设置为1 000,要使程序运行后取得当前时间可用Time函数,程序用到的Str函数将其中的内容转化为字符串。 根据题意,新建“标准EXE”工程,将一个标签和一个计时控件添加到窗体中,将标签的名称设为Labell、字体大小设为四号宋体,Timer的名称为Timer1。双击Timer1,进入代码编写窗口,编写以下代码: Private Sub Form_Load() Labell.Caption=Str(Time) End Sub Private Sub Timer1_Timer() Label1.Caption=Str(Time) End Sub 单击[*]按钮运行程序。并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/yLq0FFFM
0

最新回复(0)