问答题

[说明]
某文件管理系统的图片浏览器如图3-19所示。运行程序时，用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名后，在图像框中将显示出相应的文件图像。
在开发过程中，假设驱动器列表框名为drvFile，目录列表框名为 dirFile，文件列表框名为filFile，选择文件类型组合框名为cboFile，图像框名为imgShow。


图3-19 图片浏览器
[Visual Basic程序]
Private Sub Form_Load ()
imgShow.Stretch=True
cboFile.Addltem "位图文件(*.bmp)"
cboFile.Addltem "图标文件(*.ico)"
cboFile.Addltem "图元文件(*.wmf)"
cboFile.Addltem "JPEG文件(*.jpg)"
cboFile.Addltem "GIF文件(*.gif)"
cboFile.ListIndex = 0
(1)
End Sub
Private Sub drvFile_Change ()
(2)
End Sub
Private Sub dirFile_Change ()
(3)
End Sub
Private Sub cboFile_Click ()
(4)
Case 0
filFile. Pattern= "*.bmp"
Case 1
filFile. Pattern= "*.ico"
Case 2
filFile. Pattern= "*.wmf"
Case 3
filFile. Pattern= "*.jpg.
Case 4
filFile. Pattern= "*.gif"
End Select
End Sub
Private Sub filFile_Click()
If (5) Then
imgShow. Picture= LoadPieture(filFile. Path+ filFile.FileName)
Else
imgShow. Picture= LoadPicture( (6) + "\" + (7) )
End If
End Sub
1. [问题1]
请根据[说明]和图3-19的显示结果，从以下备选答案中为程序(1)～(7)空缺处选择正确的答案。
[备选答案]
A. filFile.path B. dirFile.Path=drvFile.Drive
C．Right(filFile.Path，1) = "\" D．filFile.Pattern ="*.bmp"
E．filFile.Path = dirFile.Path F．filFile.FileName
G．Select Case cboFile.ListIndex