(9）窗体上己有名称分别为Drive 1、Dirl、File 1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在Filel中，如果双击File 1中的某个文件，则在Textl中显示该文件的内容。请填空。Private Sub Form_ Load()Filel．Pattern=【13】End SubPrivate Sub Drive 1_ Change()Dir 1.Path＝Drive 1．DriveEnd SubP

题目

(9）窗体上己有名称分别为Drive 1、Dirl、File 1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在Filel中，如果双击File 1中的某个文件，则在Textl中显示该文件的内容。

请填空。

Private Sub Form_ Load()

Filel．Pattern=【13】

End Sub

Private Sub Drive 1_ Change()

Dir 1.Path＝Drive 1．Drive

End Sub

Private Sub Dirl _Change()

File 1.Path＝Dirl.Path

End Sub

Private Sub Filel_DblClick()

Dim s As String*1

If Right(Filel .Path, 1）="＼"Then

f_ name＝File 1.Path＋File l .FileName

Else

f name＝File 1．Path＋"\"＋File 1．FileName

End If

Open f_ name【14】As＃1

Text 1．Text=""

Do While【15】

s＝Input(1，＃1）

Text 1 ．Text＝Text 1 ．Text＋s

Loop

Close＃1

End Sub

相似考题

1.当改变目录列表框控件Dir1中的当前目录时，希望同步改变文件列表框File1中显示的文件，在Dir1_Change事件过程中使用的命令是A．File1.Path=Dir.PathB．Dir1.Path=File1.PathC．File1.Path=Dir1.DriveD．Dir1.Drive=File1.Path

2.在窗体上画一个名称为Drive1的驱动器列表框，—个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是A．Drive1_ChangeB．Drive1_ClickC．Dir1_ClickD．Dir1_Change

3.阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【说明】某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这些数据之和，其运行窗口如下。用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就能在“总计”文本框中看到该文本文件中的数据之和。在开发过程中，设驱动器列表框名为Drivel，目录列表框名为Dirl，文件列表框名为Filel，存放数据的文本文件名为D：\test\vb7\datA．txt，“累计”按钮名为sum，“总计”文本框(TextBox)名为textl。【Visual Basic代码】Private Sub Drivel_Change()Dirl．Path=(1) '户选择的驱动器反映到目录列表框中End SubPrivate Sub Dirl_Change()Filel．Path=(2) '用户选择的文件夹改变文件列表框内容End SubPrivate Sub sum_Click()Dim (3) As New FileSystemOject, (4) As TextStxeam'创建自己的文件系统对象，说明自己的文本流对象If Right (Dirl．Path，1)="\"ThenSetmyTextFile=fso．OpenTextFile (Dirl．Path+Filel．FileNamc)ElseSetmyTextFile=fso．OpenTextFile(Dirl．Path+”\’+Filel．FileName)End“S=0Dod=Val (myTextFilE．ReadRow)S=S+dLoop While (5)Textl．Text=Str$(S)End Sub

4.阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。[说明]本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示，用户只要逐步选择适当的驱动器、目录和图片文件，图片内容随即显示在界面中央，文件的基本信息则呈现于右侧文本框中。用户还可以删除或复制选中的图片文件。在开发过程中，驱动器列表框名为Drivel，目录列表框名为Dir1，文件列表框名为File1，图片的显示由Image控件对象Image1来实现，文件信息文本框名为Text1，按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。[Visual Basic代码]Dim filename As StringDim fso As New (1), file As filePrivate Sub Form_Load()Set fso = CreateObject("Scripting.FileSystemObject")Drivel.Drive = "F:"End SubPrivate Sub Dir1_Change()File1.path=Dirl.path ’更新文件列表框的路径End SubPrivate Sub Drive1_Change()Dir1.path =(2) ’更新目录列表框的路径End SubPrivate Sub File1_Click()’文件列表框的单击事件响应代码If Right(Dir1.path, 1) ＜＞"\" Thenfilename = Dir1.path & "\" & Filel.filenameElsefilename = Dir1.path & Filel.filenameEnd IfImage1.Picture =(3)Set file = fso.GetFile(filename)Text1. Text = "文件名称:" & file.Name & vbCrLf & _"文件大小:" & file. Size & "字节" & vbCrLf & _"文件类型:" & file.Type & vbCrLf & _"创建日期:" & file. DateCreated & vbCrLf & _"修改日期:" & file. DateLastModifiedEnd SubPrivate Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码Dim path As Stringpath = InputBox("请输入目标路径(含文件名):")(4)End SubPrivate Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码(5)End Sub

参考答案和解析
正确答案：
（13）*.txt
（14）For Input
（15）NOT EOF(1)
更多“(9)窗体上己有名称分别为Drive 1、Dirl、File 1的驱动器列表框、目录列表框和文件列表框,且有1个名 ”相关问题

  • 第1题：

    窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“．txt”的文件显示在Filel中，如果双击FileI中的某个文件，则在Textl中显示该文件的内容。请填空。

    Private Sub Form_Load()

    Filel．Pattern=

    End Sub

    Private Sub Drivel_Change()

    Dirl．Path=Drivel．Drive

    End Sub

    Private Sub Dirl_Change()

    Filel．Path—Dirl．Path

    End Sub

    Private Sub Filel_DblCliek() ‘

    Dim s As String姜1

    If Right(Filel．Path，1)=“＼”Then

    f_name!=Filel,Path+Filel．FileName

    Else

    f_name=Filel．Path+“＼”+File1．FileName

    End 1f

    Open f_name As1

    Textl．Text=“”

    Do while

    s=Input(1，1)

    Textl．Text=Textl．Text+s

    Loop

    Close-1

    End Sub


    正确答案：*．txt For Input NOT EOF(1)
    *．txt For Input NOT EOF(1)

  • 第2题：

    在窗体上有一个名称为Drivel的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是（ ）。


    正确答案：C
    c)    【解析】本题考查文件系统控件。要使驱动器、目录和文件列表框同步显示，那么就需要编写代码才能使它们之间彼此同步，在驱动器Drive1的Change事件中，要Dir1．Path = Drive1．Drive，使日录的路径和驱动器一致，同时在目录Dirl的Change事件中要File1．Path=Dir1．Path，使文件路径的位置和驱动器一致。可以在文件列表框中使用ListCount属性来统计文件数目(当文件路径改变时统计)。

  • 第3题：

    在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是

    A．Drivel change

    B．Drive1_Click

    C．Dirl_Click

    D．Dirl_Change


    正确答案：A
    解析：本题考查驱动器列表框与目录列表框。由于目录列表框要随着驱动器的改变而改变，即目录列表框要响应驱动器的事件。故C、D项是错误的。由于是改变驱动器，所以用 Change事件表示，故正确的答案为A。

  • 第4题：

    在窗体上画一个名称为File的文件列表框，并编写如下程序： Private Sub File1_DblClick( ) x=Shell(File1．FileName，1) End Sub以下关于该程序的叙述中，错误的是

    A．x没有实际作用，因此可以将该语句写为：Call Shell(FilE.FileName，1)

    B．双击文件列表框中的文件，将触发该事件过程

    C．要执行的文件的名字通过File1．FileName指定

    D．File1中显示的是当前驱动器、当前目录下的文件


    正确答案：A
    解析：Shell函数返回Variant值，用来指明正在运行的程序，其格式为：Shell(Pathname，[windowstyle])所以并不像选项A说的x没有实际意义。

  • 第5题：

    在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是______。

    A．Dirve1. Drive=Dir1. Path

    B．Dit1. Path=Drive1. Drive

    C．Dir1. Path=File1. Path

    D．File1. Path=Dir1. Path


    正确答案：D
    解析：由于要在文件列表框中显示当前选中的文件夹中的内容，所以应使用的语句是File1.Path=Dir1.Path。

  • 第6题：

    假设有文件列表框File1、驱动器列表框Drivel和目录列表框Dirl，为了使三者同步，在下列语句中，正确的语句是 ______。 Ⅰ．FilePath=Did.Path Ⅱ．FileFileName=Dirl.FileName Ⅲ．Dirl.Path=Drivel.Drive Ⅳ．Dirl. Path=Drivel. Path

    A．Ⅰ和Ⅲ

    B．Ⅰ和Ⅳ

    C．Ⅰ、Ⅲ和Ⅳ

    D．以上全部


    正确答案：A
    解析：因为目录列表框Path属性的改变将产生Change事件，所以在Dirl的Change事件过程中，把Dirl.Path赋给Filel.Path，就可以产生同步效果。在Drivel的Change事件过程中，把Drivel.Drive赋给Dirl.Path也可以产生同步效果。从而使文件列表框、驱动器列表框和目录列表框三者同步。

  • 第7题：

    在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp，*.gif和*.jpg），则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如下图所示。 程序如下，请补充完整。

    略

  • 第8题：

    要实现驱动器列表框、目录列表框及文件列表框之间数据的同步，须在驱动器列表框和目录列表框的Change事件分别添加以下代码（）

    • A、Dir1.Path=Drive1.DriveFile1.Path=Dir1.Path
    • B、File1.Path=Drive1.DriveDir1.Path=Drive1.Drive
    • C、Dir1.Path=Drive1.DriveFile1.Path=Drive1.Drive
    • D、File1.Path=Dir1.PathDir1.Path=Drive1.Drive

    正确答案:C

  • 第9题：

    VB的文件管理控件是（）

    • A、驱动器列表框、图片框、文件列表框
    • B、驱动器列表框、目录列表框、组合框
    • C、文本框、目录列表框、文件列表框
    • D、驱动器列表框、目录列表框、文件列表框

    正确答案:D

  • 第10题：

    单选题
    VB的文件管理控件是（）
    A

    驱动器列表框、图片框、文件列表框

    B

    驱动器列表框、目录列表框、组合框

    C

    文本框、目录列表框、文件列表框

    D

    驱动器列表框、目录列表框、文件列表框


    正确答案： C
    解析： 暂无解析

  • 第11题：

    单选题
    窗体上有一个名称为Dir1的目录列表框，一个名称为File1的文件列表框。当改变目录列表框的内容时，文件列表框的内容应该与之同步改变。为实现两控件同步操作，应该使用的事件过程是（　　）。
    A

    Dir1_Click

    B

    Dir1_Change

    C

    File1_Click

    D

    File_Change


    正确答案： A
    解析：
    改变目录列表框的内容，则应该用目录列表框对应的事件Dir1_Change，实现当目录列表的内容改变后更新文件列表框的相应内容。

  • 第12题：

    判断题
    使用驱动器列表框、目录列表框和文件列表框构成一个文件管理系统时，三者之间可以实现自动同步，即当在驱动器列表框改变驱动器时，目录列表框和文件列表框的内容立即同跟着变。
    A

    对

    B

    错


    正确答案： 错
    解析： 暂无解析

  • 第13题：

    在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drivel、Dirl和Filel，为了使它们同步操作，必须触发驱动器的Change事件和目录的Change事件，在这两个雾件中执行的语句分别为（ ）。

    A. Filel．Ptth=Drivel．Drive和Filel．Path=Dirl．Path

    B. Dirl．Path=Drivel．Drive和Filel．Path=Dirl．Path

    C. Dirl．Path=Dirl．Path和Filel．Path=Drivel．Drive

    D. Dirl．P tth=Drivel．Path和Filel．Path=Dirl．Path


    正确答案：B
    B)    【解析】本题考查文件系统控件。要使驱动器、目录和文件列表框同步显示，需要在驱动器Drive1的Change事件中，编写Dir1．Path=Drive1．Drive语句；而使文件的路径和日录的一致，则需要在目录Dir1的Change事件中编写File1 Path=Dir1．Path 语句。这两个事件都编写好后，就可以使驱动器、目录和文件列表框同步显示了。

  • 第14题：

    使用驱动器列表框drive1、目录列表框dir1、文件列表框file1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是

    A)dir1.path=drive1.path

    B)file1.path=dir1.path

    C)file1.path=drive1.path

    D)drive1.drive=dir1.path


    正确答案：B
    【答案】：B
    【知识点】：文件系统控件的用法
    【解析】：注意三个控件之间的关系，当Drive1发生改变的时候，Dir1要发生改变，当Dir1发生变化的时候，File1要发生变化，因此要用前者的路径属性赋值给后者的路径属性，而不能颠倒。当然也不能越级。故本题选B。

  • 第15题：

    假设有文件列表框File1、驱动器列表框Drive1和目录列表框Dir1，为了使三者同步，在下列语句中，正确的语句是 ______。 Ⅰ．File1.Path=Dir1.Path Ⅱ．File1.FileName=Dirl.FileName Ⅲ．Dir1.Path=Drive1.Drive Ⅳ．Dir1.Path=Drive1.Path

    A．Ⅰ和Ⅲ

    B．Ⅰ和Ⅳ

    C．Ⅰ、Ⅲ和Ⅳ

    D．全部


    正确答案：A
    解析：因为目录列表框Path属性的改变将产生Change事件，所以在Dirl的Change事件过程中，把Dir1. Path赋给File1. Path，就可以产生同步效果。在Drive1的Change事件过程中，把Drive1.Drive赋给Dir1. Path也可以产生同步效果。从而使得文件列表框、驱动器列表框和目录列表框三者同步。

  • 第16题：

    在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drivel、Dirl和Filel。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dirl_Change事件过程中应使用的语句是______。

    A．Dirvel.Drive=Dirl.Path

    B．Dirl.Path=Drivel.Drive

    C．Dirl.Path=Filel.Path

    D．Filel.Path=Dirl.Path


    正确答案：D
    解析：由于要在文件列表框中显示当前选中的文件夹中的内容，所以应使用的语句是Filel．Path=Dirl．Path。

  • 第17题：

    在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是 ______。

    A．Dirvel.Drive=Dir1.Path

    B．Dir1.Path=Drive1.Drive

    C．Dir1.Path=File1.Path

    D．File1.Path=Dir1.Path


    正确答案：D
    解析：由于要在文件列表框中显示当前选中的文件夹中的内容，所以应使用的语句是File1.Path=Dir1.Path。

  • 第18题：

    在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签kabel1中显示当前文件夹中文件的数量，如图所示。

    能够正确实现上述功能的程序是

    A．Private Sub Dir1_Change( ) Filc1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End Sub

    B．Private Sub Dir1_Change( ) File1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub

    C．Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.ListCount End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End Sub

    D．Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.List End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub


    正确答案：C
    解析：List属性用来列出表项的内容，可以加下标用“()”括起来配合使用。根据题意，应选择文件列表框的ListCount属性，该属性用于返回文件的数量值。故B、D项错误。A项缺少“Label1.Caption=File1.ListCount”这一语句，从而使得在仅触动Dir1的Change事件时，Label1l没有反应。

  • 第19题：

    使用驱动器列表框、目录列表框和文件列表框构成一个文件管理系统时，三者之间可以实现自动同步，即当在驱动器列表框改变驱动器时，目录列表框和文件列表框的内容立即同跟着变。


    正确答案:错误

  • 第20题：

    窗体上有名为Drivel与Dirl的驱动器列表框与文件夹列表框，需要在选定驱动列表框中的列表项时，文件夹表框中内容随之改变，正确的语句及语句的位置是（）。

    • A、Dir1.Path=Drive1.Drive′位于Drive1 Change（）过程
    • B、Dir1.Path=Drive1.Drive′位于Dir1 Change（）过程
    • C、Dir1.Path=Drive1.Path′位于Dir1 Change（）过程
    • D、Dir1.Path=Drive1.Path′位于Drive1 Change（）过程

    正确答案:A

  • 第21题：

    下面有关文件管理控件的说法正确的是（）

    • A、ChDir语句的作用是指明新的缺省工作目录，同时也改变目录列表框的Path属性值
    • B、改变文件列表框的FileName属性值，仅改变列表框中显示的文件名，不会引发其他事件
    • C、改变驱动器列表框的ListIndex属性值，会改变Drive属性值并触发Change事件
    • D、单击目录列表框中某一项，会触发Change事件

    正确答案:C

  • 第22题：

    单选题
    使用驱动器列表框Drive1、目录列表框Dir1、文件列表框File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是（　　）。
    A

    Dir1.Path=Drive1.Path

    B

    File1.Path=Dir1.Path

    C

    File1.Path=Drive1.Path

    D

    Drive1.Drive=Dir1.Path


    正确答案： D
    解析：
    目录列表框中显示当前驱动器上的目录。可通过驱动器列表框的Drive属性来设置当前驱动器，此时会引发Change事件；因此只要把Drive1.Drive的属性值赋给Dir1.Path，就可以产生同步效果。目录列表框中Path属性的改变也会产生Change事件，所以在Dir1.Change事件过程中，把Dir1.Path赋给File1.Path就可以产生同步效果。

  • 第23题：

    单选题
    要实现驱动器列表框、目录列表框及文件列表框之间数据的同步，须在驱动器列表框和目录列表框的Change事件分别添加以下代码（）
    A

    Dir1.Path=Drive1.DriveFile1.Path=Dir1.Path

    B

    File1.Path=Drive1.DriveDir1.Path=Drive1.Drive

    C

    Dir1.Path=Drive1.DriveFile1.Path=Drive1.Drive

    D

    File1.Path=Dir1.PathDir1.Path=Drive1.Drive


    正确答案： B
    解析： 暂无解析

相关内容