首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信
admin
2009-02-15
31
问题
阅读以下说明和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
程序员下午应用技术考试
软考初级
相关试题推荐
计算机处理的数字数据有数值数据和字符数据之分。对信息处理技术员来说,它们的主要区别是______。
假设“EXAM.DOC”文件夹存储在“EXAM1”文件夹中,“EXAM1”文件夹存储在“EXAM2”文件夹中,“EXAM2”文件夹存储在F盘的根文件夹中,当前文件夹为“EXAM1”。那么,正确描述“EXAM.DOC”文件的绝对路径表示为(37)。
人工智能(AI)时代,人类面临许多新的安全威胁。以下(60)________________不属于安全问题。
许多企业常把大量暂时不用的过期数据分类归档转存于(8)________________中。
在Excel2010中,A1和B1单元格中的值分别为“12”和“34”,在C1中输入公式“=A1&)。??B1”,按回车键后,则C1中的值为(
下面无助于加强计算机安全的措施是(19)。
某地区考试机构准备对信息处理技术员考试笔试成绩(BS)不低于45分,并且机考成绩(JK)为43~44分者进行重点复查。对考生成绩表进行筛选操作时,正确描述上述条件的表达式是(27)。
下列关于应用Word软件新建文档第一次存盘时的叙述,正确的是______。
在下列的Excel表中,在C3单元格输入公式“=A2+$C$2”,则C3单元格的值为(55)。
框架在网页布局中主要起什么作用?主页中定义了几个框架,分别显示哪个文档?网页中使用的数据库连接引擎是什么?连接的后台数据库文件名是什么?
随机试题
患者,男性,35岁。血压持续增高1年以上,中度浮肿,尿蛋白(++~+++),管型(+)。最可能诊断为
A.直接中和滴定法B.双步滴定法C.亚硝酸钠滴定法D.双相滴定法E.紫外分光光度法
以下属于安全生产中从业人员的义务的是( )。
某工程双代号时标网络计划如下图所示。各工作的成本斜率分别如下表。在实施中,由于多种原因,需要压缩工期一周。
膨胀土路堤填筑应按照()的原则组织施工。
幼儿学习口语的最佳期是()岁。
地缘,是指由地理位置上的联系而形成的关系。由于对某个地区历史、文化和人群生活习惯等方面的熟悉和了解,特别是在区域内具备相应的人脉资源,所形成的相对外来个人或群体的优势,就称为地缘优势。依据上述定义.下列没有体现地缘优势的是:
甲因病到A医院就诊,医生诊断后开出B制药厂生产的卡马西平片药。甲从医院取药服用后出现皮疹,经查看药品说明书,未见相关的不良反应说明,便继续服用,致甲皮疹反应加重。经诊断为卡马西平引起的重症多型红斑性药疹,为此,甲花去医药费若干。经查,B制药厂取得该药准产批
Artwasherfavoritesubjectatschool,butshedidadegreeingeography.
A、It’ssimilartoplayingnotesonapiano.B、Itrequiresanight’ssleep.C、It’ssimilartothewayacomputerstoresinformati
最新回复
(
0
)