精用Boolean表达式，让代码再减肥
    
    当设置基于表达式结果的Boolean型数值时，要避免使用多余的If/Then/Else语句结果。比如：
    
    
    If SomeVar > SomeOtherVar Then
    
    BoolVal = True
    
    Else
    
    BoolVal = False
    
    End If
    
    
    上面这段代码就很烦琐，它们完全可以使用下面的一行代码来替代：
    
    
    BoolVal = (SomeVar > SomeOtherVar)
    
    括号不是必须的，但可以增加可读性。根据表达式中的操作数不同，后者比前者执行起来大约快50%到85%。后者中的括号对速度没有影响。
    
    有时，使用这个技术实现代码的简练并非很明显。关键是要牢记：所有的比较操作结果或者是0（false），或者是－1（True）。所以，下面例子中的2段代码是完全相同的，但是第2段要运行得快些：
    
    
    1、传统方法：
    
    If SomeVar > SomeOtherVar Then
    
    x = x 1
    
    End If
    
    
    2、更简练的方法
    
    x = x - (SomeVar > SomeOtherVar)
    
    函数名巧做局部变量
    
    很多程序员都没有认识到“在函数本身中使用函数名”的妙处，这就象对待一个局部变量一样。应用这个技巧可以起到临时变量的作用，有时还能加速程序运行。看看下面的代码：
    
    
    
    Function Max(arr() As Long) As Long
    
    Dim res As Long, i As Long
    
    res = arr(LBound(arr))
    
    For i = LBound(arr) 1 To UBound(arr)
    
    If arr(i) > res Then res = arr(i)
    
    Next
    
    Max = res
    
    End Function
    
    去掉res变量，使用函数名称本身这个局部变量，可以使程序更加简练：
    
    Function Max(arr() As Long) As Long
    
    Dim i As Long
    
    Max = arr(LBound(arr))
    
    For i = LBound(arr) 1 To UBound(arr)
    
    If arr(i) > Max Then Max = arr(i)
    
    Next
    
    End Function
    
    火眼识破隐藏的Variant变量
    
    如果没有用As语句声明变量，默认类型就是Variants，比如：
    
    
    
    Dim name ’ this is a variant
    
    
    或者，当前模块下没有声明Option Explicit语句时，任何变量都是Variants类型。
    
    许多开发者，特别是那些先前是C程序员的人，都会深信下面的语句将声明2个Interger类型变量：
    
    
    
    Dim x, y As Integer
    
    而实际上，x被声明为了variant类型。由于variant类型变量要比Integer类型慢很多，所以要特别注意这种情况。正确的一行声明方法是：
    
    
    Dim x As Integer, y As Integer
    
    
    GoSub在编译程序中速度变慢
    
    编译为本地代码的VB应用程序中，如果使用 GoSubs 命令，就会比通常的 Subs 或者 Function 调用慢5-6倍；相反，如果是p-code模式，就会相当快。