VB问题

Question

用两个字节来存放一个长整型数，高字节在前，低字节在后，怎么做？
比如：
val()为Byte型
num为long型
把num高字节放与val(0)
把num低字节放与val(1)

Answer 1

long 型有4个字节。dim num as Integer
dim val(1) as byte
    val(0) = (num and &HFF00)\&H100
    val(1) = num and &HFF