当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 以下程序的功能是:将当前目录下的顺序文件mText1.txt的内容读入内存,并在图片框 Picture1中显示出来。请完善程序。 Private Sub Command1_Click()Dim inData As StringOpen ".mText1.txt" 【13】 As 1Do While Not EOF(1) Input #1,inData Picture1.Print inDataLoopClose #1 End Sub

  

参考答案:

ForInput

解析:

[分析]:在用Open语句打开mText1.txt文件时,ForInput表示顺序输入方式,ForOutput表示顺序输出方式。EOF函数用来测试文件的结束状态。利用EOF函数,可以避免在文件输入时出现“输入超出文件尾”的错误。在文件输入期间,可以用EOF测试是否到达文件末尾。对于顺序文件来说,如果已到文件末尾,则EOF函数返回True,否则返回False。

  参考解析

微信端