form7.frm

这是本人编写的一个类似于网吧管理软件

VERSION 5.00
Begin VB.Form Form7 
   Caption         =   "Form7"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form7"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
For I = 1 To 6
b(I).day = day(Date)
b(I).name1 = "fdsdsf"
b(I).time = 179
Next I
Open App.Path & "\b.dat" For Random As #1
For I = 1 To 6
Put #1, I, b(I)
Next I
Close #1

End Sub