要检测一个整数值的最高有效位是否有数值，通常要使用如下的代码（有二种情况：第一组If判断表明对Integer类型，第二组对Long类型）： If intValue And &H8000 Then ' most significant bit is set End If If lngValue And &H80000000 Then ' most significant bit is set End If 但由于所有的VB变量都是有符号的，因此，最高有效位也是符号位，不管处理什么类型的数值，通过下面的代码就可以实现检测目的： If anyValue < 0 Then ' most significant bit is set End If 另外，要检测2个或者更多个数值的符号，只需要通过一个Bit位与符号位的简单表达式就可以完成。下面是应用这个技术的几段具体代码： 1、判断X和Y是否为同符号数值： If (x < 0 And y < 0) Or (x >= 0 And y >=0) Then ... ' the optimized approach If (x Xor y) >= 0 Then 2、判断X、Y和Z是否都为正数 If x >= 0 And y >= 0 And z >= 0 Then ... ' the optimized approach If (x Or y Or z) >= 0 Then ... 3、判断X、Y和Z是否都为负数 If x < 0 And y < 0 And z < 0 Then ... ' the optimized approach If (x And y And z) < 0 Then ... 4、判断X、Y和Z是否都为0 If x = 0 And y = 0 And z = 0 Then ... ' the optimized approach If (x Or y Or z) = 0 Then ... 5、判断X、Y和Z是否都不为0 If x = 0 And y = 0 And z = 0 Then ... ' the optimized approach If (x Or y Or z) = 0 Then ... 要使用这些来简单化一个复杂的表达式，必须要完全理解boolean型的操作原理。比如，你可能会认为下面的2行代码在功能上是一致的： If x <> 0 And y <> 0 Then If (x And y) Then ... 然而我们可以轻易地证明他们是不同的，比如X＝3（二进制＝0011），Y＝4（二进制＝0100）。不过没有关系，遇到这种情况时，我们可以对上面的代码进行局部优化，就能实现目的。代码如下： If (x <> 0) And y Then ...
文章来源于领测软件测试网 https://www.ltesting.net/
版权所有(C) 2003－2010 TestAge（领测软件测试网）|领测国际科技（北京）有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系：info@testage.com.cn 电话：010-51297073