2. 计算机
  3. 阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。 [说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示，用户只要逐步选择适当的驱动器、目录和图片文件，图片内容随即显示在界面中央，文件的基本信

阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。 [说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示，用户只要逐步选择适当的驱动器、目录和图片文件，图片内容随即显示在界面中央，文件的基本信

admin2009-02-15  34
问题 阅读以下说明和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://jikaoti.com/ti/nrW7FFFM
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)