Написать программу проверки

[simba199]

Заданы две матрицы A(3,3) и B(3,3). Написать программу проверки - является ли произведение этих матриц перестановочным, т.е. проверить равенство AB=BA
на VBA
помогите пожалуйста

[BDA]

С кодом не помогу (не знаю VBA).
Для умножения матриц:

for i := 1 to 3 do
    for j := 1 to 3 do
    begin
      c1[i, j] := 0;
      for k := 1 to 3 do
        c1[i, j] := c1[i, j] + a[i, k] * b[k, j];
    end;

for i := 1 to 3 do
    for j := 1 to 3 do
    begin
      c2[i, j] := 0;
      for k := 1 to 3 do
        c2[i, j] := c2[i, j] + b[i, k] * a[k, j];
    end;

(пример умножения на дельфи)
Посчитали произведение и записали в матрицы c1 и c2.
Потом просто поэлементно сравнить.