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@]
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博客 ” ，链接：https://blog.itpub.net/8781179/viewspace-925221/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
VB超频快餐之三(转)
下一篇：
VB超频快餐之五(转)
请登录后发表评论
登录
全部评论
