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

题目

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

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

相似问题和答案

第1题：

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

1．在考生文件夹下打开工程sjt3.vbp，在窗体Form1上建立一个名称为Text1的文本框和一个名称为Command1，标题为“计算”的命令按钮(如图2—1所示)。程序运行后，单击“计算”命令按钮，通过在对话框输入整数10，放入整形变量a中，然后计算a!，(提示：运算结果应放入Long型变量中)，在文本框中显示结果，并把结果存入文件out3.txt中。在考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。

注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。

2．在名称为Form1的窗体上画一个驱动器列表框，其名称为Driver1，再画一个目录列表框，其名称为Dir1；然后添加一个文件列表框，名称为File1。请设置适当的控件属性和编写适当的事件过程，使得在运行时，实现驱动器列表框、目录列表框和文件列表框的同步操作，且在列表框中只显示后缀名为exe的文件；如果双击文件列表框中的文件，则执行该文件(如图2—2所示)。程序中不得使用任何变量。已知；可以用Shell函数来运行可执行文件。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

正确答案：① 首先将模块文件mode.bas添加到工程中模块中包含的过程如下： Sub putdata(t_filename As Stringt_str As Variant) Dim stile As String sfile＝".\"&& t filename Open App. Path && sfile For Output As #1 Print #1t_str Close #1 End Sub ② 编写命令按钮的事件过程： Private Sub Command1_Click) Dim ni As Integer Dim j As Long n=InputBox("请输入要计算的数字") j=1 For i＝1 To n j＝j*i Next i Text1.Text＝j putdata "out3.txt"j End Sub ③ 运行程序在inputbox对话框中输入数字“10”。 ④ 按试题要求保存窗体文件和工程文件。 2．① 建立界面和设置控件属性。程序用到的控件及其属性如下表3所示。

② 编写程序代码。参考代码： Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path=Driver1.Drive End Sub Private Sub File1_DblClick() x＝Shell(Filel.FileName1) End Sub ③ 按题目要求存盘。
① 首先将模块文件mode.bas添加到工程中，模块中包含的过程如下： Sub putdata(t_filename As String,t_str As Variant) Dim stile As String sfile＝".\"&& t filename Open App. Path && sfile For Output As #1 Print #1,t_str Close #1 End Sub ② 编写命令按钮的事件过程： Private Sub Command1_Click) Dim n,i As Integer Dim j As Long n=InputBox("请输入要计算的数字") j=1 For i＝1 To n j＝j*i Next i Text1.Text＝j putdata "out3.txt",j End Sub ③ 运行程序，在inputbox对话框中输入数字“10”。 ④ 按试题要求保存窗体文件和工程文件。 2．① 建立界面和设置控件属性。程序用到的控件及其属性如下表3所示。

第2题：

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

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

第3题：

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

A．

B．

C．

D．

正确答案：D

第4题：

要使目录列表框(名称为Dir1)中的目录随着驱动器列表框(名称为Drive1)中所选择的当前驱动器的不同而同时发生变化，则应：

A．在Dir1中的Change事件中，书写语句Dir1.Drive＝Drive1.Drive

B．在Dir1中的Change事件中，书写语句Dir1.Path＝Drive1.Drive

C．在Drive1中的Change事件中，书写语句Dir1.Path＝Drive1.Drive

D．在Drive1中的Change事件中，书写语句Dir1.Drive=Drive1.Drive

正确答案：C
解析：本题主要考查驱动器方面的知识。因为题中的变化是随着当前驱动器的不同而变化的，故应表现在Drivel中的 Change事件中，排除A、B项。目录列表框属性的一般设置格式为：
控件名称．Path＝路径字符串
通过以上知识可以排除D项，只有C项是正确的。

第5题：

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

A．Drivel change

B．Drive1_Click

C．Dirl_Click

D．Dirl_Change

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

第6题：

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

第7题：

使用驱动器列表框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。

第8题：

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

A．Drive1_Change

B．Drive1_Click

C．Dir1_Click

D．Dir1_Change

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

第9题：

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

第10题：

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

在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为 Drive1、Dir1和File1。

题目

相似问题和答案

更多相关问题

相关内容