如何定义二维数组并且赋值?

先定义一个2行3列的数组
dim a(1 to 2,1 to 3)
再对数组初始化
a={{1,2,3},{4,5,6}}

满意答案

在VB6中对数组初始化用循环语句
dim a(1 to 2,1 to 3) as integer

n=1
for i=1 to 2
for j=1 to 3
a(i, j)=n
n=n+1
next j
next i