IDC资讯中心
要检测一个整数值的最高有效位是否有数值，通常要使用如下的代码（有二种情况：第一组If判断表明对Integer类型，第二组对Long类型）：
IfintValueAnd&H8000Then
mostsignificantbitisset
EndIf
IflngValueAnd&H80000000Then
mostsignificantbitisset
EndIf
但由于所有的VB变量都是有符号的，因此，最高有效位也是符号位，不管处理什么类型的数值，通过下面的代码就可以实现检测目的：
IfanyValue<0Then
mostsignificantbitisset
EndIf
另外，要检测2个或者更多个数值的符号，只需要通过一个Bit位与符号位的简单表达式就可以完成。下面是应用这个技术的几段具体代码：
1、判断X和Y是否为同符号数值：
If(x<0Andy<0)Or(x>=0Andy>=0)Then…
theoptimizedapproach
If(xXory)>=0Then
2、判断X、Y和Z是否都为正数
Ifx>=0Andy>=0Andz>=0Then…
theoptimizedapproach
If(xOryOrz)>=0Then…
3、判断X、Y和Z是否都为负数
Ifx<0Andy<0Andz<0Then…
theoptimizedapproach
If(xAndyAndz)<0Then…
4、判断X、Y和Z是否都为0
Ifx=0Andy=0Andz=0Then…
theoptimizedapproach
If(xOryOrz)=0Then…
5、判断X、Y和Z是否都不为0
Ifx=0Andy=0Andz=0Then…
theoptimizedapproach
If(xOryOrz)=0Then…
要使用这些来简单化一个复杂的表达式，必须要完全理解boolean型的操作原理。比如，你可能会认为下面的2行代码在功能上是一致的：
Ifx<>0Andy<>0Then
If(xAndy)Then…
然而我们可以轻易地证明他们是不同的，比如X＝3（二进制＝0011），Y＝4（二进制＝0100）。不过没有关系，遇到这种情况时，我们可以对上面的代码进行局部优化，就能实现目的。代码如下：
If(x<>0)AndyThen…
->
