63随机文件读写一读写随机文件 返回目录 Private Sub Form Click Dim varTeacherrec as teacherrec'定义记录类型变量 Open"C: teacher. txt"For Random As #1 With varTeacherrec 给记录类型变量的各字段赋值 Name="丁进":Wage=1560.5: Level="讲师" End with Put#1, varTeacherrec'将记录类型变量的值写入文件 Get#1,1, varTeacherrec"将第一个记录的内容读到变量中 Print varTeacherrec Name'输出各字段的值 Print varTeacherrec Wage Print varTeacherrec Level Close #1 End sub6.3 随机文件读写－读写随机文件 Private Sub Form_Click() Dim varTeacherRec As TeacherRec '定义记录类型变量 Open "C:\teacher.txt" For Random As #1 With varTeacherRec '给记录类型变量的各字段赋值 .Name = "丁进" : .Wage = 1560.5 : .Level = "讲师" End With Put #1, , varTeacherRec '将记录类型变量的值写入文件 Get #1, 1, varTeacherRec '将第一个记录的内容读到变量中 Print varTeacherRec.Name '输出各字段的值 Print varTeacherRec.Wage Print varTeacherRec.Level Close #1 End Sub 返回目录