Программа для нахождения определителя матрицы порядка ≤4 - VB

' Получение минора вычеркиванием строки n и столбца k
Function Minor(A() As Double, n As Integer, k As Integer) As Double()
Dim m   As Integer
Dim p   As Integer
Dim i   As Integer
Dim j   As Integer
Dim i1  As Integer
Dim j1  As Integer
Dim R() As Double
 
    m = UBound(A, 1) - 1
    p = UBound(A, 2) - 1
    ReDim R(1 To m, 1 To p) As Double
    i1 = 0
    j1 = 0
    For i = 1 To UBound(A, 1)
        If i <> n Then
           i1 = i1 + 1
           For j = 1 To UBound(A, 2)
               If j <> k Then
                  j1 = j1 + 1
                  R(i1, j1) = A(i, j)
               End If
           Next j
           j1 = 0
        End If
    Next i
    Minor = R
End Function
 
' собственно расчет определителя 
 
Function Detr(A() As Double) As Double
Dim i As Integer
Dim S As Double
    S = 1
    If UBound(A, 1) = 2 Then
       Detr = A(1, 1) * A(2, 2) - A(1, 2) * A(2, 1)  ' второй порядок - обычно
    Else
       For i = 1 To UBound(A, 1)
           Detr = Detr + A(1, i) * Detr(Minor(A, 1, i)) * S ' больший порядок - рекурсивный вызов
           S = -S
       Next i
   End If
End Function