[填空题] 以下程序的功能是：将当前目录下的顺序文件mText1.txt的内容读入内存，并在图片框 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
[填空题] 以下程序的功能是：将当前目录下的顺序文件mText1.txt的内容读入内存，并在图片框 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文件时，ForInput表示顺序输入方式，ForOutput表示顺序输出方式。EOF函数用来测试文件的结束状态。利用EOF函数，可以避免在文件输入时出现“输入超出文件尾”的错误。在文件输入期间，可以用EOF测试是否到达文件末尾。对于顺序文件来说，如果已到文件末尾，则EOF函数返回True，否则返回False。
VIP截止日期：2024-12-31 10:37:10
←请使用支付宝扫码支付
VIP截止日期：2024-12-31 10:37:10
←请使用微信扫码支付
