这个用动态数组应该就可以了吧,加号时加到最后一个,减号时用一个循环1=2,2=3.。。。然后用redim 把最后一项去掉。用字典也可以,指定二个整型变量分别为待处理号k 和新领号n,加号时dic.add k,""k=k+1加到key中;减号时dic.remove nn=n+1字典的key就是整个队列 追问 您好,因为我是毕业设计用,我已经有个程序了,但VB不是很懂,程序上没有叫号功能,全部都是自行在模拟动态系统,所以能不能帮忙改下程序?