高分求高手解释下程序

来源：百度知道 编辑：UC知道 时间：2024/06/30 09:28:23
Private Sub 叫号(窗口号码 As Integer)
服务对象(窗口号码) = 未处理(1)
叫号信息(窗口号码) = "请A" & Format(未处理(1), "00000") & "号到" & 窗口号码 & "号窗口办理业务"
未处理数 = 未处理数 - 1 '已经排队等候10个人，现在叫走第1个，等候的人数
For i = 1 To 未处理数
未处理(i) = 未处理(i + 1)
Next i
ReDim Preserve 未处理(未处理数)
服务状态(窗口号码) = 1
Command2(窗口号码 - 1).Enabled = True
End Sub

显示VIP信息：
Private Sub VIP叫号()
服务对象(4) = VIP未处理(1)
叫号信息(4) = "请B" & Format(VIP未处理(1), "00000") & "号到4号窗口办理业务"
VIP未处理数 = VIP未处理数 - 1
For i = 1 To VIP未处理数
VIP未处理(i) = VIP未处理(i + 1)
Next i
ReDim Preserve VIP未处理(未处理数)
服务状态(4) = 1
办理时间(4) = 10
Command5.Enabled = True
End Sub
解释一下这两段代码的意思,看懂一半而已

Private Sub 叫号(窗口号码 As Integer)
---定义一个过程叫号
服务对象(窗口号码) = 未处理(1)
---未处理数组（1）赋值给服务对象(窗口号码)
叫号信息(窗口号码) = "请A" & Format(未处理(1), "00000") & "号到" & 窗口号码 & "号窗口办理业务"
----数组叫号信息(窗口号码)被赋值为“请A数字数组号到数字号窗口办理业务”
未处理数 = 未处理数 - 1 '已经排队等候10个人，现在叫走第1个，等候的人数
-------未处理数 顺序减去1
For i = 1 To 未处理数
----------循环把数组的下一个数给上一个数
未处理(i) = 未处理(i + 1)
Next i
ReDim Preserve 未处理(未处理数)
---------重新定义数组
服务状态(窗口号码) = 1
--------服务状态(窗口号码) = 1
Command2(窗口号码 - 1).Enabled = True
--------按钮控件数组-1可用
End Sub

显示VIP信息：
Private Sub VIP叫号()
--------定义一个vip叫号过程
服务对象(4) = VIP未处理(1)
---------服务对象(4) 被赋值VIP未处理(1)
叫号信息(4) = "请B" & Format(VIP未处理(1), "00000") & "号到4号窗口办理业务"
----叫号信息(4)为“请B数字数组号到数字号到4号窗口办理业务”
VIP未处理数 = VIP未处理数 - 1
----VIP未处理数顺序减1
For i = 1 To VIP未处理数
----------循环把数组的下一个数给上一个数