VB6.0随机文件问题

VB6.0随机文件问题

标准模块Module1代码：
Public Type Teacher
  Identifier As String * 10
  Name As String * 8
  Title As String * 6
  TeachingAge As Integer
  Wages As Single
End Type
窗体Form1代码：

Private Sub QueryTeachingAge_Click()
  Load Form2
  Form2.Show
  Unload Form1
End Sub

Private Sub Quit_Click()
  End
End Sub

Private Sub SaveInputData_Click()
  Dim Teac As Teacher
  Dim RecordNumber As Single
  With Teac
    .Identifier = Text1.Text
    .Name = Text2.Text
    .TeachingAge = Text3.Text
    .Wages = Text4.Text
    For i = Option1.LBound To Option1.UBound
      If Option1(i).Value Then .Title = Option1(i).Caption
    Next i
  End With
  Open "D:Teacher.dat" For Random As #1 Len = Len(Teac)
    RecordNumber = LOF(1) / Len(Teac) + 1
    Put #1, RecordNumber, Teac
  Close #1
  MsgBox "数据已保存！"
  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Text4.Text = ""
End Sub
窗体Form2代码：

Private Sub Query_Click()
  Picture1.Cls
  Dim Teac As Teacher
  Dim RecordNumber As Long
  Dim TeachingAgeMax As Integer, TeachingAgeMin As Integer, TeachingAgeSum As Integer
  RecordNumber = 1: TeachingAgeMax = 0: TeachingAgeMin = 100
  Open "D:Teacher.dat" For Random As #1 Len = Len(Teac)
    For RecordNumber = 1 To LOF(1) / Len(Teac)
      Get #1, RecordNumber, Teac
      TeachingAgeSum = TeachingAgeSum + Teac.TeachingAge
      If Teac.TeachingAge > TeachingAgeMax Then TeachingAgeMax = Teac.TeachingAge
      If Teac.TeachingAge < TeachingAgeMin Then TeachingAgeMin = Teac.TeachingAge
    Next RecordNumber
    Picture1.Print
    Picture1.Print "     教师的最长教龄为：" & TeachingAgeMax & "年"
    Picture1.Print "     教师的最短教龄为：" & TeachingAgeMin & "年"
    Picture1.Print "     教师的平均教龄为：" & TeachingAgeSum / (LOF(1) / Len(Teac)) & "年"
  Close #1
End Sub

Private Sub Return_Click()
  Load Form1
  Form1.Show
  Unload Form2
End Sub
窗体1菜单：



窗体2菜单：


运行界面：

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！