7,785
社区成员




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