BYTE数的拆分

Question

BYTE的值在0~255之间变化，将其HEX后变为0~FF。
现要将其分为两个BYTE，既一个BYTE表示0~F，另一个表示F0~FF。
如何实现？

Answer 1

更改：
BYTE的值在0~255之间变化，将其HEX后变为0~FF。
现要将其分为两个BYTE，既一个BYTE表示0~F，另一个用0~F表示F0~FF。
如何实现？

Answer 2

Option ExplicitPrivate Sub Command1_Click()
       Dim BtyArr() As Byte
       Dim S1 As String
       Dim i As Long
       
       S1 = "中"
       BtyArr = StrConv(S1, vbFromUnicode)
       For i = 0 To UBound(BtyArr)
           Debug.Print Hex(BtyArr(i))
       Next
End Sub

Answer 3

不明白 
dim a as byte
dim b1 as byte ,b2 as byteb1=a
if a>&hf then 
   b2=a
   b1=0
end if
?

Answer 4

to:flyingscv(zlj)
不明白 
dim a as byte
dim b1 as byte ,b2 as byteb1=a
if a>&hf then 
   b2=a
   b1=0
end if
?
这样的话有两个问题，b1不能为0（因为是一个变量），b2化为HEX后不是0~F（肯定比它要大）。我的意思就是拆分高四位、底四位。

Answer 5

哦
b1=(a and &hF)
b2=(a and &hF0)/16
这样就行了

Answer 6

是这样吧
Private Sub Command1_Click()
Dim a As Byte
Dim b1 As Byte, b2 As Byte
a = &H78
b1 = (a And &HF)
b2 = (a And &HF0) / 16
Debug.Print b1
Debug.Print b2
End Sub

Answer 7

Debug.Print b1 是啥意思
Debug.Print b2

Answer 8

前面的问题解决了，感谢各位，特别致谢flyingscv(zlj)现还有问题是要把已得的数据转换成ASC码，还请帮忙。

Answer 9

现在是这样的，我要把既得的b1(byte)里面的0~15转换成&H31，&H32....&H39,&H41,&H42....&H45,&H46的格式存放在b3(byte)中