窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Te

xtl的文本框。以下程序的功能是：将指定位置中扩展名为“．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