[填空題] 以下程序的功能是：將當(dāng)前目錄下的順序文件mText1.txt的內(nèi)容讀入內(nèi)存，并在圖片框 Picture1中顯示出來。請完善程序。

Private Sub Command1_Click()

Dim inData As String

Open ".mText1.txt" 【13】 As 1

Do While Not EOF(1)

Input #1，inData

Picture1.Print inData

Loop

Close #1

End Sub

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