Question

vb中整数转成两个字节

比如integer=264，其二进制为00000001 00001000
若转换成两个byte型数据，使b(0)=1(即00000001),b(1)=8(即00001000)，请问该怎样转换？

Answer 1

楼上方法只适合正整数转换。
比如&H8001（-32767），转换成两个字节应为&H80(128)和&H1(1)，如果按整除和取余，则得到-127和-255，这两个数是错误的，而且不能赋给byte型变量。

正确方法有：
1. 使用copymemory
2. 使用hex函数转换成字符型，然后用mid分别取出两个字节后在前面加上“&H”再转换回byte类型，
3. 判断如果数值小于0，则将此数值与&H8000做AND NOT运算得到一个正整数，之后分别整除和取余得到两个字节，并在整除得到的byte数值上加&H80(128)

Answer 2

Dim testa As Integer '两字节整型数
Dim b(1) As Byte '字节型
testa = 264 '整型数赋值
b(0) = testa And &HFF '保留低字节，高字节全清零，即可直接赋值给字节型。
b(1) = Int(testa / 16 / 16) And &HFF '高字节右移八位变低字节,int整除不四舍五入。
List1.AddItem Hex(b(0)) '看结果
List1.AddItem Hex(b(1))
简单完美

Answer 3

b(0) = i \ 256
b(1) = i mod 256