得分 评卷人 四、完善程序题（共10分） 在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运 行后，驱动器列表框Drivel的默认驱动器设置为E盘，选择Filel中所列的图片文件(. bmp,.gif和*.jpg),则相应的图片显示在图片框Picturel中，文件的路径显示在文本框 中。程序运行结果如图1所示。 困片欣资 回e:[data] 3e\ 白照片 地大理 D5C00448.J DSC00449.JPG DSC00450.JPG D3C00451 PG DSC00452.JPG DSC00453.JPG water lilies.IG e:1照片\大理1 water1i1iex.JPG 图1 程序如下，请补充完整。 Private Sub Form_Load() Drivel.Drive =[1] Filel.Pattern ="*bmp;*gif;*jpg" End Sub Private Sub Drivel_change() Dirl.Path =[2] Textl.Text Drivcl.Drive End Sub Private Sub Dirl_Change() [3] 1381r二习 四.7程序题‘共‘ 。分’ 在窗体上建立一个驱动器列表框 、目录列表框 、文件列表框 、图片框 、文本框 。要求程序运 行后 ，驱动器列表框 Drivel的默认驱动器设置为 E盘 ，选择 Filel中所列的 图片文件 (*. bmp, *. gif和 * - Jpg)，则相应的图片显示在图片框 Picturel中，文件的路径显示在文本框 中。程序运行结果如图 1所示。 。:\照片\大理lw.ter 1i1ies.JFG 程序如下，请补充完整。 Private Sub Form-Load() Drivel. Drive二「1] Filel. Pattern“ ”*.bmp;*.gif ; End Sub 图1 *.Jpg” Private Sub Drivel_ change() Dirl.Path = Text 1.1'ext 仁2]、 = D，ivel.Drive End Sub Private Sub Dirl_Change() [3] 1381