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

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

Код работает, но он выводит произведения строчек ниже главной диагонали. А мне нужно, что бы он посчитал сразу всё, и вывел рез-т одним числом.

                    Листинг программы
                
 
                        
                          
                    
Option Base 1
Private Sub Command1_Click()
n = InputBox("n=", "Кол-во строчек", 4): m = InputBox("m=", "Кол-во столбцов", 4)
ReDim A(n, m): x = Array(-0.45, 4, 8, -11, -4, 2, 3, 4.6, 1.8, -3, 5.9, 11, 12, -1.5, 6.7, 8): k = 1
With MSFlexGrid1
.Rows = n + 1: .Cols = m + 1: .ColWidth(0) = 400
For i = 1 To n: For j = 1 To m: A(i, j) = x(k): k = k + 1
If j = 1 Then .ColWidth(j) = 700 Else .ColWidth(j) = 600
.TextMatrix(i, 0) = i: .TextMatrix(0, j) = j: .TextMatrix(i, j) = A(i, j)
Next j: Next: .Row = 1: .Col = 1: .RowSel = i - 1: .ColSel = j - 1: .FillStyle = flexFillRepeat
.CellAlignment = flexAlignCenterCenter
End With
For i = 1 To n
p = 1
For j = 1 To m
If i > j Then p = p * A(i, j)
Next j: List1.List(i - 1) = p
Next i
End Sub
Private Sub Command2_Click()
End
End Sub

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
P=1
For i = 1 To n
'p = 1
For j = 1 To m
If i > j Then p = p * A(i, j)
Next j': List1.List(i - 1) = p
Next i: MSGBOX P

Оцени полезность:

6 голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы