首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信
admin
2009-02-15
44
问题
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。
[说明]
本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信息则呈现于右侧文本框中。用户还可以删除或复制选中的图片文件。
在开发过程中,驱动器列表框名为Drivel,目录列表框名为Dir1,文件列表框名为File1,图片的显示由Image控件对象Image1来实现,文件信息文本框名为Text1,按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。
[Visual Basic代码]
Dim filename As String
Dim fso As New (1), file As file
Private Sub Form_Load()
Set fso = CreateObject("Scripting.FileSystemObject")
Drivel.Drive = "F:"
End Sub
Private Sub Dir1_Change()
File1.path=Dirl.path ’更新文件列表框的路径
End Sub
Private Sub Drive1_Change()
Dir1.path =(2) ’更新目录列表框的路径
End Sub
Private Sub File1_Click()’文件列表框的单击事件响应代码
If Right(Dir1.path, 1) <>"\" Then
filename = Dir1.path & "\" & Filel.filename
Else
filename = Dir1.path & Filel.filename
End If
Image1.Picture =(3)
Set file = fso.GetFile(filename)
Text1. Text = "文件名称:" & file.Name & vbCrLf & _
"文件大小:" & file. Size & "字节" & vbCrLf & _
"文件类型:" & file.Type & vbCrLf & _
"创建日期:" & file. DateCreated & vbCrLf & _
"修改日期:" & file. DateLastModified
End Sub
Private Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码
Dim path As String
path = InputBox("请输入目标路径(含文件名):")
(4)
End Sub
Private Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码
(5)
End Sub
选项
答案
(1) FileSystemObject (2) Drivel.Drive (3) LoadPic ture(filename) (4) file.Copy path (5) file.Delete
解析
(1)程序中需要用到FSO对象fso,这里是fso的变量声明;
(2)DriveListBox控件对象的Drive属性指定了当前的驱动器;
(3)为Image控件对象装载图片时应调用LoadPicture方法,其参数是图片文件的完整路径;
(4)复制文件应调用文件对象的Copy方法;
(5)删除文件应调用文件对象的Delete方法。
转载请注明原文地址:https://kaotiyun.com/show/JbjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
在Excel中,若A1单元格的值为5,在B1单元格输入函数“=A1-10”,则B1单元格的值为______。
以下关于文件压缩的叙述中,不正确的是(25)________________。
数据分析工具的(13)________________特性是指它能导入和导出各种常见格式的数据文件或分析结果。
《信息安全技术云计算服务安全指南》(GB/T31167-2014)属于________________。
Windows7中的文件命名规则不包括________________。
________________是按照科学的城市发展理念,利用新一代信息技术,通过人、物、城市功能系统之间的无缝连接与协同联动,实现自感知、自适应、自优化,形成安全、便捷、高效、绿色的城市形态。
以下关于Word2010图形和图片的叙述中,不正确的是()。
在Word2010中,()快捷键可以选定当前文档中的全部内容。
电子商务有多种模式。()模式是个人消费者从在线商家处购买商品或服务。
阅读以下说明,回答问题1至问题4。【说明】在SNMP服务安装完成后,WindowsServer2003的服务如图4-3所示。在图4-4所示的配置界面中单击“接受团体名称”中的“添加”按钮;在如图4-5所示的界面中设置“团体名称”项;在
随机试题
住宅小区暗管直线敷设超过()时,电缆暗管中间应加装过路箱,电话线暗管中间应加装过路盒。
行情变化最明显的反映是()
某溃疡病并发幽门梗阻患者,因反复吐入院,血气分析结果如下: pH7.49,PaCO26.4kPa(48mmHg),HCO3﹣]36mmol/L,该患者发生了
根据我国宪法,与公民享有的劳动权利对应的国家义务有()。
师徒两人生产一种产品,这种产品由1个甲配件和1个乙配件配成一套,师傅每天能生产300个甲配件,或者生产150个乙配件;徒弟每天生产120个甲配件,或者生产48个乙配件。为了在今年最后的10天里生产出更多的成套产品,师徒两人决定合作生产,并进行最合理的分工。
唐律规定,如果“嫁娶违律”,( )。
处理个人与他人的关系,关键是要处理好()
设在SQLServer2008中,有如下创建分区函数的语句:CREATEPARTITIONFUNCTIONPF1(int)ASRANGELEFTFORVALUES(1,100,200)该语句的作用是()。
图4是校园网中一台主机在命令行模式下执行某个命令时用Sniffer捕获的数据包。请根据图中信息回答下列问题。当需要回放捕获的数据包时,可以使用Sniffer内置的(60)__________。
Youshouldspendabout40minutesonthistask.Writeaboutthefollowingtopic:Spaceexplorationismuchtooexpensiveandthe
最新回复
(
0
)