Составление блок-схемы на vba

[ElenaGreen]

Нужно составить блок-схему на vba к этим трем решенным задачам, уважаемые форумчане, нужна ваша помощь, времени нету разобраться, отблагодарю, чем смогу.

Function Task(A() as integer) as integer
S%=0
max%=A(1,1)
for i%=1 to Ubound(A,1)
for j%=1 to Ubound(A,2)
if i%=j% then S%=S%+A(i%,j%)
if A(i%,j%) > max% then max%=A(i%,j%)
next j%
next i%
Task=S%-max%
End Function



Sub asdf()
Dim mARR(), ArrTOP(), ArrBOTT(), i&, j&, n&, k&
n = CLng(InputBox("Write down your size", , 10))
ReDim mARR(1 To n, 1 To n): ReDim ArrTOP(1 To n * n): ReDim ArrBOTT(1 To n * n)
n = 0: Randomize:
For i = LBound(mARR, 1) To UBound(mARR, 1)
For j = LBound(mARR, 2) To UBound(mARR, 2)
mARR(i, j) = Int((20 - (-10) + 1) * Rnd() + (-10))
Select Case j
Case Is > i: n = n + 1: ArrTOP(n) = mARR(i, j)
Case Is < i: k = k + 1: ArrBOTT(k) = mARR(i, j)
End Select
Next 'j
Next 'i
MsgBox "Top. Max:" & Space(3) & Application.Max(ArrTOP) & Chr(13) & _
"Bottom. Max:" & Space(3) & Application.Max(ArrBOTT)
If Application.Max(ArrTOP) > Application.Max(ArrBOTT) Then _
MsgBox "The TOP more than the BOTTOM"
If Application.Max(ArrTOP) < Application.Max(ArrBOTT) Then _
MsgBox "The BOTTOM more than the TOP"
If Application.Max(ArrTOP) = Application.Max(ArrBOTT) Then _
MsgBox "Equal to each other"
End Sub


Sub pr4()
Dim i&, j&, a(), SumUp As Double, SumDown As Double
Cells.Clear
i = 10: j = 10 'размерность матрицы
With [a1].Resize(i, j)
.Value = "=RANDBETWEEN(150,350)": .Value = .Value
a = .Value
End With
For i = 1 To UBound(a, 1)
For j = 1 To UBound(a, 2)
Select Case j
Case Is < i
SumDown = SumDown + a(i, j)
Case Is > i
SumUp = SumUp + a(i, j)
End Select
Next
Next
MsgBox "Сумма выше главной диагонали " & IIf(SumUp > SumDown, "больше", "меньше") & " на " & SumUp - SumDown
End Sub