VB课件含具体例子第10章文件2章节幻灯片.pptVIP

随机文件的读操作 Get #语句 功能：将打开文件中的数据读到变量中 语法：Get #文件号,[记录号],变量 Dim a As String * 7 Open “abc.txt” For Random As #2 Len = 17 a = InputBox(“请输入要查找的学号：”) j = 1 Do While Not EOF(2) Get #2, j, person If person.stu_id = a Then Print stu_id, person.name, person.sex Exit Do End If j = j + 1 Loop If j LOF(2) / Len(person) Then Print “无此学号！” End If Close #2 Type recordtype stu_id As String * 7 name As String * 8 sex As String * 2 End Type 增加、删除随机文件中的记录 增加记录(添加记录) 求最后一条记录号 末记录号=文件长度/记录长度 文件长度=EOF(文件号) 记录长度=Len(记录型变量) 添加记录的号=末记录号+1 删除记录 方法1：把要删除记录的下一条记录写入到要删除的记录位置，其后所有记录依次前移。但最后两条记录相同(记录数不变) 方法2：打开一临时文件，将不删除的记录逐条写入；删除原文件，重新命名临时文件名 二进制文件 打开文件： Open “文件名” FOR Binary As #文件号 写操作 Put #文件号，位置，变量 读操作 Get #文件号，位置，变量 实验13 -7 Option Explicit Private Sub Form_Click() Dim b As String * 12, a$, c As Integer Open file3.txt For Binary As #1 start: a$ = InputBox(enter students name:) If Trim(a$) = Then GoTo display c = Val(InputBox(enter score:)) b = a$ Put #1, , b Put #1, , c GoTo start display: Seek #1, 1 Do While Not EOF(1) Get #1, , b Get #1, , c Print b, c Loop Close #1 End Sub 1.要实现驱动器列表框、目录列表框及文件列表框之间数据的同步，须在驱动器列表框和目录列表框的Change事件分别添加以下代码? A. Dir1.Path=Drive1.Drive File1.Path=Drive1. Drive B. Dir1.Path=Drive1. Drive File1.Path=Dir1.Path C. File1.Path=Drive1. Drive Dir1.Path=Drive1. Drive D. File1.Path=Dir1.Path Dir1.Path=Drive1. Drive 练习 B 2.语句Open”Mjq.Txt” For Input As #Freefile” 表示? 打开一二进制文件”Mjq.Txt”，为读数据做准备 打开一顺序制文件”Mjq.Txt”，为读数据做准备 打开一随机文件”Mjq.Txt”，为写数据做准备 D. 打开一随机文件”Mjq.Txt”，为读数据做准备 3.利用? 函数可以判断在访问文件时是否已经到达了文件尾？ A. LOF B. LOC C. EOF D. BOF C B 4.用下列哪个代码段可以实现向顺序文件 Test.Date写入数据? A. Open “Test.Date” for Input As # 10 Print # 10, 1, 2, 3, 4, 5, 6 Close 10 B. Open “Test.Date” for Output As # 10 P