窗体中有一组文件系统控件，分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1，在它们下面有一个图片框pic1。要求选择一个bmp文件，即单击文件列表框中的某个文件时，将该文件显示在图片框中。请在空白处填入适当的内容，将程序补充完整。
Option Explicit
Private Sub File1_Click()
Dim fn As String
If Len(Dir1.Path)=3 Then
Fn=Dir1.Pach+File1.FileName
Else
Fn=Dir1.Path & "\"&______
End if
Pic1.AutoSize=True:Pic1.ScaleMode=vbPixels
Pic1.Picture=______
End Sub
Private Sub Form Load()
File1.FileName="*.bmp"
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
End Sub
参考答案：File1.FileNatne；LoadPicture(fn)
解析： 本题考查文件系统控件。在文件列表框中单击文件名时，要将该文件绝对路径赋给变量fh，可以通过将包含文件路径的path属性(file1.path)，连接上包含文件名称的FileName属性(File1.FileName)赋给fn变量来实现；但此时需要考虑一个问题，那就是当文件在盘符根目录下时，在路径和文件名之间不需要加“\”符号，因此第一空处应填File1.FileName。
当找到文件以后，可以利用LoadPicture函数，加载此图片文件，其格式为：[对象.]Picture=LoadPicture("文件名")，“文件名”为fh变量取得的绝对路径名。