一个32位的整数，如何取得整数中每一位？

[chenkangli]

一个32位的整数，如何取得整数中每一位？

[thirdapple]

And运算符

[xueleic]

用cstr转换成字符形,再用mid函数返回指定位置的一个字符

[xueleic]

比如
print mid(cstr(12345678901234567890123456789012),20,1)
返回
1
首个字符算第0个

[熊孩子开学喽]

32位整数吧，简单，现场写个函数给你：
Public Function GetBit(Byval SourceNumber as long , Byval BitNo as byte ) as byte
for BitNo =BitNo to BitNo-1 step -1
SourceNumber =SourceNumber \2
GetBit= SourceNumber Mod 2
next
End Function
说明：
SourceNumber ：原32位长整数
BitNo ：从右算起第几位
返回值为长整数从右开始某一位的值

[Geo_Cra]

Function GetBit(ByVal SourceNumber As Long, ByVal BitNo As Byte) As Byte
GetBit = (SourceNumber And (2 ^ (BitNo - 1))) \ (2 ^ (BitNo - 1))
End Function
说明：
SourceNumber：原32位长整数
BitNo：从右算起第几位
返回值为长整数从右开始某一位的值

VB测试通过，用And运算符要快，可惜没有移位运算，只有用整除来模拟

[wangh2122]

Function GetBit(ByVal SourceNumber As Long, ByVal BitNo As Byte) As Byte
If SourceNumber And (2 ^ BitNo) Then GetBit = 1
End Function

SourceNumber：32位长整数
BitNo：从右算起第几位，0-31
返回值0或1

这样应该是最快的了

[benniao2]

dim i as integer
'最后一位是
dim last as integer = i-i/10*10