[说明] 某文件管理系统的图片浏览器如图3-19所示。运行程序时,用户只要通过驱动器列表框、目录列表框和文件列表框,选择文本文件所在的驱动器、文件夹及相应的文件名后,在图像框中将显示出相应的文件图像。 在开发过程中,假设驱动器列表框名为DrvFilE,目录列表框名为 DirFilE,文件列表框名为FilFilE,选择文件类型组合框名为CBoFilE,图像框名为imgshow。 图3-19 图片浏览器 [visuAlBAsiC程序] 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.sElECtCAsE CBoFilE.listinDEx