[填空題] 在窗體上畫一個命令按鈕和一個文本框，其名稱分別為Command1和Text1，然后編寫如下事件過程：

Private Sub Command1_Click()

Dim inData As String

Text1. Text=""

Open "d: myfile. txt "For______As #1

Do While ______

Input # 1，inData

Text1. Text=Text1. Text+inData

Loop

Close #1

End Sub

程序的功能是，打開D盤根目錄下的文本文件myfile.txt，讀取它的全部內(nèi)容并顯示在文本框中。請?zhí)羁铡?/p>正確答案：

Input Not EOF(1)

打開文件的語句形式：Open文件名For讀寫方式As[#]文件號[Len=記錄長度]，其中讀寫方式有：Output、Input和Append。根據(jù)題意可知myfile. txt作為輸入文件，故填I(lǐng)nput。EOF函數(shù)的語法為EOF(filenumber)，filenumber包含任何有效的文件號。使用EOF的目的是為了避免因試圖在文件結(jié)尾處進行輸入而產(chǎn)生錯誤。直到到達文件的結(jié)尾，EOF函數(shù)都返回False。而Do while的條件表達式必須為真，才可進入循環(huán)體。所以應(yīng)填Not EOF(1)，1為myfile. txt的文件號。