Найти произведение элементов строк квадратной матрицы Р - VB

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

Помогите пожалуйста решить задачу! Задача:Найти произведение элементов строк квадратной матрицы Р раз¬мерности М, в которых на главной диагонали расположены отрицательные числа. Заменить соответствующие диагональные элементы на полученные произведения. Проанализировать выполнение программы на примере. а матриц -p 2 1 4 6 3 -1 2 2 4 1 -2 6 5 3 1 -2 Заранее спасибо)

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

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

                            Private Sub Command1_Click()
List1.Clear
Dim p() As Integer, b() As Long, m As Integer, s As String, s1 As String
m = InputBox("m")
 
ReDim p(1 To m, 1 To m), b(1 To m)
For i = 1 To m
s1 = ""
b(i) = 1
For j = 1 To m
 
 s = "p(" & Str(i) & "," & Str(j) & ")"
 p(i, j) = InputBox(s)
 s1 = s1 & Str(p(i, j))
 b(i) = b(i) * p(i, j)
Next j
List1.AddItem s1
If p(i, i) < 0 Then p(i, i) = b(i)
Next i
List1.AddItem ""
 
s = ""
For i = 1 To m
  s = s & Str(b(i))
Next i
List1.AddItem s
List1.AddItem ""
 
For i = 1 To m
s = ""
For j = 1 To m
  s = s & Str(p(i, j))
Next j
 List1.AddItem s
Next i
End Sub
                        