首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 [说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信
admin
2009-02-15
45
问题
阅读以下说明和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
程序员下午应用技术考试
软考初级
相关试题推荐
数据展现常需要图表化。美化图表的原则不包括()。
数据处理过程中,影响数据精度的因素不包括(10)________________。
在Excel2010中,若要计算出B3:E6区域内的数据的最大值并保存在B7单元格中,应在B7单元格中输入________________。
数据________________是将数据以图形图像形式表示,并利用数据分析工具发现其中未知信息的处理过程。
下列关于信息传递过程的叙述中,正确的是(31)。
要使Word能自动提醒英文单词的字母拼写是否正确,应设置Word的(47)选项功能。
在Excel2007中,(43)________________不是计算从A1到A6单元格中数据之和的公式。
在Excel2010中,设单元格A1、A2、A3、A4中的值分别为20、3、16、20,若在单元格B1中输入函数“=PR0DUCT(ApA2)/MAX(A3,A4)”,按回车键后,则B1单元格中的值为(
在Excel中,若单元格C5=1000、D5=50、C6=6000、D6=40,在单元格E5中输入公式“=C5*$D$5”,再将此公式复制到F6单元格中,则F6单元格的值为(54)。
阅读下列说明和HTML文本,分析其中嵌入的JavaScrlpt脚本,将应填入(n)处的语句写在对应栏内。[说明]本题实现用鼠标拖拽图片在Web页内移动的功能。将鼠标放在图片上,按下左键,移动鼠标便可带动图片一起移动。[HT
随机试题
A.阑尾脓肿症状逐渐加重B.慢性阑尾炎C.急性坏疽性阑尾炎D.阑尾脓肿症状逐渐减轻非手术治疗适用于
患者,男,60岁。诊断为慢性阻塞性肺疾病。现需判断患者气流受限情况,应采取的检查是
应用糖皮质激素治疗休克的主要机制为
成人舒巴坦钠的剂量一般最多可用到
目前,我国公募证券投资基金的形式为()。
商业银行开展保证收益型理财计划等个人理财业务,应向()申请批准。
实行物业管理服务费用包干制时,物业管理服务费用的构成包括物业管理服务成本、法定税费和物业服务企业的利润,这种收费方式类似工程采购中的()
优质蛋白质
Wedon’tunderstandthepassage______therearefewnewwordsinit.
TeachingMannersinaMannerlessWorldWithmannersinU.S.societyatwhatsomeconsideranall-timelow,authorandpsycho
最新回复
(
0
)