vb二维数组赋值问题

你那么厉害了不会不懂写吧？VBA整型定义后全都是赋为0的，并不需要赋值0。
W循环这个应该简单吧：写上个看看，没运行过，你试试
dim w,q as interger
for w=1 to 10
for q=1 to 23
ability(w,q)=ability(0,q)
next
next
msgbox ability(2,1) '看看成功没！

Dim a(10,20),b(10,20)
'对数组a赋值
for i=0 to 10
for j=0 to 20
b(i,j)=a(i,j)
next
next

你定义的是一个二维数组，在VB中最多可以定义六十维。你定义了16个变量数组（VB数组是从0开始的）方法如下：
Dim a(3,3) As Integer
a(0,0) = 12
a(0,1) = 23
a(0,2) = 12
a(0,3) = 77
a(1,0) = 47
a(1,1) = 55
a(1,2) = 12
a(1,3) = 23
a(2,0) = 12
a(2,1) = 23
a(2,2) = 12
a(2,3) = 23
a(3,0) = 12
a(3,1) = 23
a(3,2) = 12
a(3,3) = 23

vb赋值给数组，有以下几种方式：
第一种方式：
Private
Sub
Command1_Click()
Dim
a(10)
As
Integer
'定义数组a,下标最大值为10
For
i
=
0
To
10
a(i)
=
i'这里可以直接给数组赋值了
Print
"a("
&
i
&
")的值"
&
a(i)
'打印数组
Next
End
Sub
第二种方式：
Private
Sub
Command1_Click()
Dim
a()
As
Integer
'定义数组a，这里未设置下标
For
i
=
0
To
10
ReDim
Preserve
a(i)'ReDim
语句改变数组的元素以及维数的数目
a(i)
=
i'这里可以直接给数组赋值了
Print
"a("
&
i
&
")的值"
&
a(i)
Next
End
Sub
第三种方式：
Private
Sub
Command1_Click()
a
=
Array(1,
5,
2,
43,
222)
MsgBox
"a(0)原来的值是："
&
a(0)
a(0)
=
100
MsgBox
"a(0)赋值后的值是："
&
a(0)
End
Sub

---