第十五章数据文件.pptVIP

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 * 随机文件应用示例 1. 设计窗体 2. 编写代码 定义记录类型及记录变量 Private Type ShuJu Name As String * 10 Tel As String * 10 End Type Dim Ren As ShuJu，n As Int