'设LoadBytes为二进制数据Dim BinAndData(1 To 8) As Byte
Dim BinStr As String*8
Dim OutStr As string
Dim I As Long,J As Long
Dim ArrayMin As Long,ArrayMax As longArrayMin=LBound(LoadBytes)
ArrayMax=UBound(LoadBytes)For I=1 To 8
BinAndData(I)=2^(8-I)
Next IFor I=ArrayMin To ArrayMax
For J=1 To 8
Mid$(BinStr,J,1)=IIf(LoadBytes(I) And BinAndData, "1", "0")
Next J
OutStr=OutStr + BinStr + " "
Next I
Dim BinStr As String*8
Dim OutStr As string
Dim I As Long,J As Long
Dim ArrayMin As Long,ArrayMax As longArrayMin=LBound(LoadBytes)
ArrayMax=UBound(LoadBytes)For I=1 To 8
BinAndData(I)=2^(8-I)
Next IFor I=ArrayMin To ArrayMax
For J=1 To 8
Mid$(BinStr,J,1)=IIf(LoadBytes(I) And BinAndData, "1", "0")
Next J
OutStr=OutStr + BinStr + " "
Next I
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货