[填空題] 以下程序的功能是：把當前目錄下的順序文件smText1. txt的內(nèi)容讀入內(nèi)存，并在文本框Text1中顯示出來。請?zhí)羁铡?Private Sub Command1_Click() Dim inData As String Text1. Text="" Open". mText1. txt" 【14】 As 1 Do While 【15】 Input #1, inData Text1. Text=Text1. Text & inData Loop Close #1 End Sub

[14]For Input [15]Not EoF(1)解析：[分析]： 在用Open語句打開smText1. txt文件時，F(xiàn)or Input表示順序輸入方式，F(xiàn)or Output表示順序輸出方式。EOF函數(shù)用來測試文件的結束狀態(tài)?！拔募枴钡暮x同前。利用EOF函數(shù)，可以避免在文件輸入時出現(xiàn)“輸入超出文件尾”錯誤。在文件輸入期間，可以用EOF測試是否到達文件末尾。對于順序文件來說，如果已到文件末尾，則EOF函數(shù)返回True，否則返回False。