[填空題] 以下程序的功能是:把程序文件smtextl.txt的內(nèi)容全部讀入內(nèi)存,并在文本框Textl中顯示出來。請?zhí)羁铡? Private Sub Comma
2021-07-20
[填空題] 以下程序的功能是:把程序文件smtextl.txt的內(nèi)容全部讀入內(nèi)存,并在文本框Textl中顯示出來。請?zhí)羁铡?/p>
Private Sub Command1_Click()
Dim inData As String
Text1.Text=" "
Open"smtext1.txt"______As______
DO While______
Input # 2,inData
Text1.Text=Text1.Text&inData
Loop
Close # 2
End Sub
正確答案:For Input#2,NOT EOF(2)
參考解析:打開一個存在的文件,以便讀出其中的內(nèi)容。語句的一般格式是:Open"文件名"For Input As#文件號。 文件號:為被打開的文件指定一個文件號,在以后訪問該文件時,以文件號來代表文件。文件號的取值為1~511之間的整數(shù)。每個文件號對應(yīng)唯一的一個文件,不能將已使用的文件號再指定給其他文件。由下面的程序可知應(yīng)該是#2。 EOF函數(shù)用于測試文件的結(jié)束狀態(tài),格式為:EOF(文件號),NOT EOF(2)即當(dāng)文件號為2的文件沒有結(jié)束時,執(zhí)行Do While循環(huán)體,由下面的Do While中的Input#2,inData知文件號是2,故是NOT EOF(2)。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。