Дана матрица размерности N на M. Положительные элементы матрицы переписать подряд в одномерный массив В.

Option Explicit
Option Base 1
Dim A() As Single
Dim B() As Single, p%
Dim i As Integer, j As Integer, N As Integer, M As Integer, s As Single
 
Private Sub Command1_Click()
N = Text1.Text
M = Text2.Text
ReDim A(N, M) As Single
flex1.Visible = True
flex2.Visible = True
flex1.Rows = N + 1
flex1.Cols = M + 1
flex2.Rows = 8
flex1.TextMatrix(0, 0) = "A(i)"
flex2.TextMatrix(0, 0) = "N"
flex2.TextMatrix(0, 1) = "B(i)"
flex1.Width = 500 * N + 600
flex2.Width = 1000 * 2 + 400
For i = 0 To N
flex1.ColWidth(i) = 500
Next i
Randomize
For i = 1 To N
For j = 1 To M
 A(i, j) = 5 - Int(10 * Rnd)
   Next j
Next i
For i = 1 To N
    flex1.TextMatrix(i, 0) = i
    For j = 1 To M
        flex1.TextMatrix(0, j) = j
        flex1.TextMatrix(i, j) = A(i, j)
       
        
        
    Next j
Next i
p = 0
For i = 1 To 4
For j = 1 To 5
If A(i, j) >= 0 Then
p = p + 1
B(p, 1) = A(i, j)
End If
Next j
Next i
 
 
 
 
End Sub
 
Private Sub Command2_Click()
End
End Sub