byte类型的变量直接相加的话,很容易引起溢出,所以不能直接相加:dim byte1 as byte dim byte2 as byte dim buff() as byte redim buff(1) buff(0)=byte1 buff(1)=byte2
或者,用integer型变量保存数据:dim byte1 as byte dim byte2 as byte dim i as integer i=byte1*2^8+byte2
哦,上面的byte1和byte2忘记赋值了,你自己加上吧
俺的byte数据是一个2进制的文件,不知道转换为integer后会不会有问题,还有,如何转回来啊?
如何将integer的数据再转换回byte的东东呢?
//如何将integer的数据再转换回byte的东东呢? Dim i As Integer i = 23456 Dim byte1 As Byte Dim byte2 As Byte byte1 = i \ 2 ^ 8 MsgBox byte1 byte2 = i - byte1 * 256 MsgBox byte2
dim byte2 as byte
dim buff() as byte
redim buff(1)
buff(0)=byte1
buff(1)=byte2
dim byte2 as byte
dim i as integer
i=byte1*2^8+byte2
Dim i As Integer
i = 23456
Dim byte1 As Byte
Dim byte2 As Byte
byte1 = i \ 2 ^ 8
MsgBox byte1
byte2 = i - byte1 * 256
MsgBox byte2