VB如何将二维数组集体赋值？

yuma 发布于 2023-01-23 15:59， 1260 次点击

伪代码表示一下，当然以下代码是无法运行的：

程序代码：

Private Sub Form_Load()
Dim a(23, 64)
a(23, 64) = 3
Debug.Print a(1, 3)
End Sub

For....Next形式的赋值就算了。

[此贴子已经被作者于2023-1-24 21:25编辑过]

3 回复

mrexcel2023-01-26 11:13

copymemory API or jsscript,无论各种方法，底层还是循环，并且循环是效率最高的

mrexcel2023-01-26 11:14

EXCEL vba 里实现比较简单

zhongenze2023-07-30 08:39

先dim 数组
做个通用子程序，将初始数据用字符串的参数形式传递给子程序，如：arrayData=“1，2，3，4，5，6，7，8，9，10，....n”
在子程序中先用vb6自带的 split 函数处理该字符串，然后根据数组的维度信息用循环赋值，在返回数组。