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