第八章数据文件.pptVIP

例8.6 编写学生信息管理程序 添加标准模块，定义变量 Type StudType iNo As Integer strName As String * 20 strSex As String * 1 sMark As Single End Type 在窗体编辑程序 Dim Student As StudType Dim Record_No As Integer Sub Form_Load() Open C:\STUDENT.DAT For Random As #1 Len = Len(Student) Label2.Caption = LOF(1) / Len(Student) Close #1 End Sub Sub Command1_Click() With Student .iNo = Val(Text1.Text) .strName = Text2.Text .strSex = IIf(Option1.Value, 1, 0) .sMark = Val(Text3.Text) End With Open C:\STUDENT.DAT For Random As #1 Len = Len(Student) Record_No = LOF(1) / Len(Student) + 1