VB二维数组赋值问题.老是出现“下标越界”的提示框将二维数组A中的100个元素分别赋给一维数组B的每个元素并打印出来,要求把A(1,1)到A(1,10）依次赋给B(1)到B(10),把A(2,1)到A(2,10)依

Question

VB 二维数组赋值问题.老是出现“下标越界”的提示框
将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出来,要求把 A(1,1)到 A(1,10）依次赋给 B( 1)到 B(10),把 A( 2,1)到 A( 2,10)依次赋给 B( 11)到 B( 20),……,把 A(10,1)到 A( 10,10)依次赋给B(91)到 B(100).
我的代码.Dim a(1 To 10,1 To 10),b()
Dim i%,j%,x%
Private Sub Form_Click()
i = 1
j = 1
For x = 1 To 100
If j > 10 Then
j = 1
i = i + 1
End If
b(x) = a(i,j)
Print "b(" & x & ")="; b(x);
j = j + 1
Next
End Sub

Answer 1

貌似你的数组b 如果声明为动态的,那一定要Redim定义它的大小.然后才能使用.
建议 这样写代码：Dim B(1 to 100)
运行vbp,出现‘下标越界’提示对话框时,单击该对话框,进入调试模式.
F8->一步步调试,然后查看i,j变量的值,很快就会发现问题了.