vb如何给二维数组赋值 vb二维数组转化为一维数组？

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，）

vb如何给二维数组赋值 vb二维数组怎么定义 vb一维数组赋值

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。