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

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