Attribute VB_Name = "Module1"
Option Explicit

Public Type Info                        '自定義數(shù)據(jù)類型
    StudentID As String * 10            '學(xué)生學(xué)號
    ComputerID As Byte                  '計(jì)算機(jī)號
    Start As Date                       '開始時(shí)間
    End As Date                         '結(jié)束時(shí)間
End Type
Public IsUsed(0 To 79) As Boolean       '存儲每臺計(jì)算機(jī)是否在使用
Public status() As Info                 '存儲當(dāng)前使用的計(jì)算機(jī)信息
Public intUsed As Integer               '當(dāng)前正在使用的計(jì)算機(jī)個(gè)數(shù)