[填空題] 以下程序的功能是:把當前目錄下的順序文件smText1. txt的內容讀入內存,并在文本框Text1中顯示出來。請?zhí)羁铡? Private Sub
2021-07-20
[填空題] 以下程序的功能是:把當前目錄下的順序文件smText1. txt的內容讀入內存,并在文本框Text1中顯示出來。請?zhí)羁铡?/p>
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。
詞條內容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學等領域),建議您咨詢相關領域專業(yè)人士。