Найти сумму элементов для каждой строки и произведение для каждого столбца матрицы - VB

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

-Двумерный массив из 3 строк и 5 столбцов. - Заполнить случайными числами и вывести - Найти сумму элементов для каждой строки. - Найти произведение для каждого столбца

Решение задачи: «Найти сумму элементов для каждой строки и произведение для каждого столбца матрицы»

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

                            Option Base 1
Private Sub Form_Load()
Cls: Randomize
Dim a(1 To 3, 1 To 5), s(1 To 3), p(1 To 5) As Long
Dim x As Double, i As Integer, j As Integer
For j = 1 To 5
p(j) = 1
Next
For i = 1 To 3
For j = 1 To 5
a(i, j) = Fix(Rnd * 201) - 100
s(i) = s(i) + a(i, j)
p(j) = p(j) * a(i, j)
Print a(i, j); vbTab;
Next j
Print vbLf
Next i
 
For i = 1 To 3
Print "Г‘ГіГ¬Г¬Г* " + Str(i) + " Г±ГІГ°Г®ГЄГЁ: ", s(i)
Next
For i = 1 To 5
Print "ГЏГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ " + Str(i) + " Г±ГІГ®Г«ГЎГ¶Г*: ", p(i)
Next
 
End Sub
                        