第八章数据文件.pptVIP

  • 19
  • 0
  • 约9.99千字
  • 约 38页
  • 2015-09-09 发布于北京
  • 举报
例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

文档评论(0)

1亿VIP精品文档

相关文档