Умножение матриц - VBA (56787)

Формулировка задачи:

Задание лёгкое а сам вечер мучаюсь а завтро строчняк надо ( Помогите перемножить 2 матрицы А и В ... Они не заданы, задать в самой прогаммке

Private Sub CommandButton1_Click()
Dim A() As Integer
Dim B() As Integer
myi1 = InputBox("Введите количество строк матрицы A")
myj1 = InputBox("Введите количество стробцов матрицы A")
ReDim A(myi1, myj1)
For i1 = 1 To myi1
 For j1 = 1 To myj1
  A(i1, j1) = InputBox("Введите A(" & i1 & "," & j1 & ")")
 Next j1
Next i1
myi2 = InputBox("Введите количество строк матрицы В ")
myj2 = InputBox("Введите количество стролбцов матрицы В ")
ReDim B(myi2, myj2)
For i2 = 1 To myi2
 For j2 = 1 To myj2
  B(i2, j2) = InputBox("Введите B(" & i2 & "," & j2 & ")")
 Next j2
Next i2
If (myj2 = myi1) Then
' как их перемножить чёта недогоняю (
Else
MsgBox ("Невозможно перемножить матрицы")
End If
End Sub

Решение задачи: «Умножение матриц»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
Dim A() As Integer
Dim B() As Integer
Dim R() As Integer
myi1 = InputBox("Введите количество строк матрицы A")
myj1 = InputBox("Введите количество стробцов матрицы A")
ReDim A(myi1, myj1)
For i1 = 1 To myi1
 For j1 = 1 To myj1
  A(i1, j1) = InputBox("Введите A(" & i1 & "," & j1 & ")")
 Next j1
Next i1
myi2 = InputBox("Введите количество строк матрицы В ")
myj2 = InputBox("Введите количество стролбцов матрицы В ")
ReDim B(myi2, myj2)
For i2 = 1 To myi2
 For j2 = 1 To myj2
  B(i2, j2) = InputBox("Введите B(" & i2 & "," & j2 & ")")
 Next j2
Next i2
If (myj1 = myi2) Then
'тело умножения
For i = 1 To myi1
    For j = 1 To myj2
       R(i, j) = 0
        For k = 1 To myj1
           R(i, j) = R(i, j) + A(i, k) * B(k, j)
        Next k
   Next j
Next i
 
Else
MsgBox ("Невозможно перемножить матрицы")
End If
End Sub
                        