7,763
社区成员
发帖
与我相关
我的任务
分享
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