vb如何给二维数组赋值 vb二维数组转化为一维数组？
vb二维数组转化为一维数组？Dim I as integer，j as integer假设有一个二维数组a（2,3）const r as integer=2const C as integer=3Di
vb二维数组转化为一维数组？
Dim I as integer，j as integer
假设有一个二维数组a（2,3）
const r as integer=2
const C as integer=3
Dim b（（2,1）*（3,1）-1）“定义一个新的一维数组
对于I=0到r
对于j=0到C
b（I*（3,1）j）=a（I，J） “将二维数组的所有元素赋给一维数组
下一个J
下一个I
对于I=0到（b）
打印b（I）”打印一维数组
下一个
VBA二维数组如何转一维数组？一维如何转二维？
一维到二维。
Msgbox Arr1（2,1）“转换后的数组是一个具有一列和多行的二维数组，end sub 2。二维数组转换为一维数组。
arr3=应用程序.转置( 应用程序索引（arr2，2））“获取arr2的第二列数据并将其转置到一维数组msgbox arr3（2，）