从头开始删除集合项目

有许多方法可以删除收藏中的所有内容，其中一些非常快。看看一个10，000个项目的集合:
dimcol作为新集合，I long
for I = 1到10000
col.add I，CSTR (I)
下一个

您可以从结束位置开始删除收藏内容，如下所示:

For I = col . Count To 1 Step-1
col . Remove I

然后

您也可以从起始位置删除集合的内容，如下所示:

对于i = 1到col.Count步骤1
col.Remove i
下一步

实验证明，后者比前者快100多倍，比如0.06秒到4.1秒。原因是，当引用接近末尾的集合项目时，VB必须从第一个项目开始遍历整个项目链。更有意思的是，如果收藏项目数量翻倍，从末尾删除比从开头删除要多花两倍的时间，比如前者24秒，后者可能只有0.12秒那么短！最后提醒你，删除一个收藏里所有内容最快的方法就是“销毁”它。使用以下语句:Set col = New Collection

对于2万个条目的集合，上述操作只需要0.05秒，比用最快的循环操作删除快2倍左右。