问答题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
问答题
在名称为Form1的窗体上放置一个名称为Drive1的驱动列表框控件，一个名称为Dir1的目录列表框控件、一个名称为File1的文件列表框控件。程序运行时，可以对系统中的文件进行浏览，如下图所示。
注意：程序中不得使用任何变量，保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。
[*]
注意：程序中不得使用任何变量，保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。
[*]
【正确答案】文件系统控件有3种：驱动器列表框(Drive List Box)、目录列表框(Dir List Box)和文件列表框(File List Box)。3个文件系统控件必须协调工作才能构成一个文件管理系统，当用户在驱动器列表框中选择一个新的列表框或当目录列表框的Path属性改变会触发Change事件，将三者实现同步的代码为：File1.Path=Dir1.Path,Dir1.Path=Drive1.Drive。
根据题意，新建“标准EXE”工程，将一个分区列表框控件、一个目录列表框控件和一个文件列表框控件添加到窗体中，分区列表框的名称为Drive1，目录列表框的名称为Dir1，文件列表框的名称为File1。双击Drive1，进入代码窗口，编写如下代码：
Private Sub Dir1_Change() '将File1和Dir1相连
File1.Path=Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive '将Drive1和Dir1相连
End Sub
单击
根据题意，新建“标准EXE”工程，将一个分区列表框控件、一个目录列表框控件和一个文件列表框控件添加到窗体中，分区列表框的名称为Drive1，目录列表框的名称为Dir1，文件列表框的名称为File1。双击Drive1，进入代码窗口，编写如下代码：
Private Sub Dir1_Change() '将File1和Dir1相连
File1.Path=Dir1
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive '将Drive1和Dir1相连
End Sub
单击
【答案解析】
问答题
在名称为Form1的窗体上放置一个名为Label1的标签控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变，并且显示的字体为四号宋体字，如下图所示。
注意：程序中不得使用任何变量，保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。
[*]
注意：程序中不得使用任何变量，保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。
[*]
【正确答案】计时器控件是以一定的时间间隔激发计时器事件而执行相应的代码，其Interval属性决定时间问隔的长短，以毫秒为单位。所以要实现每一秒文本框的时间改变，只要将该属性设置为1000，要使程序运行后取得当前时间可用Time函数，程序用到的Str函数将其中的内容转化为字符串。
根据题意，新建“标准EXE”工程，将一个标签和一个计时控件添加到窗体中，将标签的名称设为Label1、字体大小设为四号宋体，Timer的名称为Timer1。双击Timer1，进入代码编写窗12，编写以下代码：
Private Sub Form_Load()
Label1.Caption=Str(Time)
End Sub
Private Sub Timer1_Timer()
Label1.Caption=Str(Time)
End Sub
单击
根据题意，新建“标准EXE”工程，将一个标签和一个计时控件添加到窗体中，将标签的名称设为Label1、字体大小设为四号宋体，Timer的名称为Timer1。双击Timer1，进入代码编写窗12，编写以下代码：
Private Sub Form_Load()
Label1.Caption=Str(Time)
End Sub
Private Sub Timer1_Timer()
Label1.Caption=Str(Time)
End Sub
单击
【答案解析】