module1.bas

自

Attribute VB_Name = "Module1"
Option Explicit

Public Type Info                        '自定义数据类型
    StudentID As String * 10            '学生学号
    ComputerID As Byte                  '计算机号
    Start As Date                       '开始时间
    End As Date                         '结束时间
End Type
Public IsUsed(0 To 79) As Boolean       '存储每台计算机是否在使用
Public status() As Info                 '存储当前使用的计算机信息
Public intUsed As Integer               '当前正在使用的计算机个数