[填空題] 在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框，其名稱(chēng)分別為Command1和Text1，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Click()Dim inData As StringText1.Text=""Open"d:myfile.txt" For（）As#1Do While（）Input #1,inDataText1.Text=Text1.Text+inDataLoopClose#1End Sub程序的功能是，打開(kāi)D盤(pán)根目錄下的文本文件myfile.txt，讀取它的全部?jī)?nèi)容并顯示在文本框中。請(qǐng)?zhí)羁铡?/p>正確答案：

Input；Not EOF(1)

[評(píng)析] Open語(yǔ)句使用以下語(yǔ)法： Open pathname For [Input|Output|Append] As filenumber [Len=buffersize] 當(dāng)打開(kāi)順序文件作為Input時(shí)，該文件必須已經(jīng)存在，否則會(huì)產(chǎn)生一個(gè)錯(cuò)誤。 EOF()函數(shù)判斷文件是否結(jié)束。該程序?qū)χ付窂较碌奈募M(jìn)行Input操作，由于是遍歷整個(gè)文件，則最后的EOF(1)必為真。