QUESTÃO 1 (VBA) - LISTA 8 (MATRIZES) SEGUNDO ESTÁGIO

Public Sub questao()
'locais de memória
Dim a(3, 3) As Integer, b(3, 3) As Integer, c(3, 3) As Integer
Dim d(3, 3) As Integer, i As Integer, j As Integer, k As Integer
'entrada de dados
For i = 1 To 3 Step 1
    For j = 1 To 3 Step 1
    a(i, j) = Cells(i + 1, j)
    b(i, j) = Cells(i + 1, j + 4)
    Next j
Next i
'cálculos
For i = 1 To 3 Step 1
    For j = 1 To 3 Step 1
          c(i, j) = 0
          d(i, j) = 0
          For k = 1 To 3 Step 1
          c(i, j) = c(i, j) + a(i, k) * b(k, j)
          d(i, j) = d(i, j) + b(i, k) * a(k, j)
          Next k
    Next j
Next i
'saída de dados
For i = 1 To 3 Step 1
    For j = 1 To 3 Step 1
    Cells(i + 6, j) = c(i, j)
    Cells(i + 6, j + 4) = d(i, j)
    Next j
Next i
End Sub