源地址：　　http://zhidao.baidu.com/link?url=zs49D5HzAgoyd3siE44oLbJlVLsWGpf1zqqvXVWZg_ZGXbFY7BgKFDpCqJdANO3UyXp1RBgudctEViNfEEJZta

eof（n)是用来检查是否读到了代号为n的文件的结尾
如果是则返回true不是返回false
do while not eof(1)的意思是：
一只执行直到读到文件末尾

VB EOF