VB超频快餐之四(转)

2、更加简练的方法：

result = InStr(";zero;;one;;;two;;;three;four;;five;;six;;;seven;eight;nine;", _

";" & LCase$(word) & ";") 6

精用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
[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925221/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925221/