[填空題] 在名稱為Forml的窗體上畫一個(gè)文本框,其名稱為Text1,在屬性窗口中把該文本框的MultiLine屬性設(shè)置為True,然后編寫如下的事件過程:P
[填空題] 在名稱為Forml的窗體上畫一個(gè)文本框,其名稱為Text1,在屬性窗口中把該文本框的MultiLine屬性設(shè)置為True,然后編寫如下的事件過程:Private Sub Form Click()Open"d:estsmText1.txt"For Input As #1Do While Not()Line Input #1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close #1Open"d:estsmtext2.txt"For Output As #1Print #1,()Close #1End Sub上述程序的功能是,把磁盤文件smText1.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來,然后把該文本框中的內(nèi)容存入磁盤文件smtext2.txt。請(qǐng)?zhí)羁铡?/p>正確答案:
EOF(1);Text1.Text
參考解析:[評(píng)析] EOF函數(shù)是判斷Random或順序Input打開的文件是否已到結(jié)尾。本題中首先是要讀出"d:estsmText1.txt"中的內(nèi)容,使用DoWhile語句宋循環(huán)讀出內(nèi)容并賦值給變量wholes,而結(jié)束循環(huán)的條件是到達(dá)文件的尾部,所以第一空應(yīng)該填EOF(1)。讀完以后把內(nèi)容賦值給Text1文本框。程序的第二部分就是向文件 "d:estsmtext2.txt"寫內(nèi)容,題目要求把文本框中的內(nèi)容寫入文件smtext2.txt,所以第二空填Text1.Text。
詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。