填空题以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在图片框Picture1中显示出来。请填空。
Private Sub Command1_Click 1
Dim inData As String
Open "./mText1.txt" __ 2__ As 1
Do While Not EOF(1)
Input #i，inData
Picture1.Print inData
Loop
Close#1
End Sub

【正确答案】

【答案解析】For Input[解析] 在用Open语句打开smtext1.txt文件时，For Input表示顺序输入方式，ForOutput表示顺序输出方式。EOF函数用来测试文件的结束状态。“文件号”的含义同前。利用EOF函数，可以避免在文件输入时出现“输入超出文件尾”错误。在文件输入期间，可以用EOF测试是否到达文件末尾。对于顺序文件来说，如果已到文件末尾，则EOF函数返回True，否则返回False。