UC知道请问在VB里怎样把一个字节(16进制)取出其高4位和低4位？
来源：百度知道 编辑：UC知道 时间：2024/06/04 13:52:18
请问在VB里怎样把一个字节(16进制)取出其高4位和低4位？不知道在哪里看过好像用& &Hf来取低4位，但调试不通，请高手赐教，谢谢
不好意思，只有20分。
Private Sub Command1_Click()
Dim i As Long
Dim databyte As Byte
Dim lowbit As Byte, highbit As Byte
cdg1.Filter = "文本文件(*.txt)|*.txt"
cdg1.ShowOpen
file_name = cdg1.FileName
i = 1
Open cdg1.FileName For Binary Access Read As #1
Do While EOF(1) = 0
Seek 1, i
Get 1, , databyte
lowbit = databyte And &HF
highbit = databyte And &HF0
Text1.Text = Text1.Text & databyte & " " & lowbit & " " & highbit
i = i + 1 '指针加1
Loop
Close #1 '关闭文件
End Sub
请vlaoda 帮我看下这个程序，是我数据类型不对还 是别的原因，一直得不到正确的高低4位的值，谢谢
不好意思，只有20分。
Private Sub Command1_Click()
Dim i As Long
Dim databyte As Byte
Dim lowbit As Byte, highbit As Byte
cdg1.Filter = "文本文件(*.txt)|*.txt"
cdg1.ShowOpen
file_name = cdg1.FileName
i = 1
Open cdg1.FileName For Binary Access Read As #1
Do While EOF(1) = 0
Seek 1, i
Get 1, , databyte
lowbit = databyte And &HF
highbit = databyte And &HF0
Text1.Text = Text1.Text & databyte & " " & lowbit & " " & highbit
i = i + 1 '指针加1
Loop
Close #1 '关闭文件
End Sub
请vlaoda 帮我看下这个程序，是我数据类型不对还 是别的原因，一直得不到正确的高低4位的值，谢谢
你的lowbit和highbit值没问题，只是用十进制显示的。
你可以用Hex(databyte)得到databyte的十六进制表示，然后高位就是Left(Hex(databyte),1)，低位就是Right(Hex(databyte),1)。
例如字节变量是a
高4位可以写成 a\16
低4位可以写成 a mod 16
使用 and 运算也可以。
高4位 a and 240
或者 a and &hf0
（注意，低4位的零保留着没有去掉）
低4位 a and 15
或者 a and &hf