注册 登录
编程论坛 VB6论坛

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

yuma 发布于 2023-01-23 15:59, 1107 次点击
伪代码表示一下,当然以下代码是无法运行的:

程序代码:
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 回复
#2
mrexcel2023-01-26 11:13
copymemory API or jsscript,无论各种方法,底层还是循环,并且循环是效率最高的
#3
mrexcel2023-01-26 11:14
EXCEL vba 里实现比较简单
#4
zhongenze2023-07-30 08:39
先dim 数组
做个通用子程序,将初始数据用字符串的参数形式传递给子程序,如:arrayData=“1,2,3,4,5,6,7,8,9,10,....n”
在子程序中先用vb6自带的 split 函数处理 该字符串,然后根据数组的维度信息用循环赋值,在返回数组。
1