[填空題] 窗體上已有名稱分別為Dri、,e1、Dir1、Fite1的驅(qū)動器列表框、目錄列表框和文件列表框，且有1個名稱為Text1的文本框。以下程序的功能是：
[填空題] 窗體上已有名稱分別為Dri、,e1、Dir1、Fite1的驅(qū)動器列表框、目錄列表框和文件列表框，且有1個名稱為Text1的文本框。以下程序的功能是：將指定位置中擴展名為“*.txt”的文件顯示在File1中，如果雙擊File1中的某個文件，則在Text1中顯示該文件的內(nèi)容。
請?zhí)羁铡?/p>
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)，就要從文件中讀出數(shù)據(jù)，所以循環(huán)條件應以是否到文件尾為依據(jù)，判斷是否繼續(xù)循環(huán)。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域?qū)I(yè)人士。