Составление двух блок-схем к кодам

[JDI]

Здравствуйте. Очень нужна помощь. Мне задали составить две программы и к ним блок-схемы. Проблема в том что программы я составил, а вот с блок-схемами проблема. Не получается составить. Помогите их составить, пожалуйста.
Вот программы:
1)
Private Sub CommandButton12_Click()
Dim n%, m%
'formiruem c(n,m)
n = Rnd(1) * 10 \ 1 + 2
m = Rnd(1) * 10 \ 1 + 2
ReDim c%(n, m), a%(Int((m + 1) / 2))
Cells.Select
Selection.ClearContents
For i = 1 To n
For j = 1 To m
c(i, j) = Rnd(1) * 100 \ 1
Cells(i, j) = c(i, j)
Next j
Next i
'formiruem a(Int((m + 1) / 2)) is max elementov
For i = 1 To m Step 2
a(i - Int(i / 2)) = c(1, i)
For j = 1 To n
If a(i - Int(i / 2)) < c(j, i) Then a(i - Int(i / 2)) = c(j, i)
Next j
Cells(n + 2, i) = a(i - Int(i / 2))
Next i
End Sub

2)
Private Sub CommandButton1_Click()
Dim A() As Integer, n As Integer, i As Integer, k As Integer, sum As Integer, sr As Integer
Cells.Clear
n = InputBox("Введите кол-во элементов массива", , 11)
ReDim A(n)
For i = 1 To n
A(i) = Rnd * 100 + 5
Cells(i + 1, 2) = A(i)
If i Mod 2 = 0 Then
sum = sum + A(i)
k = k + 1
End If
Next
sr = sum / k
For i = 1 To n
A(i) = A(i) - sr
Cells(i + 1, 3) = A(i)
Next
Cells(i + 2, 4) = sum
Cells(i + 2, 5) = sr
End Sub

[JDI]

завтра отчет сдавать, ребят очень прошу ,выручите, буду признателен