快速实现 Integer 值 与 Byte 互换算，拓展思路

海狸先生

先定义一个byte数组

dim bytI() as Byte

bytI=chrW(20520)

这样就把　20520　这个数值 换算成 byte 了，

用 for i=lboung(bytI) to ubound(bytI)

debug.print bytI(i)

next

就可以查看出换算后的值了

[此贴子已经被作者于2005-8-13 19:07:10编辑过]

海狸先生

同理　用 AscW(byti) 就可以把　byte 换算成　Integer

[此贴子已经被作者于2005-8-13 19:06:20编辑过]

LucasLynn

这里应该是没有考虑负数问题吧。

海狸先生

你可以试一下哦

LucasLynn

以下是引用海狸先生在2005-8-13 20:42:00的发言：

你可以试一下哦

可是大小范围的限制太不爽了，我要转换的都是Long，一不小心就溢出了……

[em06]

海狸先生

不过速度我没测试，你试试，另外long转换交给你了，呵呵

eyewitnes

以下是引用海狸先生在2005-8-14 9:10:00的发言：



不过速度我没测试，你试试，另外long转换交给你了，呵呵

太不负责任了吧？？啊？