窗体上已有名称分别为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_Change()Filel．Path—Dirl．PathEnd SubPrivate Sub Filel_DblCliek() ‘Dim s As String姜1If Right(Filel．Path，1)=“＼”Thenf_name!=Filel,Path+Filel．FileNameElsef_name=Filel．Path+“＼”+File1．FileNameEnd 1fOpen f_name As1Textl．Text=“”Do whiles=Input(1，1)Textl．Text=Textl．Text+sLoopClose-1End Sub
窗体上已有名称分别为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
相关考题：
阅读以下说明及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
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为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的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是（ ）。
在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是A．Drivel changeB．Drive1_ClickC．Dirl_ClickD．Dirl_Change
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drivel、Dirl和Filel。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dirl_Change事件过程中应使用的语句是______。A．Dirvel.Drive=Dirl.PathB．Dirl.Path=Drivel.DriveC．Dirl.Path=Filel.PathD．Filel.Path=Dirl.Path
在窗体上画一个名称为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中显示的是当前驱动器、当前目录下的文件
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是______。A．Dirve1. Drive=Dir1. PathB．Dit1. Path=Drive1. DriveC．Dir1. Path=File1. PathD．File1. Path=Dir1. Path
假设有文件列表框File1、驱动器列表框Drivel和目录列表框Dirl，为了使三者同步，在下列语句中，正确的语句是 ______。 Ⅰ．FilePath=Did.Path Ⅱ．FileFileName=Dirl.FileName Ⅲ．Dirl.Path=Drivel.Drive Ⅳ．Dirl. Path=Drivel. PathA．Ⅰ和ⅢB．Ⅰ和ⅣC．Ⅰ、Ⅲ和ⅣD．以上全部
(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 SubPrivate Sub Dirl _Change()File 1.Path＝Dirl.PathEnd SubPrivate Sub Filel_DblClick()Dim s As String*1If Right(Filel .Path, 1）="＼"Thenf_ name＝File 1.Path＋File l .FileNameElsef name＝File 1．Path＋"\"＋File 1．FileNameEnd IfOpen f_ name【14】As＃1Text 1．Text=""Do While【15】s＝Input(1，＃1）Text 1 ．Text＝Text 1 ．Text＋sLoopClose＃1End Sub