如何取得一个Long型数的第30位的值？

(即判断该位上是1还是0) 请问 如何实现 ?

用And

dim I as long ,K as long
I=K and &H40000000&

不理解 能不能详细解释一下

20000000的二进制就是
0010,0000,0000,0000,0000,0000,0000,0000
k与其相与后保留第30位,其余位均为0

[此贴子已经被作者于2007-4-30 21:36:19编辑过]

还是不懂！

有几个错误,
第一,LONG型的数据不可能到30位,它的有效取值是:-2147483648~2147483647
第二,可以直接将数据转为字符串取它的任一位

第一、Long型的数据是32位的，正数最大值为&H7FFFFFFF&,也就是你的2147483647
第二、我不知道你这样取出来的是什么数值？

第三、我想你弄错了“位”这个含义，位是用于二进制数据中的。
第四、位是从低到高（低从0开始），所以第一个Long型的位数是从0到31，第30位为1的,其它位为0的话这个数的十六进制值就是&H40000000&,十进制为1073741824。
第五、有符号Long的值(VB没有无符号类型的长整型、C中就有有符号长整和无符号长整)是最高位为1（最高位为符号位），其它位为数值的补码，所以&HFFFFFFFF为十进制的-1
第六、如果想取一个数据某一位的值用And是最直接的方法，K=IIf(I And &H40000000&,1,0)的意思为如果I（定义I为Long）第三十位为1则K=1，否则K=0,也就是将I的第三十位的值赋值给K。

[此贴子已经被作者于2007-5-1 11:14:47编辑过]

谢谢各位  我现在理解了