itgle.com

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

题目

窗体上已有名称分别为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

相似考题

1.阅读以下说明及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

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

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

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

更多“窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框,且有1个名称为Te ”相关问题

  • 第1题：

    在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 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。

  • 第2题：

    在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为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。

  • 第3题：

    (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


    正确答案：
    （13）*.txt
    （14）For Input
    （15）NOT EOF(1)

  • 第4题：

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

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

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

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

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


    正确答案：C
    解析：文件列表框接收DblClick事件。利用这一点，可以执行文件列表框中的某个可执行文件。也就是说，只要双击文件列表框中的某个可执行文件，就能执行该文件。这可以通过Shell函数来实现。上述过程中的FileName是文件列表框中被选择的可执行文件的名字，双击该文件名就能执行。

  • 第5题：

    假设有文件列表框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也可以产生同步效果。从而使文件列表框、驱动器列表框和目录列表框三者同步。

相关内容