[VBA] Сформировать две матрицы и рассчитать их: сумму; разность; произведение

[SkyGir]

Здравствуйте, пожалуйста подскажите, что не так. Вроде все считает, но считает как-то коряво.

Option Explicit 
Option Base 1
Sub Massiv()
    Dim a() As Double, b() As Double, i As Integer, j As Integer, s$, s1$, n As Integer, sum As Double, raz As Double, pro As Double
    n = InputBox (“Введите количество элементов массива", "Определение размера массива")
    ReDim a(1 To n, 1 To n) As Double
    ReDim b(1 To n, 1 To n) As Double
    Randomize
    For i = 1 To n
        For j = 1 To n
            a(i, j) = Int(10 * Rnd + 1)
            b(i, j) = Int(10 * Rnd + 1)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            sum = a(i, j) + b(i, j)
            raz = a(i, j) - b(i, j)
            pro = a(i, j) * b(i, j)
        Next j
    Next i
    s = ""
    s1 = ""
    For i = 1 To n
        For j = 1 To n
            s = s & a(i, j) & "   "
            s1 = s1 & b(i, j) & "   "
        Next j
        s = s & Chr(13)
        s1 = s1 & Chr(13)
    Next i
    MsgBox("Massiv1: " & Chr(13) & s & "Massiv2: " & Chr(13) & s1 & "Сумма= " & sum & Chr(13) & "Разность= " & raz & Chr(13) & "Произведение= " & pro)
End Sub

[p51x]

С каких пор сумма, разность и произведение матриц - это сумма, разность и произведение их угловых элементов?

[SkyGir]

Сообщение от p51x

С каких пор сумма, разность и произведение матриц - это сумма, разность и произведение их угловых элементов?

сам понимаю,что считается по этим элементам, но допилить код не соображу как

[p51x]

Т.е. код писали не вы. Иначе почему до сих пор переменные под результаты до сих пор не массивы?

[SkyGir]

Код мой. Выполняю ряд заданий и просто копирую из предыдущего. Вполне возможно, уже невнимательность/недомозгованность

[SkyGir]

Все допилил. Все работает

Option Explicit
Option Base 1
Sub Massiv()
    Dim a() As Double, b() As Double, i As Integer, j As Integer, s$, s1$, s2$, s3$, s4$, n As Integer, sum() As Double, raz() As Double, pro() As Double
    n = InputBox(“Введите количество элементов массива", "Определение размера массива")
    ReDim a(1 To n, 1 To n) As Double
    ReDim b(1 To n, 1 To n) As Double
    Randomize
    For i = 1 To n
        For j = 1 To n
            a(i, j) = Int(10 * Rnd + 1)
            b(i, j) = Int(10 * Rnd + 1)
        Next j
    Next i
    ReDim sum(1 To n, 1 To n) As Double
    ReDim raz(1 To n, 1 To n) As Double
    ReDim pro(1 To n, 1 To n) As Double
    For i = 1 To n
        For j = 1 To n
            sum(i, j) = a(i, j) + b(i, j)
            raz(i, j) = a(i, j) - b(i, j)
            pro(i, j) = a(i, j) * b(i, j)
        Next j
    Next i
    s = ""
    s1 = ""
    s2 = ""
    s3 = ""
    s4 = ""
    For i = 1 To n
        For j = 1 To n
            s = s & a(i, j) & "   "
            s1 = s1 & b(i, j) & "   "
            s2 = s2 & sum(i, j) & "   "
            s3 = s3 & raz(i, j) & "   "
            s4 = s4 & pro(i, j) & "   "
        Next j
        s = s & Chr(13)
        s1 = s1 & Chr(13)
        s2 = s2 & Chr(13)
        s3 = s3 & Chr(13)
        s4 = s4 & Chr(13)
    Next i
    MsgBox("Massiv1: " & Chr(13) & s & "Massiv2: " & Chr(13) & s1 & "Сумма массивов: " & s2 & Chr(13) & "Разность массивов: " & s3 & Chr(13) & Произведение массивов " & s4)
End Sub

[p51x]

Так не допилили же... матрицы не так умножаются.

[SkyGir]

Проверил. Согласен не так матрицы умножаются. Если не сложно, подскажите, пожалуйста, решение моего вопроса