1. 使用整数（Integer）和长整数（Long）
提高
代码运行速度最简单的方法莫过于使用正确的
数据类型了。也许你不相信，但是正确地选择
数据类型可以大幅度提升
代码的性能。在大多数情况下，程序员可以将Single，Double和Currency类型的变量替换为Integer或Long类型的变量，因为VB处理Integer和Long的能力远远高于处理其它几种
数据类型。下面是排序：
Long 最快
Integer .
Byte .
Single .
Double .
Currency 最慢
在大多数情况下，程序员选择使用Single或Double的原因是因为它们能够保存小数。但是小数也可以保存在Integer类型的变量中。例如程序中约定有三位小数，那么只需要将保存在Integer变量中的数值除以1000就可以得到结果。根据我的经验，使用Integer和Long替代Single，Double和Currency后，
代码的运行速度可以提高将近10倍。
2. 避免使用变体
对于一个VB程序员来说，这是再明显不过的事情了。变体类型的变量需要16个字节的
空间来保存
数据，而一个整数（Integer）只需要2个字节。通常使用变体类型的目的是为了减少设计的工作量和
代码量，也有的程序员图个省事而使用它。但是如果一个
软件经过了严格设计和按照规范编码的话，完全可以避免使用变体类型。
在这里顺带提一句，对于Object对象也存在同样的问题。请看下面的
代码：
Dim FSO
Set FSO = New Scripting.FileSystemObject
或
Dim FSO as object
Set FSO = New Scripting.FileSystemObject
上面的
代码由于在申明的时候没有指定
数据类型，在赋值时将浪费内存和CPU时间。正确的
代码应该象下面这样：
Dim FSO as New FileSystemObject
3. 尽量避免使用属性
在平时的
代码中，最常见的比较低效的
代码就是在可以使用变量的情况下，反复使用属性（Property），尤其是在循环中。要知道存取变量的速度是存取属性的速度的20倍左右。下面这段
代码是很多程序员在程序中会使用到的：
Dim intCon as Integer
For intCon = 0 to Ubound(SomVar())
Text1.Text = Text1.Text & vbcrlf & SomeVar(intCon)
Next intCon
下面这段
代码的执行速度是上面
代码的20倍。
Dim intCon as Integer
Dim sOutput as String
For intCon = 0 to Ubound(SomeVar())
sOutput = sOutput & vbCrlf &
SomeVar(intCon)
Next
Text1.Text = sOutput
同样地，像这样的
代码 . . .
Do Until EOF(F)
Line Input #F, nextLine
Text1.Text = Text1.Text + nextLine
Loop
. . . 比下面的
代码慢得多：
Do Until EOF(F)
Line Input #F, nextLine
bufferVar = bufferVar + nextLine
Loop
Text1.Text = bufferVar
然而，下面的
代码完成了相同的功能，而且还要快：
Text1.Text = Input(F, LOF(F))
如上述，几种方法都实现了同样的任务；同时，最好的算法也是最优的。
4. 尽量使用数组，避免使用集合
除非你必须使用集合（Collection），否则你应该尽量使用数组。据测试，数组的存取速度可以达到集合的100倍。这个数字听起来有点骇人听闻，但是如果你考虑到集合是一个对象，你就会明白为什么差异会这么大。
5. 展开小的循环体
在编码的时候，有可能遇到这种情况：一个循环体只会循环2到3次，而且循环体由几行
代码组成。在这种情况下，你可以把循环展开。原因是循环会占用额外的CPU时间。但是如果循环比较复杂，你就没有必要这样做了。
6. 避免使用很短的函数
和使用小的循环体相同，调用只有几行
代码的函数也是不经济的--调用函数所花费的时间或许比执行函数中的
代码需要更长的时间。在这种情况下，你可以把函数中的
代码拷贝到原来调用函数的地方。
7. 减少对子对象的引用
在VB中，通过使用.来实现对象的引用。例如：
Form1.Text1.Text
在上面的例子中，程序引用了两个对象：Form1和Text1。利用这种方法引用效率很低。但遗憾的是，没有办法可以避免它。程序员唯一可以做就是使用With或者将用另一个对象保存子对象（Text1）。
' 使用With
With frmMain.Text1
.Text = "Learn VB"
.Alignment = 0
.Tag = "Its my life"
.BackColor = vbBlack
.ForeColor = vbWhite
End With
或者
' 使用另一个对象保存子对象
Dim txtTextBox as TextBox
Set txtTextBox = frmMain.Text1
TxtTextBox.Text = "Learn VB"
TxtTextBox.Alignment = 0
TxtTextBox.Tag = "Its my life"
TxtTextBox.BackColor = vbBlack
TxtTextBox.ForeColor = vbWhite
注意，上面提到的方法只适用于需要对一个对象的子对象进行操作的时候，下面这段
代码是不正确的：
With Text1
.Text = "Learn VB"
.Alignment = 0
.Tag = "Its my life"
.BackColor = vbBlack
.ForeColor = vbWhite
End With
很不幸的是，我们常常可以在实际的
代码中发现类似于上面的
代码。这样做只会使
代码的执行速度更慢。原因是With块编译后会形成一个分枝，会增加了额外的处理工作。
8. 检查字符串是否为空
大多数程序员在检查字符串是否为空时会使用下面的方法：
If Text1.Text = "" then
' 执行操作
End if
很不幸，进行字符串比较需要的处理量甚至比读取属性还要大。因此我建议大家使用下面的方法：
If Len(Text1.Text) = 0 then
' 执行操作
End if
9. 去除Next关键字后的变量名
在Next关键字后加上变量名会导致
代码的效率下降。我也不知道为什么会这样，只是一个经验而已。不过我想很少有程序员会这样画蛇添足，毕竟大多数程序员都是惜字如金的人。
' 错误的
代码 For iCount = 1 to 10
' 执行操作
Next iCount
' 正确的
代码 For iCount = 1 to 10
' 执行操作
Next
10. 使用数组，而不是多个变量
当你有多个保存类似
数据的变量时,可以考虑将他们用一个数组代替。在VB中，数组是最高效的
数据结构之一。
11. 使用动态数组，而不是静态数组
使用动态数组对
代码的执行速度不会产生太大的影响，但是在某些情况下可以节约大量的资源。
12. 销毁对象
无论编写的是什么
软件，程序员都需要考虑在用户决定终止
软件运行后释放
软件占用的内存
空间。但遗憾的是很多程序员对这一点好像并不是很在意。正确的做法是在退出程序前需要销毁程序中使用的对象。例如：
Dim FSO as New FileSystemObject
' 执行操作
' 销毁对象
Set FSO = Nothing
对于窗体，可以进行卸载：
Unload frmMain
或
Set frmMain = Nothing
13. 变长和定长字符串
从技术上来说，与变长字符串
您当前的位置：