Нужно написать программу VBA в экселе!

Элементы массива считываются из области ячеек A1:E5. Они могут быть как целочисленными, так и вещественными. Для контрольного решения можно заполнить эти ячейки при помощи макроса InitCells, который выполняет инициализацию случайными числами из интервала [-10;10]

Sub InitCells()
    Dim a(1 To 5, 1 To 5)
    Randomize Timer
    For i = 1 To 5
        For j = 1 To 5
            a(i, j) = Int(21 * Rnd - 10)
        Next j
    Next i
    Range("A1:E5") = a
End Sub

Ниже представлен текст программы, вычисляющей значение t по формуле
$\displaystyle t=\sum_{i=1}^5\prod_{j=1}^5a_{i,j}$

Sub Main()
    a = Range("A1:E5")
    s = 0
    For i = 1 To 5
        p = 1
        For j = 1 To 5
            p = p * a(i, j)
        Next j
        s = s + p
    Next i
    MsgBox "t=" + CStr(s)
End Sub

Во вложении - рабочая книга Excel-2003 с тестовым примером и блок-схемой. Макросы находятся на листе 1 рабочей книги.

Скачать вложение Excel (XLS)