怎样实现按位输出???

Question

先按位写到Byte型数据中，在把Byte型数据输出！

Answer 1

'长整形Private Function DeOut(ByVal lngO As Long) As Boolean
    Dim lngT As Long, lngW As Long
    
    For lngT = 1 To 32
        lngW = lngO Mod 2
        Debug.Print lngW; ";";
        lngO = Fix(lngO / 2)
    Next lngT
    
End Function

Answer 2

dim s as string
dim a(1 to 10) as byte
dim i as integers="aaaa"
copymemory a(1),byval s,lenb(s)
for i=1 to lenb(s)
debug.print a(i)
next
输出是97 97 97 97 0 0 106 0
后面的106,0怎么出来的
为什么将copymemory a(1),byval s,lenb(s)中的参数s用strptr(s)代替后就转化为unicode码
了
这个过程是怎么实现的

Answer 3

Dim s As String
Dim a() As Bytea=StrConv(s,vbFromUniCode)