VB怎么取一个字节的位

1、以字节为单位进行加密处理;

2、将1个字节的8位二进制数分割成前4位与后4位两个二进制数;

3、.分别将上述两个4位二进制数转换为十进制数

4、双字节操作Dim a&(1 To 16), i&, data&, n&a(1) = 1For i = 2 To 16

5、a(i) = a(i - 1) * 2Nextdata = 58038n = 5

6、'从右往左查询data的第N位是0还是1If (data And a(n)) = a(n) Then MsgBox "该位是1"Else MsgBox "该位是0"End If