Произведение матриц? - VBA - Ответ 1701676

Option Explicit
 
Sub porizvedenie_matrix()
Dim n As Integer, m As Integer, k As Integer, S As Double
Dim i As Integer, j As Integer, z As Integer
Dim Proizvedenie As Double
k = InputBox("k=")
m = InputBox("m=")
n = InputBox("n=")
ReDim A(1 To k, 1 To m) As Integer
ReDim B(1 To m, 1 To n) As Integer
ReDim C(1 To k, 1 To n) As Integer
MsgBox ("Vvod matix A & B")
MsgBox ("Matrix A k x m")
For i = 1 To k
    For j = 1 To m
        A(i, j) = InputBox("A(" & Str(i) & "," & Str(j) & ")")
    Next j
Next i
For i = 1 To k
    For j = 1 To m
    Worksheets(1).Cells(i, j).Value = A(i, j)
    Next j
Next i
MsgBox ("Matrix B m x n")
For i = 1 To m
    For j = 1 To n
        B(i, j) = InputBox("B(" & Str(i) & "," & Str(j) & ")")
    Next j
Next i
For i = 1 To m
    For j = 1 To n
    Worksheets(2).Cells(i, j).Value = B(i, j)
    Next j
Next i
MsgBox ("Proizvedenie matix A x B = C")
For i = 1 To k
    For j = 1 To n
        For z = 1 To m
            Proizvedenie = Proizvedenie + A(i, z) * B(z, j)
        Next z
        C(i, j) = Proizvedenie
    Next j
Next i
'Matrix C
For i = 1 To 2
    For j = 1 To 3
        Worksheets(3).Cells(i, j).Value = C(i, j)
    Next j
Next i
End Sub