Как составить блок-схему к решению задачи

[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

[kuklp]

Так составляйте. А что не получается - сюда, с вопросом. А не хотите делать самостоятельно, столы заказов:
http://www.planetaexcel.ru/forum/?PAGE_NAME=list&FID=7
http://www.programmersforum.ru/forumdisplay.php?f=29
http://www.excelworld.ru/forum/6
Помощь студентам:
http://programmersforum.ru/forumdisplay.php?f=31