VB 二维 数组初始化赋值

来源：百度知道 编辑：UC知道 时间：2024/05/09 12:01:34
这样定义 Dim aa(1 To 3 , 1 To 3) As Integer 完了以后
我想把 这组数( (0,1,1),(1,1,0),(1,1,1)) 赋值给数组，怎么写？
悬赏50分。
我试着这样写，aa(1 to 3) = array ( (0,1,1),(1,1,0),(1,1,1) )不对！

Option Base 1
Private Sub Form_click()
Dim b As Variant
Dim aa(1 To 3, 1 To 3) As Integer
b = Array(0, 1, 1, 1, 1, 0, 1, 1, 1)
x = -1
For i = 1 To 3
For j = 1 To 3
aa(i, j) = b(i + j + x)
Print aa(i, j);
Next
Print
x = x + 2
Next
End Sub

Option Base 0
Private Sub Command1_Click()
Dim xc(1) As Variant

xc(0) = Array(10, 2, 3, 1, 0, 3, 4, 4, 56, 120)
xc(1) = Array(14, 3, 1, 9, 0, 4, 5, 2, 14, 118)
For i = 0 To 1
For j = 0 To 9
Debug.Print xc(i)(j);
Next j
Debug.Print
Next i
End Sub