![[填空题] 窗体上已有名称分别为Dri、,e1、Dir1、Fite1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为“*.txt”的文件](http://www.mshxw.com/aiimages/31/261256.png "[填空题] 窗体上已有名称分别为Dri、,e1、Dir1、Fite1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为“*.txt”的文件")
[填空题] 窗体上已有名称分别为Dri、,e1、Dir1、Fite1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为“*.txt”的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。
请填空。
Private Sub Form_Load()
File1. Pattern= (13)
End Sub
Private Sub Dirt1_Change()
File1.Path=Dir1. Path
End Sub
Private Sub Drive1_Change()
Dir1. Path=Drive1. Drive
End Sub
Private Sub File1_DblClick()
Dim s As String *1
If Right(File1. Path, 1)=""Then
f_name=File1. Path+File1. FileName
Else
f_name=File1. Path+""+File1. FileName
End If
Open f_name (14) As #1
Text1. Text=""
Do While (15)
s=Input(1, #1)
Text1. Text=Tex 1. Text+s
Loop
Close #1
End Sub
参考答案：
(13)"*.txt" (14)For Input (15)Not EOF(1)问题解析:
文件列表框的：Pattern属性可返回或设置一个值以决定显示在文件列表框中的文件类型，该值为一个字符串，本题中要显示扩展名为txt的文件，因此为"*.txt"。程序首先要以读文件的方式(Input)打开文件，题中说明这是个顺序文件，那么如果文件指针没有到文件尾(EOF(1)的值为False)，就要从文件中读出数据，所以循环条件应以是否到文件尾为依据，判断是否继续循环。
