Составить программный код для вычисления матрицы 5-го порядка - VB

Private Sub cmd1_Click()
CLS
 
RANDOMIZE TIMER
n = 5
REDIM x(n, n) AS LONG
 
FOR i = 1 TO n
FOR j = 1 TO n
   x(i, j) = 18 * RND - 9
   PRINT x(i, j);
NEXT: PRINT
NEXT: PRINT
 
PRINT "|X| = "; DET(n, x())
End Sub
 
Private Sub ALG (j AS LONG, n AS LONG, a() AS LONG, c() AS LONG)
 
   FOR k = 1 TO n - 1
   FOR l = 1 TO n - 1
      IF l < j THEN
         c(k, l) = a(k + 1, l)
      ELSE
         c(k, l) = a(k + 1, l + 1)
      END IF
   NEXT l
   NEXT k
End Sub
 
Private Function DET (n AS LONG, a() AS LONG) AS LONG
   DIM D AS LONG
   DIM m AS LONG
   REDIM b(n, n) AS LONG
 
   IF n = 1 THEN
      DET = a(1, 1)
   ELSE
      D = 0
 
      FOR m = 1 TO n
         CALL ALG((m), n, a(), b())
         D = D - (-1) ^ m * a(1, m) * DET(n - 1, b())
      NEXT m
 
      DET = D
   END IF
End Function