求助VBS怎么获取一个 Byte 的各个 Bit 值

bj2008liu

求助一下VBS怎么获取一个 Byte 的各个 Bit 值，比如我读一个8bit的AI点，需要把这个每一个bit值都读取出来，然后通过判断每一位bit值做别的相应判断，求高手指导，谢谢！

CrLf

举个栗子：

1. Dim bit(16)
   
2. B=AscB("A")
   
3. 
   
4. For i=0 To 7
   
5.         bit(i)=(B And 2^i) > 0
   
6. Next
   
7. 
   
8. For i=0 To 7
   
9.         WScript.Echo -bit(i)
   
10. Next
    

复制代码

bj2008liu

Sub BSButton7_OnClick()
    Dim BitValue '读取值
    Dim BitLoc 'bit位
    BitValue = CInt(edit8.WindowText)
    BitLoc = CInt(edit9.WindowText)
    MsgBox ((BitValue / (2 ^ BitLoc)) and 1)
End Sub

bj2008liu

感谢。。。。。。