求怎样把二维数组里的数转存到一维数组中

Question

如题所述

Answer 1

先定义一个动态数组
dim a() as integer

再定义二维数组
m=inputbox("二维数组有几行")
n=inputbox("二维数组有几列")
redim a(1 to m, 1 to n)
然后赋值

转变为一维数组：
redim a(m*n) as integer
for j = 1 to m
for k= 1 to n
a((j-1)*n+k) = a(j, k)
next k
next j

不确定对不对……你试一下看看是不是可以帮到你