Sub testQueue()
With qTest
‘入队
.Add “甲”
.Add “乙”
.Add “丙”
.Add “丁”
Debug.Print “出队顺序:”
‘出队
Do While Not .QueueEmpty
Debug.Print .Remove()
Loop
End With
End Sub
运行后的结果如下图6所示 。可以看到，出队的顺序与入队的顺序相同 。

猜你喜欢

• 适用于Excel Windows API查看器
• excel实战技巧：模拟占位输出
• 在excel工作表中插入并重命名文档对象
• excel搜索工作表指定列范围中的数据替换其复制到另一个工作表中
• 老板，做这么多Excel图表，想加班累死我吗？
• excel常用函数：公式基本原理
• excel常用函数：有趣的函数
• 理解让Excel更具智能之美的逻辑测试
• excel图表R1C1样式公式
• excel图表中的数组公式