请问如何用VB编程将二进制的二维数组转换成如下的十进制形式？

Question

请问如何用VB编程将二进制的二维数组转换成如下的十进制形式？
二维数组：
1 0 0 0 1 0 0 0
0 1 0 1 1 1 1 1
1 1 1 1 0 1 0 0

将一行中8个二进制数分成两组，每4个二进制数对应一个十进制数， 请问怎么转换成这样的十进制形式二维数组：
8 8
5 15
15 4

Answer 1

设你的数组为 x(2,7)

转到 y(2,1)

dim i as integer
for i = 0 to 2
y(i,1) = x(i,0)*2^3+x(i,1)*2^2+x(i,2)*1^2+x(i,3)*2^0
y(i,2) = x(i,4)*2^3+x(i,5)*2^2+x(i,6)*1^2+x(i,7)*2^0
next

'当然,可能可以简化代码.