随机文件文件的操作
顺序文件、随机文件和二进制文件的区别：
1，顺序文件，适用于读写连续块中的文本文件，以字符存储。由于是以字符存储，因此不宜存储太长的文件(如大量数字)。否则会占据大量资源。
2，随机文件，适用于读写有固定长度多字段记录的文本文件或二进制文件，以二进制数存储；
3，二进制文件，适用于读写任意结构文件，以二进制信息存储（1字节=8个二进制位），在打开时，要根据不同方式进行二进制码的转换。
随机文件文件的操作包括四个步骤：
- 自定义数据类型
- 打开随机文件
- 读写随机文件
- 关闭随机文件
FreeFile函数：获得下一个未被使用的文件号，其返回值为一整型值。
App.Path属性：返回当前路径。如现在运行的是通讯簿程序，则返回其路径"D:\通讯簿(文件读写)"
Lof函数：返回指定文件号相关联的文件的长度。如：Lof(FileNo)/Len(st1) 则求得文件中记录总数
(2)打开随机文件语句格式：Open 文件名 For Random As #文件号 Len=记录长度
FileNo = FreeFile '获取下一个文件号
例如：Open App.Path & "\st.txt" For Random As #FileNo Len = Len(st1) '打开随机文件"D:\通讯簿(文件读写)\st.txt"，并指定文件号为FreeFile函数取得的文件号，文件记录的长度为变量st1的长度。
随机文件读操作语句格式：Get #文件号,[记录号],记录变量
如 Get #FileNo, 1, st1 '从文件号FileNo相关联的文件中读取第1个记录并将其保存在变量st1中
随机文件的写操作语句格式：Put #文件号,[记录号],记录变量
如 Put #FileNo, 1, st1 '将变量st1的内容写入到文件号FileNo相关联的文件中第1个记录的位置上
指定记录号的语句格式： Seek #文件号,记录号
如 Seek #1,1 '指定文件号1相关联的文件的记录呈定位在第1个记录上
Get #1, , st1 '读取文件号1相关联的文件中当前记录(实际上就是第1个记录)
关闭文件语句格式：Close [#文件号1],[#文件号2]…
如 Close #1,#FileNo '关闭与文件号#1、#FileNo相关联的文件
Close '关闭所有已打开的文件