петр васильев

Люди добрые пожалуйста напишите блок-схему СРОЧНО!!!!
ЗАРАНЕЕ БЛАГОДАРЮ


Option Explicit
Dim i As Integer
Dim m As Integer
Dim n As Integer
Dim x As Integer
Dim y As Integer
Dim s As Integer
Dim A() As Double
Dim j As Integer
Dim f As Single
Private Sub CommandButton1_Click()
m = Mrow
n = Ncol
'MsgBox m
'MsgBox n
ReDim A(1 To m, 1 To n)
TabA m, n, A()
'MsgBox A(1, 1)

For i = 1 To m
For j = 1 To n
A(i, j) = Cells(i, j)
Next j
Next i

For i = 1 To m
For j = 1 To n

If A(i, j) Then Cells(i + 14, j) = A(i, j)
f = A(i, 2)
A(i, 2) = A(i, 4)
A(i, 4) = f
Next j
Next i
x = 1
y = 24
Cells(24, 1) = "i"
Cells(24, 2) = "j"
For i = 1 To 7
For j = 1 To 5
If A(i, j) < 0 Then Cells(y, x) = i: Cells(y, x + 1) = j: y = y + 1

Next j
Next i
Cells(23, 1) = "i"
Cells(23, 2) = "j"
End Sub
Sub TabA(m As Integer, n As Integer, A() As Double)
For i = 1 To m
For j = 1 To n
A(i, j) = Cells(i, j).Value
Next j
Next i

End Sub
Function Mrow() As Integer
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 1))
i = i + 1
Loop
Mrow = i - 1
End Function

Function Ncol() As Integer
Dim j As Integer
j = 1
Do Until IsEmpty(Cells(1, j))
j = j + 1
Loop
Ncol = j - 1
End Function