求一个银行排队叫号系统 只要能实现排队和叫号就行 VB C++都行

　　如今银行业务不断发展，人们对于时间观念意识提高，银行办事排队时间越来越长。为此银行排队系统为了满足广大储户办理存取款业务，实现方便快捷排队的需求而设计的一套无纸化、网络化、智能化的信息系统。银行排队叫号系统的应用可以减少储户在银行营业厅排队办理业务时白白浪费的时间，极大的方便了银行存蓄用户，合理分化了排队人流。
　　银行排队叫号系统相比传统的排队方式投资低，使用简单，维护方便，用户更容易接受,朗歌排队叫号系统带来的社会效益及经济效益使该系统具有较强的实用性及推广性，应用领域不限于银行，而且可以在其它众多窗口服务性领域推广应用，诸如：税务大厅、电力营业厅、医院挂号等等。朗歌智能排队叫号系统后续将不断推进“智能化”银行建设，为客户带来更方便快捷的服务体验。

某银行有2个工作窗口，顾客进来之后会自由选择排在那个队伍中。
要求：
（1）每3秒产生一个顾客或者0个顾客。
（2）顾客进来后会选择队伍短的队伍排队
（3）每个顾客业务处理的时间为8秒。
（4）窗体上动态显示当前银行运行状态：每个窗口有几个人在排队，新来的顾客排在哪里，结束的顾客离开。
Dim guke As Long
Dim l1, l2 As Long
Private Sub Form_Load()
Timer1.Interval = 3000
Timer2.Interval = 8000
Timer3.Interval = 8000
Timer1.Enabled = True
Label1.Caption = "现在有0个顾客正在等候，新到的顾客请到这来等候！"
Label2.Caption = "现在有0个顾客正在等候，新到的顾客请到这来等候！"
End Sub
Private Sub Timer1_Timer()
guke = guke + 1
If l1 > l2 Then
l2 = l2 + 1
Timer3.Enabled = True
Label1.Caption = "现在有" & l1 & "个顾客正在等候，新到的顾客请到这来等候！"
Label2.Caption = "现在有" & l2 & "个顾客正在等候"
Else
l1 = l1 + 1
Timer2.Enabled = True
Label2.Caption = "现在有" & l2 & "个顾客正在等候，新到的顾客请到这来等候！"
Label1.Caption = "现在有" & l1 & "个顾客正在等候"
End If
End Sub
Private Sub Timer2_Timer()
l1 = l1 - 1
Label1.Caption = "现在有" & l1 & "个顾客正在等候，新到的顾客请到这来等候！"
Label2.Caption = "现在有" & l2 & "个顾客正在等候"
End Sub
Private Sub Timer3_Timer()
l2 = l2 - 1
Label2.Caption = "现在有" & l2 & "个顾客正在等候，新到的顾客请到这来等候！"
Label1.Caption = "现在有" & l1 & "个顾客正在等候"
End Sub
希望帮到你