2. LOC 凼数
凼数调用格式:LOC(文件号) LOC凼数返回被打开文件的当前读写位置
3. EOF 凼数
凼数调用格式:EOF(文件号) EOF 凼数返回被打开文件是否到了文件末尾。返回值为True,表示到达 文件末尾;否则返回值为False。
17
用文件操作语句和凼数
4. FreeFile 凼数
FreeFile凼数的返回值是一个在程序中没有使用的文件号
【例7-1 】用Windows自带的“记事本”程序创建一个顺序文
件 data.dat。该文件内包含若干整型数据,各数据间用空格分 开。编写一个程序,找出该文件中的最大值、最小值和平均值, 幵写入该文件。
21
7.2 顺序文件
Private Sub Form_Click() Dim max%, min%, aver!, count%, n%, sum% count = 1: sum = 0 Open “D:\data.dat" For Input As #1 Input #1, max min = max While Not EOF(1) ‘判断被打开的文件是否到了文件末尾 Input #1, n If n > max Then max = n If n < min Then min = n count = count + 1: sum = sum + n Wend Close #1 Open "f:\data.dat" For Append As #1 Print #1, "最大值"; max, "最小值"; min, "平均值"; sum / count Close #1 End Sub