EOF为End Of File的缩写，在操作系统中表示资料源无更多的资料可读取。
创新互联建站成立于2013年，我们提供高端网站建设公司、网站制作、成都网站设计、网站定制、成都营销网站建设、小程序制作、微信公众号开发、seo优化排名服务，提供专业营销思路、内容策划、视觉设计、程序开发来完成项目落地，为成都混凝土搅拌罐车企业提供源源不断的流量和订单咨询。
DO while not EOF(1)解释：判断当eof(1)的值为true时停止do循环。
使用EOF是为了避免因试图在文件结尾处进行输入而产生的错误。
直到到达文件的结尾，EOF函数都返回False。对于为访问Random或Binary而打开的文件，直到最后一次执行的Get语句无法读出完整的记录时，EOF都返回False。
扩展资料：
EOF(filenumber)：必要的filenumber参数是一个Integer，包含任何有效的文件号
EOF 指示当前记录位置位于 Recordset 对象的最后一个记录之后。
BOF 指示当前记录位置位于 Recordset 对象的第一个记录之前。
EOF一般是指结尾，比如：SQL 中指针到最后一个 Rs.EOF = True 时，eof是判断SQL取出来的记录是否到末尾了；而bof是判断是不是在记录最前面。
当查询数据库的，时候，如果查询的数据为空，或者数据 指针移动到了最后，这个时候指针再移动一次就到了 最后的空行了，我们用 BOF表示。或者这个时候指针又回到第一行的标题行，此行是没有数据的。用 EOF表示。
在使用的时候，我们通常是用来检查数据查询是否为空，或者是在输出数据的时候，是否已经到了最后，后面已经没有数据了，然后跳出循环！
eof() 函数的作用是判断是否到文件尾.例如：
dim s as string
open "c:\1.txt" for input as #1
do while not eof(1)
line input #1,s
print s
loop
close #1
lof 是返回的是打开的文件的大小,例如：
open "c:\1.txt" for input as #1
print lof(1)
close #1
