使用wrap VBA填充对角矩阵

Sub FillDiagonalMatrix()
    Dim matrix() As Variant
    Dim size As Integer
    Dim i As Integer, j As Integer
    
    ' 设置矩阵大小
    size = 5
    
    ' 初始化矩阵数组
    ReDim matrix(1 To size, 1 To size)
    
    ' 填充对角线上的元素
    For i = 1 To size
        For j = 1 To size
            If i = j Then
                matrix(i, j) = "填充的值"
            Else
                matrix(i, j) = "其他值"
            End If
        Next j
    Next i
    
    ' 输出填充后的矩阵
    For i = 1 To size
        For j = 1 To size
            Debug.Print matrix(i, j)
        Next j
    Next i
End Sub