module1.bas

vb实现银行事件模拟

Attribute VB_Name = "Module1"
Option Explicit
'定义客户个人信息
Type Person
    PersonSN As Integer
    MoneyType As Integer
    LeftTime As Date
End Type
'定义队列信息
Type Queue
    QueueLength As Integer
    Person() As Person
End Type
'定义事件表
Type Events
    MoneyType As Integer
    LeftTime As Date
    ComeTime As Date
End Type