VB的一段程序 求大神给看看

--------------------编程问答-------------------- Hex 函数

返回代表十六进制数值的 String。
--------------------编程问答-------------------- data(0) = Hex(ii)    *******
===>
data(0)=ii '加入hex是画蛇添足，并且是错误的，因为你将其转换为文本了；在内部，ii都是表示为16进制，
--------------------编程问答-------------------- 试试都定义成object呢 --------------------编程问答--------------------  dim ii as integer

改成
 dim ii as byte

然后data(0) = ii 即可

补充：VB ,  基础类