9.3·随机文件 武汉职业技术学晚 例如: Dim Lastrecord as Long 存放最后一个记录的编号 Dim student1 As student D im RecLength as long RecLength=Len (student1) ′计算每条记录的长度 FileNum=FreeFi leo 取出下一个可用文件编号 Open School. dat For Random as FileNum Len= RecLength用0pen语句打开新文件 LastRecord=LOF(Fi leNum)/RecLength 存放文件中记录的个数例如： • Dim Lastrecord As Long 存放最后一个记录的编号 • Dim student1 As student • Dim RecLength as Long • RecLength=Len(student1)  计算每条记录的长度 • FileNum=FreeFile() 取出下一个可用文件编号 • Open School .dat For Random As FileNum Len=RecLength 用Open语句打开新文件 • LastRecord=LOF(FileNum)/RecLength 存放文件中记录的个数 9.3 随机文件