（9）窗体上己有名称分别为Drive 1、Dirl、File 1的驱动器列表框、目录列表框和文件列表框，且有1个名

(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