如何把1串16进制的字符串转成2进制并存放在一个16*16的数组里

Question

例如:
" 01H 00H 01H 04H 01H 0FEH 01H 00H 01H 08H 03FH 0FCH 020H 08H 020H 08H 020H 08H 03FH 0F8H 020H 08H 020H 00H 020H 00H 020H 00H 040H 00H 080H 00H"

Answer 1

又是你，前面一帖还没结呢：http://topic.csdn.net/u/20071130/14/c17e043a-1a3a-43f3-926f-aca115d7f511.html
function Transform(byval s as string) as byte()
    dim a(15,15) as byte, b as variant, i as long, j as long
    b = split(replace(s," ",vbnullstring), "H")
    for i=0 to 15
        for j=0 to 15
            a(i,j) = cbyte("&H" & b(i*15+j))
        next
    next
    Transform = a
end function

Answer 2

a(i,j) = cbyte("&H" & b(i*15+j))
类型不匹配啊!