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变量的值,很快就会发现问题了.

Answer 2

Dim a(1 To 10, 1 To 10), b(1 To 100)

Answer 3

b没范围,定义下,要不redim下

Dim a(1 To 10, 1 To 10), b(1 To 100)
Dim x%

For x = 1 To 100
b(x) = a(x \ 10 + 1, (x Mod 10) + 1)
Print "b(" & x & ")="; b(x);
j = j + 1
Next

Answer 4

Dim a(1 To 10, 1 To 10), b(1 to 100)
Dim i%, j%,x%
For i= 1 To 10
for j=1 to 10
x=(i-1)*10+i
b(x)=a(i,j)
next j
next i'试试我的代码，我测试通过了的哟！