首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下应用说明及Visual Basic程序代码,根据要求回答问题1至问题4。 [说明] 某文件管理系统的图片浏览器如图3-19所示。运行程序时,用户只要通过驱动器列表框、目录列表框和文件列表框,选择文本文件所在的驱动器、文件夹及相应的文件名后
阅读以下应用说明及Visual Basic程序代码,根据要求回答问题1至问题4。 [说明] 某文件管理系统的图片浏览器如图3-19所示。运行程序时,用户只要通过驱动器列表框、目录列表框和文件列表框,选择文本文件所在的驱动器、文件夹及相应的文件名后
admin
2009-02-15
44
问题
阅读以下应用说明及Visual Basic程序代码,根据要求回答问题1至问题4。
[说明]
某文件管理系统的图片浏览器如图3-19所示。运行程序时,用户只要通过驱动器列表框、目录列表框和文件列表框,选择文本文件所在的驱动器、文件夹及相应的文件名后,在图像框中将显示出相应的文件图像。
在开发过程中,假设驱动器列表框名为drvFile,目录列表框名为 dirFile,文件列表框名为filFile,选择文件类型组合框名为cboFile,图像框名为IMG onClick=over(this) title=放大Show。
图3-19 图片浏览器
[Visual Basic程序]
Private Sub Form_Load ()
IMG onClick=over(this) title=放大Show.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
IMG onClick=over(this) title=放大Show. Picture= LoadPieture(filFile. Path+ filFile.FileName)
Else
IMG onClick=over(this) title=放大Show. Picture= LoadPicture( (6) + "\" + (7) )
End If
End Sub
选项
答案
在Visual Basic应用程序中显示磁盘驱动器、目录和文件的有关信息(如设计资源管理器),除了使用对话框外,VB提供了文件系统内部控件:驱动器列表框(DriveListBox)、目录列表框(DirListBox)和文件列表框(FileListBox)。 驱动器列表框用于显示系统中所有的有效驱动器,它可以自动填写驱动器的名称和卷标。 目录列表框以目录树形式(分层缩进)显示当前目录的所有上级目录及下一级子目录。 文件列表框是一个特殊的ListBox控件,它以列表形式显示当前目录中的所有文件名,并可选择按文件名、扩展名或属性排列内容。 这些控件通常在一个窗体中工作,程序设计时必须保持三者之间的同步关系。当用户在驱动器列表框 (DriveListBox)中选择一个驱动器时,DirListBox控件就更新显示该驱动器上的目录树。当用户在目录列表框(DirListBox)中选择一条路径时,文件列表框(FileListBox)控件中的内容为该目录下的文件列表。这些活动自动地触发Change事件。但这些活动不能自动完成,需要为Change事件编写代码。 本案例程序中,改变当前驱动器时将触发drvFile_Change()事件,改变当前目录时将触发 dirFile_Change()事件。在drvFile_Change()事件过程中,需要通过代码将驱动器列表框的Drive属性(指明当前驱动器)赋值给目录列表框的Path属性,即(2)空缺处所选择的语句是选项B的“dirFile.Path= drvFile.Drive”,使目录列表框中显示当前驱动器上所有的一级目录。在dirFile_Change()事件过程中,需要将目录列表框的Path属性(指明当前路径)赋值给文件列表框的Path属性,即(3)空缺处所选择的语句是选项E的“filFile.Path=dirFile.Path”,从而使驱动器列表框、目录列表框和文件列表框的显示内容保持一致(同步)。 由于本案例程序是一个图片浏览器,应限制用户只能选择图形文件,因此需要通过组合框指定所要浏览的图片类型,使得文件列表框中只显示出所指定类型的相应文件。当用户更改文件类型组合框中的文件类型值时将触发cboFile Click()事件。 根据图3-19的显示结果可知,该图片浏览器支持包含*.bmp、*.ico、*.wmf、*.jpg及*.gif等多种文件类型。要将同一个表达式与不同的值进行比较,则需要用到“Select...Case”条件选择语句,即在 cboFile_Click()事件中,需要通过Select Case语句为文件列表框指定相应的filFile.Pattern属性值。其中, filFile.Pattern属性用于指定文件列表框中所显示的义件类型。因此(4)空缺处所选择的语句是选项G的“Select Case cboFile.Listlndex”。 由于在窗体Form_Load()过程中,通过语句“cboFile.Listlndex=0”间接要求在文件列表框中只显示出后缀为*.bmp的文件名,即(1)空缺处所选择的语句是选项D的filFile.Pattern="*.bmp"。 在filFile_Click()事件过程中,应判断文件所在目录是否为根目录,即(5)空缺处所选择的语句是选项C的Right(filFile.Path,1)="\"。其中,filFile.Path属性用于说明所选文件的路径(目录)。如果文件所在目录是根目录,则直接通过语句“IMG onClick=over(this) title=放大Show.Picture=LoadPicture(filFile.Path+filFile.FileName)”,在图像框中显示出相应的图片。其中,filFile.FileName属性用于说明所选文件的文件名。如果文件所在目录不是根目录,则需要通过语句“IMG onClick=over(this) title=放大Show.Picture=LoadPicture(filFile.Path+"\"+filFile.FileName)”在图像框中显示出相应的图片。因此(6)空缺处所选择的语句是选项A的“filFile.Path”,(7)空缺处所选择的语句是选项F的"filFile.FileName"。
解析
转载请注明原文地址:https://jikaoti.com/ti/ZrW7FFFM
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
对用户来说,信息系统的(14)反映了系统的功能。
在Excel中,若A1单元格的值为5,在B1单元格输入函数“=A1-10”,则B1单元格的值为______。
新建一个Word文档,编辑结束后,执行“文件”菜单中的“保存”命令,则______。
若要查询成绩为70-80分之间(包括70分,不包括80分)的学生的信息,以下查询准则设置正确的是()。
某商场的部门和商品两个实体之间的关系如下图所示。假设每个部门负责销售若干种商品,每种商品只能由一个部门负责销售,那么部门和商品之间存在着(14)的联系。
在PowerPoint2007中,若想在一屏内观看多张幻灯片的大致效果,可采用的方法是(52)________________。
在Excel2010中,C3:C7单元格中的值分别为10、OK、20、YES和48,在。D7单元格中输入函数“=COUNT(C3:C7)”,按回车键后,D7单元格中显示的值为________________。
在Excel2010中,设A1单元格中的值为20,A2单元格中的值为60,若在C1单元格中输入函数“=AVERAGE(A1,A2)”,按回车键后,,则C1单元格中的值为(
将四个元素a,b,c,d分成非空的两组,不计组内顺序和组间顺序,共有()种分组方法。
随机试题
胰腺炎引起腹痛不会因呕吐而缓解。()
A.心房颤动B.心房扑动C.窦性心动过速D.阵发性房性心动过速E.阵发性室性心动过速可见室性融合波提示
经行吐衄的发病机理是
可摘局部义齿设计时应考虑保护口腔软硬组织健康,下列哪一项是错误的
我国目前推行的部分费用综合单价不包括()。
下列施工生产要素的质量控制内容中,属于工艺方案质量控制的是()。
动态风险和投机风险通常是( )。
社会主义和资本主义的本质区别是()。
“贫困不是社会主义,社会主义要消灭贫困”的论断()。
Itisoftenthroughgooddinnersthatonemakesfriends.InJapan,thereare【B1】______"DiningGroups"or"WineGroups",formedb
最新回复
(
0
)