[填空題] 下列程序的功能是把順序文件smtextl.txt的內(nèi)容全部讀入內(nèi)存，并在文本框Textl中顯示出來。請?zhí)羁铡?Private Sub Command1_Click() Dim inData As String Text1.Text="" Open "smtext1.txt" 【13】 As 【14】 Do While 【15】 Input #2，inDataText1.Text=Text1.Text & inData Loop Close #2End Sub

[13]For Input [14]#2 [15]NOT EOF(2)

第[13]空考查的考點是有關(guān)文件的打開的。打開順序文件的基本格式為： Open FileName For Mode As #FileNumber。 其中，F(xiàn)ileName表示要打開的文件的路徑；Mode為文件打開模式：OutPut用于輸出、Append用于追加寫入、Input用于讀?。?FileNumber為打開文件時指定的句柄(文件號)。 第[14]空中由于要讀取數(shù)據(jù)，所以(13)空應(yīng)為ForInput；在下面出現(xiàn)了在2號文件中讀取的語句，所以[14]空應(yīng)為#2。 第[15]空考查的考點是有關(guān)文件結(jié)束的。EOF函數(shù)用于判斷文件指針是否已到文件結(jié)尾。對于本題來說，要求把順序文件中所有內(nèi)容讀入內(nèi)存，應(yīng)該只有文件結(jié)束才終止，所以只要沒有結(jié)束就繼續(xù)循環(huán)，此處應(yīng)填NOTEOF(2)。