如何把1串2进制放入到一个16*16的2维数组中

Question

例如:0001000000010000
1000001100000110
1100000000010000
0010110000001100
0011000000110001
1000000100001111
1111111111100011
1000000001010100
0000100100100000
0001000100011100
0110000110000101
0000001000000000
0001000100011100
0001000100011100
0001000100011100
0001000100011100

Answer 1

function Transform(byval s as string) as byte()
    dim a(15,15) as byte, i as long, j as long
    for i=0 to 15
        for j=0 to 15
            a(i,j) = cbyte(mid$(s,i*16+j+1,1))
        next
    next
    Transform = a
end function