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