如何在vba中求二进制序列的任意高低位值?

我们知道十进制数111,可以表示为1*10^0+1*10^1+1*10^2,即可以等于1+10+100。

任何一个n位的十进制数都可以表示为m位的数字(1≤m≤n)与10的m-1次幂的乘积之和。

类似的一个二进制数10010,可以表示为0*2^0+1*2^1+0*2^2+0*2^3+1*2^4,即等于2+16=18(十进制值)。

比如10的二进制为00001010,如果要取它的高6位,也就是取出000010,转换为十进制就是2。

由于十进制的10等于0*2^0+1*2^1+0*2^2+1*2^3+0*2^4+0*2^5+0*2^6+0*2^7

而取出的高6位000010转换为10进制的值等于0*2^0+1*2^1+0*2^2+0*2^3+0*2^4+0*2^5+0*2^6+0*2^7

相当于(0*2^0+0*2^1+0*2^2+1*2^3+0*2^4+0*2^5+0*2^6+0*2^7)/4

即相当于(0000 1010 and 1111 1100 ) /4

根据以上的分析,如果要取某个字节的高N位的值,只需要将该字节与某个10进制值取and 位运算,使得低8-N位都置0,然后除以2^(8-N)。

如果要取某个字节的低N位的值,只要将该字节与某个10进制值取and 位运算,使得高8-N位都为0,最后转换为10进制值即可。

代码如下:





       

发表评论