Dim a(1 To 8, 1 To 8) As Integer, b(1 To 8, 1 To 8) As Integer

Private Sub Command1_Click()
For i = 1 To 8
For j = 1 To 8
b(j, i) = GetArray(a(i, j))
Next
Next
Picture1.CurrentY = 80
For i = 1 To 8
For j = 1 To 8
Picture1.Print Format(b(i, j), "@@@");
Next
Picture1.Print
Picture1.Print
Next
End Sub

Private Sub Form_Activate()
Form_Load
End Sub

Private Sub Form_Load()
k = 0
For i = 1 To 8
For j = 1 To 8
a(i, j) = j + k
Next
k = k + 8
Next
Picture1.CurrentY = 80
For i = 1 To 8
For j = 1 To 8
Picture1.Print Format(a(i, j), "@@@");
Next
Picture1.Print
Picture1.Print
Next
End Sub
Private Function GetArray(m()) As Integer()
Dim L As Integer
Dim U As Integer
L = LBound(m())
U = UBound(m())
ReDim n(U, L)
For i = 1 To U
  For j = 1 To L
   n(j, i) = m(i, j)
   Next
   Next
   GetArray = n
End Function

我写了个程序 但是在b(j, i) = GetArray(a(i, j))这句出错了 怎么改啊？
 希望高手们就以我这个程序为框架，帮我改改！！

你的GetArray函数的功能应该是根据传入的i和j,返回a(i,j)的值,所以你应该改成这样
Private Function GetArray(i as integer,j as integer) As Integer
   GetArray = a(i,j)
End Function
调用的时候,也应该改为
b(j, i) = GetArray(i,j)


另,对于二维数组,lbound和ubound如果只用一个参数,只能取得第一维的程度,要取得第二维,要用LBound(m,2)

还有,redim会清除整个数组的内容

OK 我在试下，谢谢！！！