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(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 Command2_Click()
Picture1.Cls
Form_Activate
End Sub

Private Sub Form_Activate()
 Form_Load
End Sub

Private Sub Form_Load()
Randomize
For i = 1 To 8
 For j = 1 To 8
 a(i, j) = Int(Rnd * 90) + 10
Next
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

Function GetArray(i As Integer, j As Integer) As Integer
 GetArray = a(i, j)
End Function

原帖地址：https://bbs.bccn.net/thread-209316-1-1.html

还是报错，麻烦再帮我看一下哦！！！

[[it] 本帖最后由 xiaolaba3330 于 2008-4-16 12:54 编辑 [/it]]

自己顶上来，麻烦大家帮忙看看！！

不知道做什么用的？
用D3D的时候才开始学矩阵。。。现在还糊涂呢。

自己再顶一个，嘿嘿~~~~~~~

那一句报错,报什么错,你要说明啊,不然怎么帮你看

Private Sub Command1_Click()
For i = 1 To 8
For j = 1 To 8
b(j, i) = GetArray(i, j)
这句报错，说byref参数类型不符合

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

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

Private Sub Command2_Click()
Picture1.Cls
Form_Activate
End Sub

Private Sub Form_Activate()
Form_Load
End Sub

Private Sub Form_Load()
Randomize
For i = 1 To 8
    For j = 1 To 8
        a(i, j) = Int(Rnd * 90) + 10
    Next
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

怎么没有函数啊？

简单的可以不用,没必要写那么多..如果硬要的话可以写成
Dim a(1 To 8, 1 To 8) As Integer, b(1 To 8, 1 To 8) As Integer
Dim i, j As Integer

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

Private Sub Command2_Click()
Picture1.Cls
Form_Activate
End Sub

Private Sub Form_Activate()
Form_Load
End Sub

Private Sub Form_Load()
Randomize
For i = 1 To 8
    For j = 1 To 8
        a(i, j) = Int(Rnd * 90) + 10
    Next
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

Function GetArray(i, j) As Integer
b(j, i) = a(i, j)
End Function

3Q

就是想通过这段程序明白函数是如何返回二维数组的！！