VBA：完成矩阵

Question

我有一个 3 x 3 矩阵，其中给出了元素 (1,1)、(2,1)、(2,2)、(3,1)、(3,2)、(3,3)：

X   .   .
X   X   .
X   X   X

我需要编写一个程序来写出缺失的元素，其中 (1,2)=(2,1)、(1,3)=(3,1) 和 (2,3)=(3,2)。我编写了以下代码：

Function kiegeszito(a)
    For i = 1 To 3
        For j = 1 To 3
            If i < j Then
                a(i, j) = a(j, i)
            Else        
                a(i, j) = a(i, j)
            End If
        Next j
    Next i

    kiegeszito = a
End Function

但是，这似乎不起作用，有人可以帮助我为什么这不起作用吗？

Answer 1

只需删除Else条件：

Function kiegeszito(a)
    For i = 1 To 3
        For j = 1 To 3
            If i < j Then a(i, j) = a(j, i)
        Next j
    Next i

    kiegeszito = a
End Function