Dados M, N, P e duas matrizes de inteiros, a primeira MxN e a segunda NxP, construir a matriz MxP que é o produto das duas primeiras. Observe que para isso será preciso construir uma Sub, pois a resposta do problema é uma matriz e não um valor simples.
Construir também um programa para testar essa Sub.
Sub prodmat(M, N, P, Mat1(), Mat2(), Mat3() As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = 1
Do While i <= M
k = 1
Do While k <= P
j = 1
Mat3(i, k) = 0
Do While j <= N
Mat3(i, k) = Mat3(i, k) + Mat1(i, j) * Mat2(j, k)
j = j + 1
Loop
k = k + 1
Loop
i = i + 1
Loop
End Sub
Sub testamat()
Dim M, N, P, Mat1(10, 10), Mat2(10, 10), Mat3(10, 10) As Integer
Dim i, j As Integer
M = Cells(1, 21)
N = Cells(1, 22)
P = Cells(1, 23)
i = 1
Do While i <= M
j = 1
Do While j <= N
Mat1(i, j) = Cells(i, j)
j = j + 1
Loop
i = i + 1
Loop
i = 11
Do While i <= N + 10
j = 1
Do While j <= P
Mat2(i - 10, j) = Cells(i, j)
j = j + 1
Loop
i = i + 1
Loop
Call prodmat(M, N, P, Mat1, Mat2, Mat3)
i = 21
Do While i <= M + 20
j = 1
Do While j <= P
Cells(i, j) = Mat3(i - 20, j)
j = j + 1
Loop
i = i + 1
Loop
End Sub