[填空題] 以下程序的功能是：將當(dāng)前目錄下的順序文件mText1.txt的內(nèi)容讀入內(nèi)存，并在圖片框 Picture1中顯示出來(lái)。請(qǐng)完善程序。 Private Sub Command1_Click() Dim inData As String Open ".mText1.txt" 【13】 As 1 Do While Not EOF(1)Input #1，inDataPicture1.Print inData Loop Close #1 End Sub

ForInput解析：[分析]： 在用Open語(yǔ)句打開(kāi)mText1.txt文件時(shí)，F(xiàn)orInput表示順序輸入方式，F(xiàn)orOutput表示順序輸出方式。EOF函數(shù)用來(lái)測(cè)試文件的結(jié)束狀態(tài)。利用EOF函數(shù)，可以避免在文件輸入時(shí)出現(xiàn)“輸入超出文件尾”的錯(cuò)誤。在文件輸入期間，可以用EOF測(cè)試是否到達(dá)文件末尾。對(duì)于順序文件來(lái)說(shuō)，如果已到文件末尾，則EOF函數(shù)返回True，否則返回False。