正在阅读：VB超频快餐，让我一次用个够！（五）VB超频快餐，让我一次用个够！（五）

2004-02-14 09:34 出处：eNet学院作者：听风责任编辑：pjl

访问简单变量总是快于数组元素值读写数组中的元素速度通常都慢于访问一个简单变量，因此，如果在一个循环中要重复使用同一数组元素值，就应该分配数组元素值到临时变量中并使用这个变量。下面举一个例子，检测整数数组中是否存在重复项： Function AnyDuplicates(intArray() As Integer) As Boolean ’如果数组包含重复项，返回True Dim i As Long, j As Long, Dim lastItem As Long Dim value As Integer ’只计算机UBound()一次 lastItem = UBound(intArray) For i = LBound(intArray) To lastItem ’ 保存intArray(i)到非数组变量中 value = intArray(i) For j = i + 1 To lastItem If value = intArray(j) Then AnyDuplicates = True Exit Function End If Next Next ’没有发现重复项 AnyDuplicates = False End Function 上述程序有2层循环，通过缓存intArray(i)的数值到一个普通的、非数组变量中，节省了CPU运行时间。经测试，这将提高80%的速度。创建新表时，快速拷贝字段在VB6中，无需离开开发环境就可以创建新的SQL Server和Oracle表。方法很简单：打开DataView窗口，用鼠标右键单击数据库的表文件夹，再选择新表格菜单命令。当处理相似表格时，就是说具有许多相同字段的表格，我们完全可以在很短的时间内容完成设定操作。具体步骤是：在设计模式下打开源表格，加亮选择要拷贝字段对应的行，按Ctrl-C拷贝信息到粘贴板；然后，在设计模式打开目标表格，将光标置于要粘贴字段所在的位置，按Ctrl-V。这样，就拷贝了所有的字段名称以及它们所带的属性。