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

题目

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

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第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 Sub

Private Sub Dirl_Change()

Filel．Path=(2) '用户选择的文件夹改变文件列表框内容

End Sub

Private Sub sum_Click()

Dim (3) As New FileSystemOject, (4) As TextStxeam

'创建自己的文件系统对象，说明自己的文本流对象

If Right (Dirl．Path，1)="\"Then

SetmyTextFile=fso．OpenTextFile (Dirl．Path+Filel．FileNamc)

Else

SetmyTextFile=fso．OpenTextFile(Dirl．Path+”\’+Filel．FileName)

End“

S=0

d=Val (myTextFilE．ReadRow)

S=S+d

Loop While (5)

Textl．Text=Str$(S)

End Sub

正确答案：(1)Drivel．Drive (2)Dirl．Path (3)fso (4)myTextFile (5)d＞0
(1)Drivel．Drive (2)Dirl．Path (3)fso (4)myTextFile (5)d＞0 解析：驱动器列表框(DriveListBox)、目录列表框(DirListBox)和文件列表框(FileListBox)是Visual Basic提供的内部控件，驱动器列表框

(DriveListBox)可自动填写驱动器的名字和卷标，目录列表框(DirListBox)可显示指定驱动器的目录树，而文件列表框 (FileListBox)则是一

个特殊的ListBox控件，它显示指定目录下的所有文件，并可选择按文件的名字、扩展名或属性排列内容。
这些控件常常在一个窗体中工作，当用户在DriveListBox中选择一个驱动器时， DirListBox控件就更新显示该驱动器上的目录树，当用户

在DirListBox中选择一条路径时，FileListBox控件中的内容为该目录下的文件列表，这些活动自动地触发Change事件。但是，这些活动不能自

动完成，需要为Change事件编写代码，通过代码将驱动器列表框的Drive属性(指明当前驱动器)赋值给目录列表框的Path属性，将目录列表框的

Path属性(指明当前路径)赋值给文件列表框的Path属性，即Dirl．Path=Drivel．Drive， Filel．Path=Dirl．Path。
“Dim”是声明变量的关键字，在过程sum_Click()中，显然是对文件系统对象fso和文本流对象myTextFile进行声明。
根据题目的说明，所处理的文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。计算该文

件中的数据之和时，当读入的数据d等于0时应结束计算。因此，根据循环控制，空(5)处填写“d＞0”(d不等于0)。

第2题：

在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为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 语句。这两个事件都编写好后，就可以使驱动器、目录和文件列表框同步显示了。

第3题：

3在窗体上画一个名称为List1的列表框，一个名称为Labe11的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是( )。

A．

B．

C．

D．

正确答案：D

第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题：

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

A．Drivel change

B．Drive1_Click

C．Dirl_Click

D．Dirl_Change

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

第6题：

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

第7题：

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

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

第8题：

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

A．Drive1_Change

B．Drive1_Click

C．Dir1_Click

D．Dir1_Change

正确答案：A
解析：由于目录列表框要随着驱动器的改变而改变，即目录列表框要响应驱动器的事件。由于是改变驱动器，所以用Change事件表示。

第9题：

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

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

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

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

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

正确答案：A

第10题：

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

题目

相似问题和答案

更多相关问题

相关内容