请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 1.在名称为Form1的窗体上放置一个名称为Drive1的DriveListBox控件,一个名称为Dir1的DirListBox控件和一个名称为File1的FileListBo

admin2009-03-17  55

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
1.在名称为Form1的窗体上放置一个名称为Drive1的DriveListBox控件,一个名称为Dir1的DirListBox控件和一个名称为File1的FileListBox控件。程序运行时,可以对系统中的文件进行浏览;当双击File1中的文件名时,用MsgBox显示文件名(不显示路径名)。
   注意:程序中不得使用任何变量;保存时必须存放在考生文件夹下,窗体文件名为Sjt1. frm,工程文件名为sjt1.vbp。
   2.在名称为Form1的窗体上放置一个名为Text1的文本框控件和一个名为Timer1的计时器控件,程序运行后,文本框中显示的是当前的时间,而且每一秒文本框中所显示的时间都会随时间的变化而改变。
   注意:程序中不得使用任何变量;保存时必须存放在考生文件夹下,窗体文件名为sjt2. frm,工程文件名为sjt2.vbp,如图1—1所示。

选项

答案① 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 ② 文件系统控件有3种:驱动器列表框(DriveListBox),目录列表框(DirListBox)和文件列表框(FileListBox)。3个文件系统控件必须协调工作才能构成一个文件管理系统,当用户在驱动器列表框中选择一个新的列表框或在当目录列表框Path的属性改变都触发Change事件,将三者(利用本题中3个对象的名称)实现同步的代码为:File1.Path=Dir1.Path,Dir1. Path=Drive1.Drive。双击触发 DblClick事件弹出MsgBox显示文件名,其格式为:MsgBox提示[,按钮][,标题]。 ③ 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表1。 表 1标题 属性 设置值 [*] DriveListBox Name Drive1 DirListBox Name Dir1 FileListBox Name File1   第二步:编写程序代码。 参考代码:   Option Explicit   Private Sub Dir1_Change()     File1.Path=Dir1.Path   End Sub   Private Sub Drive1_Change()     Dir1.Path=Drive1.Drive   End Sub   Private Sub File1_dblclick()     MsgBox File1.FileName   End Sub   Private Sub Form_Load()     Dir1.Path=Drive1.Drive     File1.Path=Dir1.Path   End Sub   第三步:调试并运行程序。   第四步:按题目要求存盘。 2.① 在窗体上建立好控件后,先设置控件的属性,再编写事件过程。   ② 时钟控件作用是以一定的时间间隔激发计时器事件(Timer)而执行相应的程序代码,其Interval属性决定时间间隔的长短,以毫秒为单位,所以要实现 每一秒文本框的时间改变只要使该属性设置为1000即可,要使程序运行后取得当前时间可用Time函数取得,程序用到的Str函数将其中的内容转化为字符串。   ③ 解题步骤:   第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表2。                                   表 2 [*] 标 题 属 性 设 置 值 Text Name Text1 Timer Name Interval Timer1 1000 第二步:编写程序代码。 参考代码: Private Sub Form_Load() Text1.Text=Str(Time) End Sub Private sub Timer1_Timer() Text1.Text=Str(Time) End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。

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

最新回复(0)