窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有一个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。请填空。
Private Sub Form_Load()
File1.Pattern= (13)
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub File1_DblClick()
Dim S As String*1
If Right(File1.Path,1)="\"Then
f_name=File1.Path+Filel.FileName
Else
f_name=Filel.Path+"\"+Filel.FileName
End If
Open f_name (14) As#1
Text1.Text=" "
Do While (15)
s=Input(1，#1)
Text1, Text=Text1.Text+S
Loop
Close#1
End Sub
参考答案：NOT EOF(1)
解析： 本题中的[13]是让文件列表框中显示文本文件，则应该将Filel.Pattern的属性值设置为*.txt，所以[13]空填*.txt。[14]空要将文件内容读取出来后显示在文本框中，因此要以读的方式打开文件，所以[14]填For Input。[15]空的作用是检测文件是否到达文件末尾，如果没有达到，则继续读取文件，返回False；如果已经达到结尾则返回True值，并停止循环，所以[15]填NOT EOF(1)。