UC知道帮我看一道很简单的VB题
来源：百度知道 编辑：UC知道 时间：2024/06/23 01:40:00
把一维数组转化为二维数组：
Option Base 1
Private Sub Form_load()
Dim a(), i%, j%
a = Array(a, b, C, D, E, F, G, H, i)
For i = 1 To 3
For j = 1 To 3
a(i, j) = a()
Next j
Next i
Print a(i, j)
End Sub
我运行后总是弹出下标越界，怎么办？烦死我了。
Option Base 1
Private Sub Form_load()
Dim a(), i%, j%
a = Array(a, b, C, D, E, F, G, H, i)
For i = 1 To 3
For j = 1 To 3
a(i, j) = a()
Next j
Next i
Print a(i, j)
End Sub
我运行后总是弹出下标越界，怎么办？烦死我了。
你把c语言的语法跟VB搞混了，刚学VB吧？这个命题应该这样写：
Private Sub Form_Click() '单击窗体运行
Dim a(9), b(3, 3), i%, j%
Print "一维数组："
For i = 1 To 9
a(i) = Chr(i + 64)
Print a(i); ", ";
Next
Print
Print "二维数组："
For i = 1 To 3
For j = 1 To 3
b(i, j) = a((i - 1) * 3 + j)
Print b(i, j),
Next j
Print
Next i
End Sub
a = Array(a, b, C, D, E, F, G, H, i)
i%
这两个i冲突不?