vb6中怎么对二维数组赋值

Question

如题所述

Answer 1

Option Base 1'声明所有数组下标从1开始(VB6中下标默认从0开始) Private Sub Form_Click()'窗体鼠标单击事件过程 Dim a(3,3)As Integer'定义一个整型的二维数组变量a For i = 1 to 3'子循环三次本回答被网友采纳

Answer 2

vb6中怎么对二维数组赋值
在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